Hallo Leute,
habe ein VBScript geschrieben das mir Excel öffnet, wenn ich eine Datei drauf droppen lasse.
Set objXL = WScript.CreateObject(„Excel.Application“)
Danach öffne ich eine bestimmte Datei.
Wie kann ich abfragen, ob Excel und die Datei schon geöffnet sind um sie nicht nochmal zu öffnen?
Vielen Dank
Ingo
Hi
Das geht dann etwa so:
Function fileIsOpen(ByVal a_strfilename As String) As Boolean
Dim m_WB
For Each m_WB In m_objXL.Workbooks
If LCase(m_WB.FullName) = LCase(a_strfilename) Then
fileIsOpen = True
Exit For
End If
Next
End Function
Public Function ExcelIsStared() As Boolean
On Error Resume Next
Dim m_XL
Set m_XL = GetObject(, „Excel.Application“)
If Err.Number Then
ExcelIsStared = False
Else
ExcelIsStared = True
End If
Err.Clear
End Function
gruss
Giuseppe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo
vielen Dank für deinen Hinweis. Ich bin schon ein Stück weiter gekommen.
Wenn Excel bereits geöffnet ist nutzte ich folgenden Code
Set m_XL = GetObject(,„Excel.Application“)
um ein Excel Objekt zu erzeugen.
Wenn Excel noch nicht geöffnet ist nutzt ich folgen Code
Set m_XL = CreateObject(„Excel.Application“)
Nun folgendes Problem. Woher weis ich, ob Excel schon gestartet ist?
Ich brauch irgendwie folgenden Code
If Then
Set m_XL = GetObject(,„Excel.Application“)
Else
Set m_XL = CreateObject(„Excel.Application“)
End if
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hast Du die Funktionen die ich dir geschrieben habe angeguckt? Funktionieren sie nicht?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]