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
, 38 mal gelesen