Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public Function testExcel()
Dim myExcel As excel.Application
Dim myWorkbook As excel.workbook
Dim mySheet As excel.Worksheet
On Error GoTo err_Handler
Set myExcel = New excel.Application
Set myWorkbook = myExcel.Workbooks.Open("C:\LocalData\Temp\Info.xls")
Set mySheet = myWorkbook.Sheets("Basis")
testExcel = mySheet.Range("G35")
'man kann auch ohne ein sheet-Object arbeiten.
'testExcel = myWorkbook.Sheets("Basis").sheet.Range("G35")
'Exit Handler
'Hier muss der Code auc im Error-Fall durch, damit
'alle Objekte sauber abgebaut und die im Hintergrund
'laufende Excel-Applikation beendet wird
exit_handler:
On Error Resume Next:
myWorkbook.Close
myExcel.Quit
Set mySheet = Nothing
Set myWorkbook = Nothing
Set myExcel = Nothing
Exit Function
' Error Handler
err_Handler:
Call MsgBox(Err.Description, vbCritical, "error")
Resume exit_handler:
End Function