What is wrong with this syntax?

[Hunden]

Hey guys. Why dosnt this syntax import data from the file I choose?



Sub Makro1()

Dim filename As String

filename = Application.GetOpenFilename("Text Files (*.tsp),*.tsp", , "Please selec text file...")

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;filename", _
Destination:=Range("$B$7"))

.Name = "a280"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
End With
End Sub

 

[Norie]

Perhaps because you aren't actually including the chosen filename.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & filename, _
Destination:=Range("$B$7"))

 

[Hunden]

Perhaps because you aren't actually including the chosen filename.

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & filename, _
Destination:=Range("$B$7"))

Hmm... it still dosnt work

 

[Hunden]

Hmm... it still dosnt work

someone, pleaaase help
regards

 

[Norie]

Please tell how it doesn't work.

By the way why are you using this method in the first place?

Why not try OpenText?

 

[Hunden]

Please tell how it doesn't work.

By the way why are you using this method in the first place?

Why not try OpenText?

If you got a better solution, fell free to give me it
But i dont know why it dosnt work. It just dont copy any data into the excel doc.

 

[theozz]

try

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & filename, _
Destination:=Range("$B$7")) ' Changed ("TEXT;" & filename)
~~~~~~~~
     .TextFileSpaceDelimiter = False
     .Refresh  (Added)

 

[Hunden]

try

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & filename, _
Destination:=Range("$B$7")) ' Changed ("TEXT;" & filename)
~~~~~~~~
     .TextFileSpaceDelimiter = False
     .Refresh  (Added)

Thanks alot. It work now. But why? im lost:D

Regards