Makro som importerer txt filer

[moav]

Hei

Trenger hjelp med en makro som skal importere alle txt filene fra en katalog inn i et regneark.

 

Har laget en makro som importerer en txt fil.

(alle txt filene er likt formatert)

 

Klikk for å se/fjerne innholdet nedenfor

Sub Makro2()

'

' Makro2 Makro

' Makro registrert 06.02.2007 av Morten

'

' Hurtigtast: CTRL+SKIFT+A

'

With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\test\1.txt", _

Destination:=ActiveCell)

.Name = "1"

.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 = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With

End Sub

[Harald Staff]

Se om du kan tilpasse denne loop'en:

 

http://www.contextures.com/xlfaqMac.html#LoopBooks

 

HTH. beste hilsen Harald

[moav]

Takker

Det var en sånn loop jeg var ute etter.

Skal se om jeg klarer å tilpasse den i morgen.