Hilfe ich möchte über ein VBS eine Excel Mappe öffnen.

Der Code soll zuvor eine evtl. offene Excel Anwendung schließen und dann

ein Excel mit Mappe öffnen.

Beim ersten Start klappt das auch, aber wenn eine Excel-Anwendung offen ist die

im Hintergrund gestartet ist, so bleibt auch die Mappe über das VBS versteckt.

Wie bekomme ich die Mappe nun in den aktiven Vordergrund ?



Meine Code :



Dim objXLApp

Dim strMsg



On Error Resume Next

Set objXLApp = GetObject(, "Excel.Application")



If Not TypeName(objXLApp) = "Empty" Then

strMsg = "Excel-Task vorhanden, wird geschlossen."

objXLApp.Application.Quit

Else

strMsg = "Excel-Task nicht vorhanden."

End if



MsgBox strMsg, vbInformation, "Excel-Status"



'Jetzt neues Excel mit Mappe starten

Dim xlApp, xlWB

On Error Resume Next 'notwendig, um GETOBJECT-Fehler abzufangen

Set xlApp = GetObject(, "Excel.Application")



If Err.Number 0 Then 'Excel ist noch nicht geöffnet, daher starten

Set xlApp = CreateObject("Excel.Application")

xlApp.WindowState = 0

xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Open("L:\Basis\Eingabe.xls")

Else

Set xlWB = xlApp.Workbooks.Open("L:\Basis\Eingabe.xls")

End If



Set xlApp = Nothing

Set xlWB = Nothing

geschrieben von Horst3 , 14.03.2006, 10:07 Uhr , 39 mal gelesen