Daten aus Textdatei per VBA importieren
10.06.2003 13:45:56
Markus
In einer Excel Mappe befinden sich 2 Tabellen. Eine 3. soll über ein Makro in dieselbe Mappe importiert werden (aus einer Textdatei).
Nun habe ich den für diesen Zweck im Archiv beschriebenen code in ein neues Modul eingebaut. Was muss ich noch machen, damit das modul in Kraft tritt und ist im unteren code alles korrekt eingefügt? (Wie gesagt, bin Neuling. Aber jeder fängt ja mal an):
Sub TextImport()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
fFile = Application.GetOpenFilename("Textdateien (*.txt), C:\Temp\excel.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
mfg
Markus
Anzeige