Dateiname einlesen

hallo an alle

ich hätte folgende fragen, wie kann ich den dateinamen von einem excel sheet einlesen in access vb?!

bedanke mich im voraus

lg sabrina

hallo an sabrina!

ich hätte folgende fragen, wie kann ich den dateinamen von
einem excel sheet einlesen in access vb?!

Ungefähr so:

Sub ExcelsheetsAuslesen()
 Dim xlsExcel As New Excel.Application
 Dim wbQuelle As Workbook
 Dim strSheets As String
 Dim wsSheet As Worksheet

 Set wbQuelle = xlsExcel.Workbooks.Open("C:\Temp\DeineDatei.xls")
 strSheets = ""
 For Each wsSheet In wbQuelle.Worksheets
 strSheets = strSheets & IIf(strSheets = "", "", ";") & wsSheet.name
 Next wsSheet
 ' jetzt kannst Du was machen mit allen Sheet-Namen, die
 ' getrennt mit ";" in strSheets stehen,
 ' z. B. in eine Kombobox als RowSource schreiben...
End Sub

Gruß, Manfred

hallo an sabrina, die zweite!

Hupps, Thema verfehlt. Du willst den Dateinamen eines Excelsheets auslesen? Das sollte DeinSheet.Parent.FullName sein…

Gruß, Manfred

Dankeschön für deine Hilfe, ich habe aber leider kein sheet definiert, sondern einfach ein filedialog ! weißt du vl wie ich das dann umsetze?

lg und danke sabrina

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hi, Sabrina!

Hupps, Thema verfehlt. Du willst den Dateinamen eines
Excelsheets auslesen? Das sollte DeinSheet.Parent.FullName
sein…

Dankeschön für deine Hilfe, ich habe aber leider kein sheet
definiert, sondern einfach ein filedialog ! weißt du vl wie
ich das dann umsetze?

Dann schick mal Deinen Code, den Du bis jetzt hast. Mein FileDialog hat eine Eigenschaft „.FileName“, die nach dem Anzeigen gesetzt wird :wink: Das wird aber durchaus ein anderer sein als der, den Du haben könntest…

Gruß, Manfred