aus einem Ordner in C: Dateien zeigen
26.01.2004 21:15:38
Maren
ich habe ein kleines Problem. Ich möchte eine Auswahlbox haben mit der ich mir über Scrollen eine Datei auswählen kann (aus allen in einem bestimmten Ordner unter C:\.... gespeicherten Dateien)und danach einen Commandbutton klicken können der diese gewählte Datei öffnet. Geht sowas????
bis jetzt habe ich das so gemacht. Da muss ich aber den Dateinamen genau angeben und habe nur die Möglichkeit zwei bestimmte Dateien zu wählen
WorkSheet_Laden Makro
' Makro am 17.11.2003 von Maren aufgezeichnet
'
'
Dim filePathname As String
Dim patientName As String
Range("C5").Select
patientName = ActiveCell.FormulaR1C1
If (patientName = "") Then
MsgBox "Sie müssen einen Namen eintragen!", vbExclamation
Exit Sub
End If
' Else... Filename erzeugen und versuchen die Datei zu öffnen:
Range("C5").Select
Selection.ClearContents
On Error GoTo FileOpen_ErrorHandler
filePathname = GetFilePathname(patientName)
Workbooks.Open Filename:=filePathname
On Error GoTo 0 ' Default-Fehlerbehandlung wieder einschalten
MsgBox "Die Datei '" & filePathname & "' wurde geladen.", vbInformation
Exit Sub ' damit FileOpen_ErrorHandler nicht mehr ausgeführt wird
FileOpen_ErrorHandler:
' Informationen über den aufgetretenen Fehler sind in Err gespeichert
Dim errorMessage As String
errorMessage = "Der Patient ist noch nicht angelegt!" _
MsgBox errorMessage, vbCritical
On Error GoTo 0 ' Default-Fehlerbehandlung wieder einschalten