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, ç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
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
Saygılarımla