Application.GetOpenFilename "Değişken tanımlama"

[tamer42]

Merhabalar,
Kapalı bir *.txt dosyası excele kopyaladığım kod aşağıdadır, Bu kodda yer alan;

dosya = Application.GetOpenFilename("Text Files,*.txt")


dosya değişkenini hangi değişken türünden tanımlatmamız gereklidir?

String , Double , Boolean , Variant , ... ?

Sub Txt_Veri_Al()

Dim s1 As Worksheet

[color=red]dosya = Application.GetOpenFilename("Text Files,*.txt")[/color]

If dosya = False Then Exit Sub

Set s1 = Worksheets("tx")

With s1.QueryTables.Add(Connection:="TEXT;" & dosya, Destination:=s1.Range("A1"))
        .Refresh (False)
    End With
    
 End Sub

iyi Çalışmalar.

 

[serqet]

Merhabalar,
Kapalı bir *.txt dosyası excele kopyaladığım kod aşağıdadır, Bu kodda yer alan;

dosya = Application.GetOpenFilename("Text Files,*.txt")


dosya değişkenini hangi değişken türünden tanımlatmamız gereklidir?

String , Double , Boolean , Variant , ... ?

Sub Txt_Veri_Al()

Dim s1 As Worksheet

[color=red]dosya = Application.GetOpenFilename("Text Files,*.txt")[/color]

If dosya = False Then Exit Sub

Set s1 = Worksheets("tx")

With s1.QueryTables.Add(Connection:="TEXT;" & dosya, Destination:=s1.Range("A1"))
        .Refresh (False)
    End With
    
 End Sub

iyi Çalışmalar.

Dim dosya As Variant

 

[tamer42]

Teşekkürler,

dosya = Application.GetOpenFilename("Text Files,*.txt")

bu şekilde seçmek yerine; dosya yolunu

dosya = "C:\Text\aaa.txt"

doğruden ellle yazdığımız zaman çalışmıyor, bu sorunu nasıl çözebilirim?

iyi çalışmalar.

 

[tamer42]

Dim strFileName As String

strFileName = "C:\Text\aaa.txt"


With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
strFileName, Destination:=Range("A1"))

.Refresh BackgroundQuery:=False

End With

şeklinde çözüldü, teşekkürler....