WB öffnen mit Punkt im Dateinamen
13.12.2017 13:19:29
Marvin
nachfolgende Funktion habe ich in Access erstellt um ein Excel-Workbook zu öffnen. Nun stehe ich vor dem Problem, dass eine Datei mit einem Punkt im Dateinamen geöffnet werden soll (z.B. c:\Benutzer\Excel.File.xls). Leider endet dies immer in einer Fehlermeldung.
Gibt es eine Möglichkeit die Datei zu öffnen ohne sie vorher zu kopieren, umbennenen und anschließend zu löschen?
Function OpenExcelFileReadOnly
(Path As String,
Optional visible As Boolean = False
)As Variant
Dim objExcel As Variant
Dim objWorkbook As Variant
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(Path, False, True)
objExcel.visible = visible
Set OpenExcelFileReadOnly = objWorkbook
End Function
Anzeige