Dateiname in Variable und automatisches auswählen

[datenmaus]

Guten Morgen,

mit folgendem Sript gehe ich in den voreingestellten Pfad und öffne dann per manueller Auswahl eine Datei und lese diiese in ein Workbook ein.

Das klappt alles soweit.

Nun möchte ich aber das die Datei automatisch ausgewählt wird (Dateiname ist dann in einer Variablen bekannt).

Bisher bin ich leider darn gescheitert und bitte nun hier um Hilfe.

Hier das Script.

Sub datei_einlesen()

  Dim wks As Worksheet
  Dim vFile As Variant
 
  Dim Projekt As String
  Dim Dateiendung As String
  Application.ScreenUpdating = False
 
  Dateiendung = ".txt"

  Set wks = Worksheets("Workbook1")
 
  ChDrive "C:"
  ChDir "C:\TEMP\files\1\"
 
  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("Workbook1").Activate

End Sub


Vielen lieben Dank

[Kuwer]

Hallo,

ersetze

Code:

vFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")

mit

Code:

vFile = "C:\TEMP\files\1\Name_der_Datei.txt"

Gruß Uwe

[datenmaus]

Hallo,

danke, ist damit erledigt .

Super