Hi zusammen,
ich möchte anhand einer If-Schleife überprüfen ob eine Excel-Tabelle schon vorhanden ist oder nicht.
Falls siem nicht vorhanden ist, soll sie erstellt werden.
Das ist der überarbeitete Quellcode:
Dim Excel = CreateObject("Excel.Application")
Dim wb As Object
wb = ("C:\test.xls")
If wb.FileExsits Then
wb.open()
Else
Excel.workbooks.add()
End If
das war der Ausgangsquellcode
Dim Excel = CreateObject("Excel.Application")
Dim wb As Object
If Excel.workbooks.count = 0 Then
wb = Excel.workbooks.add
Else
wb = Excel.workbooks(0)
End If
ich möchte anhand einer If-Schleife überprüfen ob eine Excel-Tabelle schon vorhanden ist oder nicht.
Falls siem nicht vorhanden ist, soll sie erstellt werden.
Das ist der überarbeitete Quellcode:
Dim Excel = CreateObject("Excel.Application")
Dim wb As Object
wb = ("C:\test.xls")
If wb.FileExsits Then
wb.open()
Else
Excel.workbooks.add()
End If
das war der Ausgangsquellcode
Dim Excel = CreateObject("Excel.Application")
Dim wb As Object
If Excel.workbooks.count = 0 Then
wb = Excel.workbooks.add
Else
wb = Excel.workbooks(0)
End If