Import versch. txt.-Dateien mit Makro
25.05.2006 18:08:48
Michael
ich habe folgendes Problem:
Ich benötige ein Makro um bestimmte txt. Dateien ins Excel zu laden. Die Dateien befinden sich alle in einem Verzeichnis und tragen jeweils den gleichen Namen wie eine Zelle auf dem Tabellenblatt. (z.B. in Zelle A1 steht 06R01 und die txt Datei heisst 06R01.txt) Der Anwender soll nun die Zelle B1 markieren und anschliessend einen Button drücken, dann sollen die Werte der txt Datei 06R01.txt in die Zeile B1, C1, D1,usw. eingetragen werden. Wenn er Zelle B2 markiert und den Button drückt sollen die Werte von 06R02.txt in die Zellen B2, C2, ... eingetragen werden (in A1 steht 06R02).
Ich hoffe ich habe jetzt keinen verwirrt
Bislang konnte ich die Daten per aufgezeichnetes Makro eintragen, da der Name immer der gleiche war - da ich aber diese externen Daten später aktualisieren will benötige ich die verschiedenen txt files.
Hier der Code des aufgezeichneten Makros:
Sub Importar()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;U:\Postventa\OFERTAS S.T\OFERTAS\Import.txt", _
Destination:=ActiveCell)
.Name = "Import.txt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
Sheets("Ofertas").Select
ActiveSheet.Cells(65536, 2).End(xlUp).Offset(1, 0).Select
End Sub
Vielen Dank schon mal im vorraus
vg Michael