Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

GetOpen "Pfadname"

Forumthread: GetOpen "Pfadname"

GetOpen "Pfadname"
16.06.2004 10:43:56
Frederik
Guten Tag!
Ich möchte in einer UserForm ein Label mit einem Pfad darstellen, der Pfad soll vom Benutzer geändert werden können, allerdings stelle ich mir sowas wie "Application.GetOpen..." vor, also den Pfad nicht von Hand schreiben müssen.
Kann mir jemand den passenden Befehl dazu geben?
Gruß
Frederik
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetOpen "Pfadname"
16.06.2004 11:19:30
chris
Hallo Damit gehts... Was du brauchst eine Userform ein Label und einen Commandbutton !
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function GetDirectory(Optional Msg As String) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
GetDirectory = Left(Path, pos - 1)
Else
GetDirectory = ""
End If
End Function 

Private Sub CommandButton1_Click()
Dim strDir As String
strDir = GetDirectory
If strDir = "" Then
MsgBox ("Keine angabe")
Exit Sub
End If
If Left(strDir, 1) <> "\" Then strDir = strDir & "\"
SendKeys "{end}"
cb = strDir
Label1.Caption = cb
If strDir = "" Then Exit Sub
End Sub

Anzeige
AW: GetOpen "Pfadname"
Frederik
Vielen Dank!
Gruß
Frederik
;

Forumthreads zu verwandten Themen

Application.GetOpenFilename+Dateiart
SteffenS

Hallo Zusammen,
ich möchte über
FName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", Title:="Import Datei öffnen", MultiSelect:=False)
eine ZipDatei weiterverarbeiten.
Leider kann ich diese über diesen Befehl unter Excel 2000 nicht auswählen.
Wenn ich...
18.08.2008 22:30:43
Thread-ID: 1002756
4 Beiträge
Application.GetOpenFilename+Dateiart
SteffenS

Hallo Zusammen,
ich möchte über
FName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", Title:="Import Datei öffnen", MultiSelect:=False)
eine ZipDatei weiterverarbeiten.
Leider kann ich diese über diesen Befehl unter Excel 2000 nicht auswählen.
Wenn ich...
18.08.2008 23:06:59
Thread-ID: 1002762
3 Beiträge
Anzeige
Application.GetOpenFilename
Jana

Hallo liebes Forum!
Aus einer bestehenden Datei heraus möchte ich eine zweite Excel-Datei ansprechen.
1. Diese zweite Datei wird geöffnet
2. Alle Daten werden ausgelesen und in meine bestehende Datei eingelesen
3. Diese zweite Datei wird wieder geschlossen.
Soweit. dank eure...
19.11.2008 10:43:23
Thread-ID: 1025916
3 Beiträge
Anzeige
GetSaveAsFilename
Frank68

Halle Gemeinde,
eine Frage: Kann ich die Methode GetSaveAsFilename so modifizieren, dass im Dialogfeld ein bestimmter Dateiname (= Vorschlag) steht, der beispielsweise aus einer Zelle dieser Tabelle "gezogen" wird?
Dank!
20.01.2009 00:49:10
Thread-ID: 1041695
4 Beiträge
Application.GetOpenFilename
ioannis

Hallo zusammen,
kann man mit Application.GetOpenFilename Dateien aus mehreren Ordner auswählen, und in eine Array schreiben? Strg+Datei funktioniert nur solange die Dateien sich im gleichen Ordner befinden...
Vielen Dank schon mal in Voraus.
Freundliche Grüße
ioannis
08.05.2009 19:14:17
Thread-ID: 1073993
5 Beiträge
GetSaveAsFilename - mögliche Dateiendungen ermitt.
Norman

Hallo alle,
habe mal wieder ein komisches Problem :) Ich will GetSaveAsFilename nutzen. Klappt auch bestens. Jetzt möchte ich aber auch genau die Dateitypen als Filter anbieten, die Excel selbst anbietet. Normalerweise gibt es da, je nach Installation von Excel, unterschiedliche Endung von...
07.06.2009 21:35:16
Thread-ID: 1079758
7 Beiträge
Anzeige
Typenfehler bei MulktiSelect mit openFileName
susanne

Hallo,
ich habe mal ver sucht im OppenFileName Dialog die Multiselect -option zu aktivieren.
Funktioniert auch auf Anhieb,
aber wenn ich jetzt auf "abbrechen " klicke gibt es einen Typfehler
und das Script bricht ab.
Vorher mit MultiSelect=false war alles ok.
Bei "abbrec...
14.07.2009 14:25:59
Thread-ID: 1088498
5 Beiträge
Anzeige
GetOpenFilename
Peter/Berlin

Hi VBA-Fans,
zum Öffnen einer Datei möchte ich das Standarddialogfeld Öffnen aktivieren und nur die xls-Dateien zur Auswahl sehen, die mit einem 'D' beginnen.
Wo muss ich in unten angegebenem Code dieses 'D' unterbringen, damit es klappt?
fileToOpen = Application.GetOpenFilename("Ex...
10.09.2009 18:11:11
Thread-ID: 1101833
3 Beiträge
Workbooks.Open Filename:=...........
Peter/Berlin

Hallo VBA-Fans,
ich möchte mit VBA das Workbook wkb (Pfad aa) öffnen mit deaktivierten Makros
Workbooks.Open Filename:=aa & wkb, writerespassword:=pw
Wie muss der Code lauten, damit dies gelingt?
Gruß aus Berlin
Peter
16.09.2009 12:31:47
Thread-ID: 1103203
3 Beiträge
GetSaveAsFilename
Ansgar

Hallo Experten,
ein unter Excel 2000 erstellter Code beinhaltet den GetSaveAsFilename-Befehl. Dieser funktionerte dort problemlos.
Jetzt läuft das Makro aber unter Excel 2007. Das Abspeicher funktioniert mit
fname = Application.GetSaveAsFilename("LISTUNGEN", _ "Excel 97-2003-Arbeit...
17.05.2010 18:36:27
Thread-ID: 1157428
6 Beiträge
GetSaveFileName und Typwechsel anders als bei XL
norman

Hi alle,
ich habe versucht mit Application.Dialogs(xlDialogSaveAs).Show zu arbeiten, allerdings muss ich noch vor dem Speichern in VBA wieder die Kontrolle übernehmen, was bei diesem Dialog nicht geht.
Daraufhin bin ich auf
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias...
19.07.2010 23:41:46
Thread-ID: 1167802
5 Beiträge
GetOpenFilename nicht nur xls-Mappen öffnen
Lutz

Hallo,
möchte gern mit dem Resultat von Dialog Application.GetOpenFilename nicht nur Excel-, sondern auch andere Dokumente, mit der jeweiligen Anwendung starten.
Wie kann ich das bewerkstelligen?
M.f.G.
Lutz
13.10.2010 17:54:50
Thread-ID: 1182301
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige