Noch mal Application FileSearch
24.09.2008 10:42:00
Frank
Hajo,
Du hattest mir freundlicherweise einen Alternativcode zu meinem Problem gegeben.
Ehrlich gesagt, da blicke ich nicht wirklich durch (siehe mein Level). Aber zumindest -glaube ich- verstehe ich es ein bischen.
Mit dem Code kann ich Verzeichnisse und deren Darstellung auswählen, die dann ausgelesen werden und in einem neu generierten Sheet wiedergegeben werden. Soweit so gut.
Wenn man in Deinem frm_Verzeichnis_auslesen auf den "Startbutton klickt", werden die zuvor ausgelesenen Daten wohl in das neue Tabellenblatt übertragen, oder?
Nun möchte ich aber, dass die Ergebnisse nicht in einem neuen Tabellensheet wiedergegeben werden, sondern in einem Formular.
Ziel ist folgendes:
Ich möchte Exceldateien aus einem bestimmten in dem Formular anzeigen lassen. Der Anwender klickt nun auf eine Datei in dem Formular, woraufhin die Daten dieser Datei entsprechend weiterverarbeitet werden. In meinem Fall werden die Daten einfach in ein Sheet kopiert.
Folgenden Code hatte ich benutzt, um das zu realisieren:
siehe Anlage in der Datei im Formular Einlesen:
https://www.herber.de/bbs/user/55615.xlsm
Private Sub UserForm_Initialize()
Dim Datei As String
Dim Pfad As String
Dim PfadL As String
Dim i As Integer
Dim Anzahl As Integer
Dim FeldD() As String
Dim M As Byte
Dim Halt As Byte
Halt = 0
Pfad = ActiveWorkbook.Path
PfadL = Pfad & "\Trainingspläne\"
With Application.FileSearch
.NewSearch
.LookIn = PfadL
.Filename = "*.xls"
.Execute
Anzahl = .FoundFiles.Count
End With
On Error Resume Next
ReDim FeldD(Anzahl)
i = 1
Datei = Dir(PfadL & "*.xls")
While Datei ""
FeldD(i) = Datei
i = i + 1
Datei = Dir()
Wend
For i = 1 To Anzahl
frm_Einlesen.lst_Import.AddItem (FeldD(i))
Next i
On Error GoTo 0
End Sub
Hast Du Hajo oder einer der anderen geneigten Leser dazu eine Idee?
Gruß
Frank