Hi,
ich schon wieder
ich habe per VBA eine Schaltfläche, über die ich kommagetrennte Textdateien importieren möchte. Dazu habe ich ein Makro aufgenommen.
Ansich funktioniert es auch.
Problem: Die Importdateien sollen, wenn schon Daten im Arbeitsblatt sind, immer unter die letzte vorhandene Zeile eingefügt werden.
Und, wie kann ich eine andere, beliebige Textdatei anwählen (Dialogfenster). So verweist der immer auf die Gleiche.
Bastele jetzt seit Stunden rum, finde aber keine Lösung.
Würde mich über einen Tipp freuen
Grüße
Manu
ich schon wieder
ich habe per VBA eine Schaltfläche, über die ich kommagetrennte Textdateien importieren möchte. Dazu habe ich ein Makro aufgenommen.
Ansich funktioniert es auch.
Problem: Die Importdateien sollen, wenn schon Daten im Arbeitsblatt sind, immer unter die letzte vorhandene Zeile eingefügt werden.
Und, wie kann ich eine andere, beliebige Textdatei anwählen (Dialogfenster). So verweist der immer auf die Gleiche.
Bastele jetzt seit Stunden rum, finde aber keine Lösung.
Code:
Sub TextImport()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
vFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If vFile = False Then Exit Sub
Workbooks.OpenText Filename:=vFile, Tab:=False, semicolon:=False, _
comma:=True, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Würde mich über einen Tipp freuen
Grüße
Manu