Ich habe inzwischen eine Lösung, die funktioniert:
Sub testProg()
'Dim xlsDatei As Excel.Workbook
Dim xlsApp As Object
Dim xlsDatei As Object
Dim str As String
' Set xlsDatei = GetObject("G:\test.xlsx") ' Hier erscheint in Windows11 "Laufzeitfehler 13 Typen unverträglich"
Set xlsApp = CreateObject("Excel.Application")
Set xlsDatei = xlsApp.Workbooks.Open(FileName:="G:\test.xlsx")
str = xlsDatei.Worksheets(1).Cells(1, 1) ' nur eine Testoperation
xlsApp.Quit
End Sub
|