textadtei
JensZ
wie kann man den code ändern?
Ich habe ein Tabellenblatt "Datei" und eins "Import"
auf dem Tab-Blatt "Datei" ist ein Button "TextDateiOeffnen"
wenn ich ihn drücke soll die textadtei in "Import" eingefügt werden.
Bitte um hilfe
gruß Jens
Sub TextDateiOeffnen()
Dim wks As Worksheet
Dim vfile As Variant
Application.ScreenUpdating = False
Set wks = ActiveSheet
vfile = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
If vfile = False Then Exit Sub
ActiveSheet.Cells.Delete
Workbooks.OpenText FileName:=vfile, Tab:=False, semicolon:=False, _
comma:=True, Space:=False, other:=False
ActiveSheet.UsedRange.Copy wks.Range("A1")
ActiveWorkbook.Close savechanges:=False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Anzeige