|
Guten Morgen,
ich möchte eine Textdatei in Excel importieren, das geht alles mit dem Script.
Jetzt möchte ich aber das ich die Datei nicht zuerst suchen muss, sonder das schon die entsprechende Datei ( es wird später in dem Ordner vieleDateien geben) vorausgewählt ist.
Der Dateiname entspricht immer einer Variablen die ich auslese. Der Dazteiname ist dann immer "Variablenname".txt (12345.txt)
Kann ich das realisieren, finde nichts passendes?
So ist aktuell der Code:
Sub import()
Dim wks As Worksheet
Dim vFile As Variant
Application.ScreenUpdating = False
'Set wks = ActiveSheet
Set wks = Worksheets("Files")
ChDrive "c:"
ChDir "c:\testimport"
vFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
If vFile = False Then Exit Sub
Workbooks.OpenText Filename:=vFile, Tab:=False, semicolon:=False, comma:=False, Space:=False, other:=True, OtherChar:="|"
ActiveSheet.UsedRange.Copy wks.Range("A2")
ActiveWorkbook.Close savechanges:=False
Range("A2").Select
Application.ScreenUpdating = True
Worksheets("Filese").Activate
End Sub
|