Thema Datum  Von Nutzer Rating
Antwort
Rot Dateipfad und -name durch Dialogfeld festlegen
04.06.2019 18:19:05 Julian
NotSolved
04.06.2019 19:10:06 Gast42212
NotSolved

Ansicht des Beitrags:
Von:
Julian
Datum:
04.06.2019 18:19:05
Views:
40
Rating: Antwort:
  Ja
Thema:
Dateipfad und -name durch Dialogfeld festlegen

Hallo liebe Leute,

in meiner bosherigen VBA Programmieurng habe ich die Pfade der zu öffnenden Dateien fix eingetragen etwa:

    ChDir "C:\xxx\xxxx\xxxx\xxx\xxx"
    Workbooks.OpenText fileName:= _
        "C:\xxx\xxxx\xxxx\xxxx\xxx\Dateiname.txt", Origin:=xlMSDOS _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
 
Nun möchte ich es variabilisieren. Ich möchte, dass ein Dialogfeld geöffnet wird, der mich fragt wo meine Datei gespeichert ist. Die Eingabe soll dann einer variablen zugeordnet werden z.B. "Pfad1".
Der Name der zu öffnenden Datei wird dann in Zelle C5 des Excel Sheets in dem sich der Knopf mit dem Makro befindet. eingetragen und soll auch einer Variablen zugeordnet werden z.B. Dateiname1.
 
Sodass der Quellcode dann in etwa so aussieht:
 
    ChDir "Pfad1"
    Workbooks.OpenText fileName:= _
        "Pfad1 & "\" & Dateiname1", Origin:=xlMSDOS _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
 
Diese Abfrage soll er dann 4 mal durchlaufen, da im Laufe meines Codes 4 Dateien geöffnet werden.
 
Da ich in VBA ein echter Anfänger bin, bräuchte ich hierbei von 0 auf Hilfe. Ich hoffe meine Erläuterungen sind Verständlich genug.
 
Ich freu mich auf eure Beiträge!
 
Viele Grüße
Julian

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateipfad und -name durch Dialogfeld festlegen
04.06.2019 18:19:05 Julian
NotSolved
04.06.2019 19:10:06 Gast42212
NotSolved