Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Import versch. txt.-Dateien mit Makro

Import versch. txt.-Dateien mit Makro
25.05.2006 18:08:48
Michael
Hallo zusammen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import versch. txt.-Dateien mit Makro
27.05.2006 13:07:29
schauan
Hallo Michael,
dann legst Du den Namen nicht fest sondern beziehst Dich auf A1
.Name = [a1] 'entspricht Range("A1")
AW: Import versch. txt.-Dateien mit Makro
29.05.2006 10:28:20
Michael
Hallo Andre,
vielen Dank für deine Antwort. Du hast mich schon mal ein Stück weitergebracht.
Ich habe den Code folgendermassen verändert und er funktioniert für einen Dateinamen:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;U:\Postventa\OFERTAS S.T\OFERTAS\" & Range("A23").Value, Destination:=ActiveCell)
.Name = [A23]
.FieldNames = True
.RowNumbers = False
Jedoch weiss ich jetzt nicht, wie ich die Bandbreite von A1 - A50 abdecken soll, d.h. ich habe 50 verschiedene .txt Files (deren versch. Namen in Spalte A stehen) - wenn ich als ActiveCell B2 markiere soll er File A2 ziehen, B3 - A3 usw.
Vielen Dank nach Gera...
vg Michael
Anzeige
AW: Import versch. txt.-Dateien mit Makro
29.05.2006 10:28:32
Michael
Hallo Andre,
vielen Dank für deine Antwort. Du hast mich schon mal ein Stück weitergebracht.
Ich habe den Code folgendermassen verändert und er funktioniert für einen Dateinamen:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;U:\Postventa\OFERTAS S.T\OFERTAS\" & Range("A23").Value, Destination:=ActiveCell)
.Name = [A23]
.FieldNames = True
.RowNumbers = False
Jedoch weiss ich jetzt nicht, wie ich die Bandbreite von A1 - A50 abdecken soll, d.h. ich habe 50 verschiedene .txt Files (deren versch. Namen in Spalte A stehen) - wenn ich als ActiveCell B2 markiere soll er File A2 ziehen, B3 - A3 usw.
Vielen Dank nach Gera...
vg Michael
Anzeige
AW: Import versch. txt.-Dateien mit Makro
29.05.2006 17:09:00
schauan
Hallo Michael,
im prinzip so
for i=1 to 50
...
txt_name = cells(i,1)
...
next
txt_name verwendest Du dann bei Dir als Variable für den Dateinamen oder Du nimmst es gleich direkt
...
.Name=cells(i,1)
...
AW: Import versch. txt.-Dateien mit Makro
13.06.2006 16:52:50
Michael
Hallo Andre,
sorry für die späte Rückmeldung aber ich war im Urlaub und das Thema war auch nicht mehr aktuell. Aber jetzt habe ich eine Lösung gefunden mit der ich ganz gut Leben kann:

Sub Importar()
' Importar Macro
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\mploeck\Mis documentos\Oferta " & ActiveCell.Value & ".doctxt", _
Destination:=ActiveCell)
.Name = "Oferta & ActiveCell.Value & .doctxt"
.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

vg michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige