- Katılım
- 9 Mart 2017
- Mesajlar
- 54
- Excel Vers. ve Dili
- 2016 Excel Türkçe
Merhabalar Sayın hocalarım
Excel veri/metinal sekmesinin vba kodu yazmaya çalışıyorum. Dosyadaki cvslerin adreslerine göre Kaynak = Csv.Document(File.Contents("" f "" [Delimiter="";"",) konu otomatik atanmasını istiyorum bunun için f adında bir değişken yaratmaya çalıştım.
Yani kod çalışmaya başladığı zaman ben D:\Belgelerim\123.csv seçtiğim zaman Kaynak = Csv.Document(File.Contents(""D:\Belgelerim\123.csv "") yada abc.cvs yi seçtiğim zaman Kaynak = Csv.Document(File.Contents(""D:\Belgelerim\abc.csv "" [Delimiter="";"", olacak.
f değişkeni msgbox seçmiş olduğum dosyaların adreslerini yazıyor ama kaynak dosyanına bu değişkeni nasıl getirebilirm
Sub aa()
Dim f As String
ChDir "D:\Belgelerim\"
f = Application.GetOpenFilename(FileFilter:="Text Files (*.csv), *.csv")
'MsgBox f
.......
ActiveWorkbook.Queries.Add Name:="fileme", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Kaynak = Csv.Document(File.Contents(""f"")
....
end sub
şimdiden teşekkür ederim.
Excel veri/metinal sekmesinin vba kodu yazmaya çalışıyorum. Dosyadaki cvslerin adreslerine göre Kaynak = Csv.Document(File.Contents("" f "" [Delimiter="";"",) konu otomatik atanmasını istiyorum bunun için f adında bir değişken yaratmaya çalıştım.
Yani kod çalışmaya başladığı zaman ben D:\Belgelerim\123.csv seçtiğim zaman Kaynak = Csv.Document(File.Contents(""D:\Belgelerim\123.csv "") yada abc.cvs yi seçtiğim zaman Kaynak = Csv.Document(File.Contents(""D:\Belgelerim\abc.csv "" [Delimiter="";"", olacak.
f değişkeni msgbox seçmiş olduğum dosyaların adreslerini yazıyor ama kaynak dosyanına bu değişkeni nasıl getirebilirm
Sub aa()
Dim f As String
ChDir "D:\Belgelerim\"
f = Application.GetOpenFilename(FileFilter:="Text Files (*.csv), *.csv")
'MsgBox f
.......
ActiveWorkbook.Queries.Add Name:="fileme", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Kaynak = Csv.Document(File.Contents(""f"")
....
end sub
şimdiden teşekkür ederim.