Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

FileDialog-Objekt unter O2k

Forumthread: FileDialog-Objekt unter O2k

FileDialog-Objekt unter O2k
20.12.2007 13:45:36
Thomas
Hallo,
unter Office 2003 hab ich ein Makro, das gut funktioniert. Unter Office 2000 funktioniert folgender Befehl nicht, das geht mit dem FileDialog-Objekt wohl erst ab Office XP:
' Ordner wählen
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewDetails
.Title = "Bitte einen Ordner wählen."
If .Show = -1 Then
strPfad = .SelectedItems(1)
Else
Exit Sub
End If
End With
Gibt es unter Office 2000 etwas Vergleichbares?
In dem Ordner sollen mehrere Textdateien gespeichert werden.
Danke und Gruß
Thomas

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
BrowseForFolder
20.12.2007 14:01:39
ransi
HAllo
Versuch doch mal sowas :
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub Aufruf()
MsgBox get_Folder("Was soll ich machen?", "D:\Eigene Dateien\")
End Sub

Public Function get_Folder(Optional capt, Optional StartVerzeichniss)
Dim objShell As Object
Set objShell = CreateObject("Shell.Application").BrowseForFolder(0&, capt, 0, StartVerzeichniss)
If Not objShell Is Nothing Then get_Folder = objShell.Self.Path
End Function

ransi

Anzeige
AW: BrowseForFolder
20.12.2007 15:43:23
Thomas
Hallo ransi,
danke...Wo steckt dann mein Pfad drin...bisher in Variable strPfad?
Gruß Thomas

AW: BrowseForFolder
20.12.2007 15:49:00
Thomas
Hallo Ransi,
hatte nen Brett vorm Kopf:
strPfad=get_Folder("Was soll ich machen?", "D:\Eigene Dateien\")
Vielen Dank...Funktioniert super...
Gruß
Thomas
;

Beliebteste Forumthreads (12 Monate)

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