Textdatei in bestehender EXCEL-Mappe öffnen;VBA
22.10.2004 17:23:54
Jan
ich habe ein kleines Problem. Wie kann ich in eine bestehende Excel Arbeitsmappe eine Textdatei einlesen? habe ein kleines VBA-Makro, dass öffnet mir immer ein neues Arbeitsblatt, möchte aber gerne die Datei in eine bestehende EXCEL-Datei importieren. Bin nicht soo fit in VBA, hoffe ihr könnt mir helfen.
Vielen dank und liebe Grüße
Jan
P.S.: Hier mein Makro:
Sub TextDateiOeffnen()
Dim datName
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
datName = Application.GetOpenFilename _
("DAT-Files (*.dat), *.dat")
If datName = False Then Exit Sub
Workbooks.OpenText Filename:=datName, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Space:=False
MsgBox "Das DAT file " & datName & " wurde erfolgreich eingelesen!", vbInformation, "Einlesevorgang erfolgreich!"
End Sub
Anzeige