Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiauswahl mit Dateiname aus einer Variablen
04.05.2021 09:34:51 Datenmaus
Solved
04.05.2021 10:07:14 volti
NotSolved
04.05.2021 11:02:08 datenmaus
NotSolved

Ansicht des Beitrags:
Von:
Datenmaus
Datum:
04.05.2021 09:34:51
Views:
46
Rating: Antwort:
 Nein
Thema:
Dateiauswahl mit Dateiname aus einer Variablen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiauswahl mit Dateiname aus einer Variablen
04.05.2021 09:34:51 Datenmaus
Solved
04.05.2021 10:07:14 volti
NotSolved
04.05.2021 11:02:08 datenmaus
NotSolved