Gruppe
Allgemein
Problem
Wie kann ich eine Textdatei in ein Tabellenblatt der aktiven Arbeitsmappe importieren? Das Semikolon ist Feldtrennter und der Inhalt des aktiven Blattes muß vorher gelöscht werden.
StandardModule: basMain
Sub TextImport()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
fFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If vFile = False Then Exit Sub
ActiveSheet.Cells.Delete
Workbooks.OpenText FileName:=vFile, Tab:=False, semicolon:=True, _
comma:=False, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub