Textfile importeren in Excel

[famjj]

Wie weet een oplossing?
Ik wil in excel door middel van een scriptje een txt-bestand importeren.

Het txt-bestand moet geplaatst worden in Blad 2 vanaf cel A1.

De link naar het txt bestand staat in Blad 1, Cel B5.
Een optie zou ook nog zijn dat de gebruiker zelf, zodra de macro gestart is, zelf het txt bestand kan aanvinken.

Gr.
Johan

 

[edmoor]

Neem een macro op terwijl je die import een keer doet. De macro bevat dan de code om het uit te voeren zoals je het zelf hebt gedaan en is vervolgens naar wens aan te passen.

 

[famjj]

Als ik dat doe, krijg ik een link naar een vaste plaats op de PC en ik wil dat de plaats varibel is.

 

[edmoor]

Dat zeg ik, die code kun je dan naar wens aanpassen. Als je niet weet hoe je dat moet doen kun je die code hier plaatsen en er de vraag over stellen.

 

[famjj]

Ik heb onderstaande code:
Het gaat erom dat

"(Connection:= _
"TEXT;Macintosh HD:Users:jadriaanseownloads:dbs-export-20140423115411.txt", _
Destination:=Range("H1"))
.Name = "dbs-export-20140423115411"

een variabele moet zijn die van Blad 1 veld E6 moet komen.

Sub Macro1()
§ '
' Macro1 Macro
'

'
Selection.Copy
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Macintosh HD:Users:jadriaanseownloads:dbs-export-20140423115411.txt", _
Destination:=Range("H1"))
.Name = "dbs-export-20140423115411"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlMacintosh
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
.UseListObject = False
End With
End Sub

 

[edmoor]

Te oordelen aan de wijze van bestandsbenadering gaat het hier om Office voor de Mac. Dat is net weer anders en heb ik geen ervaring mee. Iemand anders wellicht.