UserForm und Datenimport aus externer Datei

Hallo zusammen -
ich möchte gern eine UserForm nutzen, um Teile aus einer anderen Excel-Datei (Datei1.xls) in die aktuelle Arbeitsmappe (Datei2.xls) zu importieren.
Nach dem Aktivieren der Makros von Datei2.xls wird die UserForm angezeigt. Leider ist mir total unklar, mit welchem Steuerelement der Nutzer den Standort (Verzeichnis etc.) von Datei2.xls auswählen kann bzw. wie dann das entsprechende Makro für das Steuerelement/Command Button aussehen sollte (unten habe ich einen leider nicht funktionierenden Vorschlag).
Hat jemand eine Ahnung bzw. geht die Auswahl des Standorts (Verzeichnis) über ein Steuerelemt überhaupt?
Datei1: https://www.herber.de/bbs/user/84320.xls
Datei2: https://www.herber.de/bbs/user/84321.xls
Lieben Dank für eure Hilfe
Claudia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Halo Claudia,
verzeichnisauswahl.

Option Explicit                             ' Variablendefinition erforderlich
' damit Makro nicht unter Makro erscheint
Option Private Module
' Projekt weit
Public StOrdner As String                   ' Suchordner
'   von Nepumuk
Private Type InfoT
hwnd As Long
Root As Long
DisplayName As Long
Title As Long
Flags As Long
FName As Long
lParam As Long
Image As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As InfoT) As Long
Private Declare Function CoTaskMemFree Lib "ole32" (ByVal hMem As Long) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpStr1 As String, ByVal lpStr2 As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pList As Long, ByVal lpBuffer As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Function GetAOrdner() As String
Dim xl As InfoT, IDList As Long, RVal As Long, FolderName As String
With xl
.hwnd = FindWindow("xlmain", vbNullString)
'.hwnd = FindWindow("", "Auswahl")  ' Userform Auswahl
.Title = lstrcat("Bitte wählen Sie ein Verzeichnis", "")
.Flags = 1
End With
IDList = SHBrowseForFolder(xl)
If IDList  0 Then
FolderName = Space(256)
RVal = SHGetPathFromIDList(IDList, FolderName)
CoTaskMemFree (IDList)
FolderName = Trim(FolderName)
FolderName = Left(FolderName, Len(FolderName) - 1)
End If
GetAOrdner = FolderName
End Function
'   nicht verwendeter Code Aufruf mit
Sub test()
StOrdner = GetAOrdner                           ' Verzeichnis auswählen
End Sub

'* function to let User pick a folder from the windows dialogue. '* sPathStart is the starting path to pick a folder from Public Function ChooseAFolder(sPathStart) Dim sFolder As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = "C:\" .Title = "Pick a Folder" .ButtonName = "choose..." .InitialView = msoFileDialogViewList If .Show = -1 Then sFolder = .SelectedItems(1) If Right(sFolder, 1) "\" Then sFolder = sFolder & "\" Else sFolder = "" End If End With If sFolder = "" Then ChooseAFolder = "" 'MsgBox ("no Folder!") Else ChooseAFolder = sFolder End If End Function Sub test() MsgBox ChooseAFolder("C:\") End Sub

'* function to let User pick a folder from the windows dialogue. '* sPathStart is the starting path to pick a folder from Public Function ChooseAFolder(sPathStart) Dim sFolder As String With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = sPathStart .Title = "Pick a Folder" .ButtonName = "choose..." .InitialView = msoFileDialogViewList If .Show = -1 Then sFolder = .SelectedItems(1) If Right(sFolder, 1) "\" Then sFolder = sFolder & "\" Else sFolder = "" End If End With If sFolder = "" Then ChooseAFolder = "" 'MsgBox ("no Folder!") Else ChooseAFolder = sFolder End If End Function Sub test() MsgBox ChooseAFolder("C:\Test\") End Sub

Beliebteste Forumthreads (12 Monate)

UserForm und Datenimport aus externer Datei

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm und Datenimport aus externer Datei

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread