aus einem Ordner in C: Dateien zeigen

Hallo liebe Gemeinde,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
Hallo Maren,
wie wäre es denn damit?


Option Explicit
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetFileNameFromBrowseW Lib "shell32" Alias "#63" (ByVal hwndOwner As Long, ByVal lpstrFile As Long, ByVal nMaxFile As Long, ByVal lpstrInitialDir As Long, ByVal lpstrDefExt As Long, ByVal lpstrFilter As Long, ByVal lpstrTitle As Long) As Long
Private Declare Function GetFileNameFromBrowseA Lib "shell32" Alias "#63" (ByVal hwndOwner As Long, ByVal lpstrFile As String, ByVal nMaxFile As Long, ByVal lpstrInitialDir As String, ByVal lpstrDefExt As String, ByVal lpstrFilter As String, ByVal lpstrTitle As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Sub start()
Dim sSave As String
sSave = Space(255)
If IsWinNT Then
GetFileNameFromBrowseW FindWindow("xlmain", vbNullString), StrPtr(sSave), 255, StrPtr("D:\Eigene Dateien\AEG\Arbeitsaufträge PT4\"), StrPtr("xls"), StrPtr("Excel files (*.xls)" + Chr$(0) + "*.xls" + Chr$(0) + "All files (*.*)" + Chr$(0) + "*.*" + Chr$(0)), StrPtr("Öffnen")
Else
GetFileNameFromBrowseA FindWindow("xlmain", vbNullString), sSave, 255, "D:\Eigene Dateien\AEG\Arbeitsaufträge PT4\", "xls", "Excel files (*.xls)" + Chr$(0) + "*.xls" + Chr$(0) + "All files (*.*)" + Chr$(0) + "*.*" + Chr$(0), "Öffnen"
End If
sSave = Trim(sSave)
sSave = Mid(sSave, 1, Len(sSave) - 1)
MsgBox sSave
End Sub
Private Function IsWinNT() As Boolean
Dim myOS As OSVERSIONINFO
myOS.dwOSVersionInfoSize = Len(myOS)
GetVersionEx myOS
IsWinNT = (myOS.dwPlatformId = 2)
End Function

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

aus einem Ordner in C: Dateien zeigen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

aus einem Ordner in C: Dateien zeigen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread