Dosya Yolu

[huseyin610]

Merhaba,

Aşağıdaki kodu çalıştırdığımda ABC dosyasını kendim seçmek istiyorum.Yani C:\ dizini altı açılsın ve ben oradan dosyayı seçeyim.Sonra makrodaki ABC yerine bu dosya gelerek çalışsın.

Sub Makro1()

ChDir "C:\"
Workbooks.OpenText Filename:="C:\ABC.xls", Origin _
:=1254, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(1, 1) _
, TrailingMinusNumbers:=True
End Sub

Saygılarımla,

 

[Mehmet Şahin]

Merhaba,
şu şekilde deneyiniz. İyi çalışmalar.

Sub Macro1()
Dim FSO As Object
ChDir "C:\"
yol = Application.GetOpenFilename("Excel dosyası (*.xls),*.xls", , "Hedef Dosyayı Seçin")
If yol = False Then Exit Sub
Workbooks.OpenText filename:=yol, Origin _
:=1254, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(1, 1) _
, TrailingMinusNumbers:=True
End Sub