jesperarts
Nieuwe gebruiker
- Lid geworden
- 26 jul 2016
- Berichten
- 3
Goedemiddag,
Per dag krijgen we een paar txt files met bestellingen binnen. Nu willen we die graag tegelijk inlezen in excel en onder elkaar zetten. Ik heb geprobeerd via een macro de import van 1 txt file in te lezen maar ik kan niet vinden hoe ik dit kan aanpassen zodat ik ze automatisch allemaal ingelezen kan krijgen, nu is de import gekoppeld aan de ingelezen txt file.
De bestanden hebben allemaal dezelfde opmaak en we willen alle data vanaf regel 4 inlezen.
De code die nu is opgenomen:
Ik hoop dat iemand me hier mee kan helpen
Per dag krijgen we een paar txt files met bestellingen binnen. Nu willen we die graag tegelijk inlezen in excel en onder elkaar zetten. Ik heb geprobeerd via een macro de import van 1 txt file in te lezen maar ik kan niet vinden hoe ik dit kan aanpassen zodat ik ze automatisch allemaal ingelezen kan krijgen, nu is de import gekoppeld aan de ingelezen txt file.
De bestanden hebben allemaal dezelfde opmaak en we willen alle data vanaf regel 4 inlezen.
De code die nu is opgenomen:
Code:
Sub Macro2()
'
' Macro2 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\test\100059-6057-20160601.TXT", Destination:=Range("$A$1"))
.CommandType = 0
.Name = "100059-6057-20160601"
.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 = 4
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A24").Select
End Sub
Ik hoop dat iemand me hier mee kan helpen