Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dialog mit fixem Dateiname

Dialog mit fixem Dateiname
21.05.2014 19:09:52
Pietro

Hallo zusammen
Ich bin auf der Suche nach einem Code für einen Dialog zum Öffnen einer Datei. Dabei sollte der Dateiname fest vorgegeben sein (immer die gleiche Datei z.B. "Test.xlsx") und das Verzeichnis mittels Auswahl ausgewählt werden können.
Gibt es allenfalls einen Zusatz zum Code
Application.GetOpenFilename
der dies ermöglicht.
Besten Dank für alle Bemühungen
Pietro

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog mit fixem Dateiname
21.05.2014 19:15:47
Hajo_Zi
Hallo Pietro, 

Function GetAOrdner2() As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
GetAOrdner2 = .SelectedItems(1) & "\"
Else
GetAOrdner2 = ""
End If
End With
End Function

AW: Dialog mit fixem Dateiname
21.05.2014 20:59:14
Pietro
Hallo Hajo
Besten Dank für die Antwort
Mit deiner Funktion wird ein Dialog geöffnet in dem irgendein Pfad ausgewählt werden kann. Leider wird dabei nicht geprüft ob die Datei z.B. "Test.xlsx" auch vorhanden ist.
Ich brauche einen Code mit dem ein Dialog geöffnet wird. Ich kann nun irgendeinen Pfad auswählen. Wenn die Datei (immer den gleichen Dateinamen z.B. "Test.xlsx") im Pfad vorhanden ist, kann mit ok diese Datei geöffnet werden.
Es grüsst
Pietro

Anzeige
AW: Dialog mit fixem Dateiname
22.05.2014 05:57:22
Hajo_Zi
Hallo Pietro,
ich habe mich an das gehalten was im ersten Beitrag steht, nur ein Dialog für Ordner.
Rufe Datei öffnen auf, benutze den Makrorecorder.
Gruß Hajo

AW: Dialog mit fixem Dateiname
22.05.2014 09:02:56
kimbo
Versuch es mal hier mit.
    Dim Datei
Dim dat
Set dat = Application.FileDialog(msoFileDialogFilePicker)
MsgBox ("Bitte Test.xlsx auswählen")
With dat
.Title = "Netzwerk...."
.InitialFileName = "d:\" 'oder was auch immer
If .Show = -1 Then
For Each Datei In .SelectedItems
posn = Datei
Next Datei
End If
End With
pfadfragment = Split(posn, "\")
anzahl = UBound(Split(posn, "\"))
pfadpos = pfadfragment(anzahl)   'gibt den Dateinamen aus
If pfadpos <> "Test.xlsx"
MsgBox("Falsche Datei angegeben")
End If
Kannst sicherlich in der letzten If-Abfrage wenn gewollt auch zurück auf den Datenpicker verweisen, sodass quasi immer die Abfrage kommt bis die richtige Datei ausgewählt wurde.
Gruß
kimbo

Anzeige
AW: Dialog mit fixem Dateiname
22.05.2014 07:22:04
Hajo_Zi
Hallo Pietro,
Application.Dialogs(xlDialogOpen).Show
Gruß Hajo

AW: Dialog mit fixem Dateiname
22.05.2014 09:06:52
kimbo
Sorry, die letzte If-Abfrage sollte in etwa so aussehen.
If pfadpos <> "Test.xlsx"
MsgBox("Falsche Datei angegeben")
Exit sub
End If

AW: Dialog mit fixem Dateiname
22.05.2014 10:31:03
Pietro
Hallo Kimbo
Habe deinen Beitrag beinahe übersehen. Besten Dank.
Dein Code stellt sicher, dass nur die Datei "Test.xlsx" in einem beliebigen Pfad geöffnet werden kann und erfüllt somit meine Anforderung.
Nochmals besten Dank. Einen schönen Tag wünscht
Pietro

Anzeige
AW: Dialog mit fixem Dateiname
22.05.2014 09:18:27
Pietro
Hallo Hajo
Besten Dank für deine Antworten.
Leider fehlt auch bei diesem Code die Erweiterung, dass der zu öffnende Dateiname (z.B. "Test.xlsx") vorgegeben ist.
Ich habe schon über zwei Stunden gegoogelt und wurde nicht fündig. Anscheinend gibt es keine Lösung für dieses Problem.
Einen schönen Tag wünscht
Pietro

AW: Dialog mit fixem Dateiname
22.05.2014 10:07:14
hary
Moin
So? 
.InitialFileName = "Test"
.Filters.Add "XML-Dateien (*.xlsx)", "*.xlsx", 1

gruss hary

AW: Dialog mit fixem Dateiname
22.05.2014 15:23:38
Pietro
Hallo Hary
Besten Dank für deinen Hinweis. Doch er bringt mich nicht weiter (meine VBA-Kenntnisse sind nicht alzu gross). Zu welcher Funktion gehört er?
With Application.Dialogs(xlDialogOpen)
.InitialFileName = "Test"
.Filters.Add "XML-Dateien (*.xlsx)", "*.xlsx", 1
End With
funktioniert nicht.
Besten Dank für eine Antwort
Pietro

Anzeige
AW: Dialog mit fixem Dateiname
22.05.2014 15:53:41
hary
Moin
Ich bin von Kimbos Code ausgegangen. 
Dim Datei
Dim dat
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = "Netzwerk...."
.InitialFileName = "Test"
.Filters.Add "XML-Dateien (*.xlsx)", "*.xlsx", 1
If .Show = -1 Then
For Each Datei In .SelectedItems
posn = Datei
Next Datei
End If
End With

gruss hary

AW: Dialog mit fixem Dateiname
22.05.2014 16:04:42
Pietro
Hallo Hary
Vielen Dank für die schnelle Antwort.
Genau dies habe ich gesucht. Damit ist sichergestellt, dass nicht die falsche Datei geöffnet werden kann.
Einen schönen Tag wünscht
Pietro

Anzeige

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Platzhalter fuer Dateiname
Dirk

Hallo an alle Tüftler,
ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung...
19.08.2008 16:21:08
Thread-ID: 1002987
5 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Anzeige
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge

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
3
4
4
4
7
2
1
9
2
8
2
7
1
4
3
4
2
5
2
2
2
2
4
26