Excel: Datei in Arbeitsblatt laden

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich möchte gerne eine Txt Datei in ein neues Tabellenblatt innerhalb einer Excel Datei laden, wenn ich die Excel Datei öffne. Dies soll automatisiert erfolgen und alles soll in einer Datei erfolgen.

So weit bin ich bisher, aber damit öffnet sich immer eine neue Excel Datei
Private Sub Workbook_Open()

Workbooks.OpenText _
Filename:=„C:\Textfile.txt“, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), _
Array(2, 1), _
Array(3, 1), _
Array(4, 1)), _
TrailingMinusNumbers:=True

With ThisWorkbook
ActiveSheet.Move after:=.Worksheet(1)
ActiveSheet.Name = „Quelle“
End With
End Sub

Vielleicht kann mir jemand helfen?
Gruß
Carsten

#2

Hallo, Carsten!

So weit bin ich bisher, aber damit öffnet sich immer eine neue
Excel Datei
Private Sub Workbook_Open()

Ja, das sagst Du ihm hier ja auch: Öffne eine ein neues Workbook, also: Datei.

Workbooks.OpenText _

Mit beiden geöffneten Dateien zeichne Dir schnell ein Makro auf, welches die benötigte Tabelle Deiner geöffneten Textdatei ans Ende Deiner gewünschten Zieldatei kopiert. Syntax und Befehle habe ich gerade nicht parat.

Diesen Code rufst Du nach Deinem Workbooks.OpenText auf, und anschließend schließt Du die überflüssige Datei mit Workbooks(„Textfile.txt“).close ohne speichern.

Gruß, Manfred