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 
Das wird aber durchaus ein anderer sein als der, den Du haben könntest…
Gruß, Manfred