Dış veri alma değişkenli

[tactless]

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; yol & "\PORTLIST.REG", Destination:=Range("$A$1"))
.Name = "PORTLIST"

Arkadaşlar kodda hata alıyorum. amacım c:\deneme1 deneme2 .... giden klasörlerim var. içerisinde portlist adı altında dosyalar var.

c:\deneme1\portlist
c:\deneme2\portlist

kalın siyahla gösterileni değişkene atayıp, sırayla veri çekmek istiyorum. Ama sürekli seperator hatası alıyorum. yazımımda bir hata var ama çözemedim. Yardımlarınızı rica ediyorum.

Tşkler.

 

[Levent Menteşoğlu]

yol değişkeninde varsa seperatör işaretini kaldırın.

yol="c:\deneme"

 

[tactless]

Yol = "D:\Dosya\AB007\"

With ActiveSheet.QueryTables.Add(Connection:= _
"text;" & Yol & "PORTLIST.REG" _
, Destination:=Range("$A$1"))

Üstad çok sağol. Yukarıdaki kod ile çözdüm.

Saygılarımla.