Hallo
Ich habe ein Formular. In einem Feld im Formular muss man eine Pfadangabe machen zum importieren einer Exceltabelle. Das Funktioniert auch alles wunderprächtig.
Nun wollte ich gerne wissen ob man über VBA eine Art Durchsuchen-Button programmieren kann, mit dem man die Laufwerke des PCs nach der Datei bequem durchsuchen kann ohne den Pfad extra einzutippen zu müssen? Ist ja auf Dauer doch etwas lästig.
Danke im Voraus, Kinglui
ich denke http://www.donkarl.com/index.htm?/FAQ/FAQ8Kommunikat… hier findest du die lösung deines problems 
grüsse -flo-
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Das ist etwas Aufwendiger!
Hier der Code für die Prozedure
dim Datei (0 to 100)
'Open File Applikation
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Me.Hwnd
OpenFile.lpstrFilter = sFilter
'OpenFile.nFilterIndex
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = „C:“
OpenFile.lpstrTitle = „Datei für den Anhang wählen“
OpenFile.lpstrTitle = „‚Öffnen‘-Dialog der Common Dialog API“
OpenFile.flags = 0
v=0
do until true
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox „Keine weitere Datei im Anhang.“
Exit Do
End If
Datei(v) = OpenFile.lpstrFile
v = v + 1
loop
…
Nun die Deklaration die Du in ein Modul schreibst. (und zwar am Anfang!)
'Anfang des Deklarationsblocks für GetOpenfileName
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib „comdlg32.dll“ _
Alias „GetOpenFileNameA“ (pOpenfilename As OPENFILENAME) As Long
'Ende des Deklarationsblocks
und so kannst Du mit GetOpenFileName das Dialogfeld öffnen.
Grüsse Sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hat geklappt! Vielen Dank für die Hilfe.