Herkese merhaba
Forumda bir kaç konu başlığı altında aradım ama bulamadım. Varsa eğer beni oraya yönlendirirseniz de yeterli olur gibi geliyor. Şimdiden teşekkürler.
Elimdeki örnekte sağdaki textbox a (dosya-konumu alanına) seçilen dosyanın lokal bilgisayardaki konumunu yazacak bir kod arıyorum.
örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de
"C:\belgeler" yazacak
İşin çoğunu yaptım. Fakat me.dosya_konumu=? Eşittirden sonrasını kıvıramadım.
Not : formu açarken internet bağlantınızı kesmeniz gerekebilir. Kesmezseniz açılışı uzun sürüyor.
Kodu aşağıdaki ile değiştirerek deneyiniz. Ayrıca ' ile iptal edilen alanlara işlem yapılmadı.
Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
'Me.resim = Null
Dim fileName As String
Dim Result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seç"
.Filters.Add "Bütün dosya türleri", "*.*"
.Filters.Add "WORD", "*.docx"
'.Filters.Add "word_eski", "*.doc"
'.Filters.Add "text", "*.txt"
'.Filters.Add "excel_yeni", "*.xlsx"
'.Filters.Add "excel_eski", "*.xls"
'.Filters.Add "Gif", "*.gif"
'.FilterIndex = 1
'.AllowMultiSelect = False
.InitialFileName = "c:\"
Result = .Show
If (Result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me.dosya_konumu.SetFocus
Me.dosya_konumu = Left(fileName, InStrRev(fileName, "\"))
'' Me.dosya_konumu = Dir(fileName)
' Me![baski-desen-no].SetFocus
' Me![resim].Visible = False
'Call resim_AfterUpdate
End If
End With
End Sub
Ellerinize sağlık hocam, konumunu alıyor da "deneme.docx" kısmı gelmiyor. Yani çalışma sayfasının adının da çıkmasını istiyorum. Nasıl yapabiliriz?
Merhaba, siz sorunuzda "
"C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.
(29/11/2016, 09:36)tufanbal yazdı: [ -> ]örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de
"C:\belgeler" yazacak
İşin çoğunu yaptım.
Kodu aşağıdaki ile değiştirerek deneyiniz.
Dim fileName As String
Dim Result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seç"
.Filters.Clear
.Filters.Add "Word Belgesi", "*.docx, *.doc"
.ButtonName = "Word Belgesini Seç"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = "c:\"
Result = .Show
If (Result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me.dosya_konumu.SetFocus
Me.dosya_konumu = fileName
End If
End With
sayın tufanbal,
konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.
şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Geri dönüşler sayesinde amacıma ulaştım ve çalışır hale getirdim. Emeği geçenlere teşekkür ederim.