Kodu Düzenleme

[ojibu]

kullandığım bu formülde masaüstü yolu elle yazdırdım. Ancak otomatik hücreden alması için
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\HP Laptop\Desktop\SRC\TXT\" & txt & "", Destination:=Range("b1"))

aynı sayfanın u1 hücresinden alması için
Dim yolu
yolu= [U1]
With ActiveSheet.QueryTables.Add(Connection:="TEXT;yolu & "\TXT\" " & txt & "", Destination:=Range("b1"))
şeklinde yapıyorum hata veriyor
acaba ne yapabilirim değerli fikirlerinizi bekliyorum

 

[EmrExcel16]

Şu şekilde deneyiniz..

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & yolu & "\TXT\" & txt & "", Destination:=Range("b1"))

 

[ojibu]

ilginize teşekkür

 

[EmrExcel16]

ilginize teşekkür

Rica ederim , iyi çalışmalar.