Kod çalıştığında Excel, bulunduğu klasöre baksın

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Arkadaşlar,
Kod:
Sub Klasora_Bak()
    ChDir (ThisWorkbook.Path)
    isim = ThisWorkbook.Path & "\*.txt"
    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")
End Sub
Kod, çalışan bir makronun parçası. Çalıştırıldığında "Belgelerime" bakarak başlıyor. Bulunduğu klasöre bakarak nasıl başlar?
Saygılarımla
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Merhaba Tevfik hocam
"ChDrive ThisWorkbook.Path" satırını eklemek işe yarayabilir

Kod:
Sub Klasora_Bak()
ChDrive ThisWorkbook.Path
'ChDir ThisWorkbook.Path
    isim = ThisWorkbook.Path & "\*.txt"
    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")
End Sub
 
Son düzenleme:

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Sayın Plint,
Çok teşekkür ederim.
Saygılarımla
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Rica ederim.
Bilmukabil, kolaylıklar dilerim.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Alternatif:

Kod:
Sub Test()
    Set MyDialog = Application.FileDialog(msoFileDialogOpen)
    MyDialog.initialFilename = ThisWorkbook.Path
    MyDialog.Filters.Add "Text dosyaları", "*.txt"
    If MyDialog.Show = -1 Then MsgBox MyDialog.SelectedItems(1)
End Sub
.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Sayın Haluk Hocam,
Teşekkür ederim.
Saygılarımla
 
Üst