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