Makro ile Metinden Dış Veri AL

[schlecht]

İyi günler, excel sayfasıın A1 hücresinden başlayarak metinden dış veri al yapıyorum. Makro kaydet yönetimi dizini ve dosya adı sabit dosyalar için işe arıyor. Benim ihtiyacım dizini ve adı sabit olmayan txt dosyasını seçip txt dosyasındaki verileri a1 hücresiden başlayarak aktarmak.
Teşekkürler.

 

[schlecht]

Sub TextF()
fName = Application.GetOpenFilename("Text Files,*.txt")
If fName = False Then Exit Sub
Set s1 = ThisWorkbook.Worksheets.Add
With s1.QueryTables.Add(Connection:="TEXT;" & fName, Destination:=s1.Range("A1"))
.TextFilePlatform = 28599
.Refresh (False)
End With
End Sub

araştırma yaparken bu formülü buldum. Formül tam istediğim gibi çalışıyor fakat yeni bir sayfa açıp text dosyasının içeriğini oraya aktarıyor. Mevcut sayfaya aktarmasını nasıl sağlayabilirim?

 

[Haluk]

Su anda telefondan yaziyorum ama;

Set s1= activesheet

Diye deneyin...

.

 

[schlecht]

Çok teşekkür ederim mükemmel oldu.