Datei aus Listbox öffnen / New Application
28.03.2009 10:17:30
Christine
ich hoffe auf diesem Wege eine Lösung für mein Problem zu finden.
Also, ich habe eine Userform mit Textbox und Listenfeld. Ich habe einen Ordner, in dem ausschließlich Exceldateien liegen. Gebe ich einen Anfangsbuchstaben oder ein Wort (mappe) in das Textfeld ein, wird der jeweilige Dateiname (mappe1.xls) in der Listbox angezeigt.
Soweit so gut, jetzt z meinem Problem.
Ich würde gern bei Doppelcklick die jeweilige Excelmappe öffnen und zwar so, das die Userform in den Hintergrund tritt. Geht auch über eine neue Applikation dieser ausgewählten Excelmappe.
'''''''''''''''''''''Modul
Public Sub ExcelMappe_Öffnen(ByVal Name_der_Mappe_mit_Pfad As String)
Dim App As Excel.Application
Dim WB As Workbook
Set App = New Excel.Application
Set WB = App.Workbooks.Open("C:\Users\nonenone\Desktop\Neuer Ordner (3)\Mappe1")
App.Visible = True
End Sub
''''''''''''''''''''''''''''Listboxcode
Call ExcelMappe_Öffnen("C:\Users\nonenone\Desktop\Neuer Ordner (3)")
Das eigentliche Problem jetzt: Das geht ja derzeit nur für Mappe1, heißt also, wenn ich über die Suche jetzt bsw.Mappe hallo.xls finden würde und die in der Listbox erscheint, funktioniert das nicht mehr.
Wie kann ich ich das Problem lösen?
Ich hoffe so sehr, hier findet sich ein Experte.
Vielen Dank im Voraus!
Christine