Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateipfad mit Auswahl

Dateipfad mit Auswahl
27.01.2020 12:12:57
Michael
Hallo,
ich habe mal wieder ein Problemchen :)
Ich habe eine Excel-Datei in der ein Makro ausgeführt wird.
Dieses importiert eine Datei vom Laufwerk E wie folgt:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\Datei.LOG", _
das funktioniert auch alles super.
Jetzt möchte ich aber das nicht von dem Laufwerk e:\ die Datei.LOG importiert wird,
sondern zunächst eine Abfrage aus dem selben Verzeichnis in der meine Excel-Datei
liegt nach Ordnern geschaut wird die nach Datum benannt sind z. B. 27-01-2020 oder 25-01-2020 oder 18-02-2020
Ich bekomme also wenn mein Makro gestartet wird eine Frage: wählen sie aus folgenden Ordner:
27-01-2020 oder 25-01-2020 oder 18-02-2020
bei Auswahl geht er in den entsprechenden Ordner und öffnet z.B. \18-02-2020\Datei.LOG
und das Makro läuft weiter.
Bedeutet in jedem Ordner liegt eine Datei.LOG nur mit anderem Inhalt.
Würde mich über Feedback freuen.
Vielen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateipfad mit Auswahl
27.01.2020 13:37:15
UweD
Hallo
so?
 Sub dsdsds() ' 
    Dim Dlg As FileDialog
    Dim FFile As String, Pfad As String
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    
    'anpassen 
    FFile = "Datei.LOG"
    Dlg.InitialFileName = "E:\" 'oder ThisWorkbook.Path 'Welches Verzeichnis soll voreingestellt sein 
    
    
    
    If Dlg.Show = True Then
        Pfad = Dlg.SelectedItems(1) 'Der ausgewählte Pfad 
        Pfad = Pfad & IIf(Right(Pfad, 1) = "\", "", "\") 'ggf \ anhängen 
        
        If Dir(Pfad & FFile) <> "" Then 'prüfen, ob Datei da ist 
           MsgBox "Ist da"
           'Mach was damit 
           
           ' With ActiveSheet.QueryTables.Add(Connection:="TEXT;Pfad & FFile", 
           
           
        End If
    End If
End Sub

LG UweD
Anzeige

25 Forumthreads zu ähnlichen Themen

Verzeichnispfad der geöffneten Datei bestimmen
Polarfuchs

Hallo Ihr Checker,
gibt es eine Möglichkeit, den Verzeichnispfad der aktuell geöffneten Excel-Datei in eine String-Variable einzulesen. Ich bräuchte dass, weil ich von einem USB-Stick Bilder in ein Image einer UserForm einfüge. Da der Stick aber, je nach Computer, immer eine andere Laufwerk...
20.11.2008 14:00:00
Thread-ID: 1026414
4 Beiträge
Anzeige
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
pfad von importierender Datei
importierender

Hallo,
wenn ich die exceldatei(Programm.xls) öffne, dann fügt sie mir von einer anderen exceldatei ein tabellenblatt ein. Jetzt hab ich das problem, wenn ich den ordner, wo ich mein excelprogramm liegt, auf einen USB Stick speichere und mit einem anderen pc öffne, dann sagt mir das Progri,...
13.09.2012 21:10:26
Thread-ID: 1278550
6 Beiträge
Anzeige
Pfadangaben zu anderen xls(x)-Dateien
Dan

Hallo im Forum!
Ich habe ein zentrale Excel-Datei (1) für Auswertungen, die auf verschiedene Tabellenblätter (Tab1 und Tab2) einer anderen Datei (2) zugreifen soll, wobei diese nicht geöffnet vorliegt.
Die Tabellenblätter der Datei 2 sind von der Anordnung der Daten identisch aufgebaut....
08.10.2014 15:43:26
Thread-ID: 1385629
5 Beiträge
Dateipfad der Ursprungsdatei übernehmen
trine

Hallo zusammen,
ich habe mal wieder eine Frage bei der Erstellung eines Excel-blattes und hoffe auf Eure Hilfe.
Ich möchte ein Excel-Rechnenblatt erstellen. Um überprüfen zu können, ob die aktuell gültige Vorlage verwendet wird, möchte ich das bei "speichern unter" der Dateipfad und Nam...
16.04.2015 22:44:13
Thread-ID: 1421360
2 Beiträge
Verketten mit Pfad zu einer anderen Datei
Phil

Hallo zusammen,
oft konnte ich in Foren wie diesem Hilfe finden, doch dieses mal komme ich ohne einen eigenen Beitrag nicht mehr weiter. Ich hoffe jemand hier kann mir helfen :-)
Zu meinem Problem:
Erstmal in Worten. Ich möchte mehrere Excelfiles nach bestimmten Textstrings durchsu...
28.02.2017 17:46:27
Thread-ID: 1544691
18 Beiträge
Pfad der aktuellen Datei auslesen (Netzlaufwerke)
Nils

Hallo,
Solange ich mich Lokal bewege kann ich mit activeworkbook.path den Pfad der aktuellen datei Auslesen. Aber sobald ich das gleiche mit einer geöffneten Mappe auf meinen Netzlaufwerken tue, funktioniert der Code nicht mehr. Und das obwohl ich die Netzlaufwerke mit Laufwerksbuchstaben e...
22.05.2017 18:50:35
Thread-ID: 1559778
2 Beiträge
Makro der aktuellen Datei ...
sigrid

Guten Morgen,
habe mal wieder eine Fachfrage.
Ich habe ein Speichermakro, hier wird ins Verzeichnis etc. gespeichert,
läuft einwandfrei.
Mit dem Speichern wird auch mein Modul1 in die neue gespeicherte Datei
kopiert, auch einwandfrei.
Nun habe ich festgestellt, wenn ich...
27.07.2019 09:50:46
Thread-ID: 1704461
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
1
5
2
4
1
17
1
21
1
1
1
4
2
2
4
6
2
2
7
2
1
23
4