Dateiauswahl
Peter
brauche mal wieder Hilfe
Möchte gern meine Datei vereinfachen
Mit Dieser Funktion wird der User auf gefordert einen Ordner auszuwählen, aber ich möchte gern dass er eine Datei aus den Ordner öffnet und dann die nach folgenden Schritte des Makro ausgeführt werden.
Function Ordner_Auswahl()
Const WINDOW_HANDLE = 0
Const FOLDERS_ONLY As Long = 1
Const DEFPATH As Variant = "" ' z.B. Vorgabepfad "D:\" angeben
Dim Wscript As Application
Dim objShell As Object
Dim objFolder As Object
Dim objFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Wählen Sie einen Ordner aus: ", _
FOLDERS_ONLY, DEFPATH)
'Set objFolder = objShell.BrowseForFolder(0&, "Ordner wählen oder anlegen...", FOLDERS_ONLY, _
DEFPATH)
If objFolder Is Nothing Then Exit Function
Set objFolderItem = objFolder.Self
Ordner_Auswahl = objFolderItem.Path
End Function
Sub auslesen()
strPfad = Ordner_Auswahl
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Windows("MK2b-Auswertung_RefID.xls").Activate
Sheets("Rohdaten_BA").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub