Excel.Application.Visible
Wenn ich aber Excel vor meinem Programm gestartet habe, ergibt das Ergebnis trotzdem false. Kann mir da jemand helfen, wie ich ein vor VB-Programmstart geöffnetes Excel erkennen kann?
Herzlichen Dank Dunja
Excel.Application.Visible
Wenn ich aber Excel vor meinem Programm gestartet habe, ergibt das Ergebnis trotzdem false. Kann mir da jemand helfen, wie ich ein vor VB-Programmstart geöffnetes Excel erkennen kann?
Herzlichen Dank Dunja
versuche mit GetObject eine XL-Instanz zu öffnen, wenn das schief geht ist XL noch nicht am wirken. Dann kann man ggf. mit CreateObject eine aufmachen...
Gruß HW
Versuch's mal in etwa so ...
Code eingefügt mit Syntaxhighlighter 1.15
Private Function xlCheck() As Boolean
Dim myExcel As Object
xlCheck = False
On Error Resume Next
Set myExcel = GetObject(, "excel.application")
If Not myExcel Is Nothing Then xlCheck = True
Set myExcel = Nothing
End Function
Gruß
Thomas
Risi Thomas Softwareentwicklung