vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: COM/OLE/Registry/DLL · Automation   |   VB-Versionen: VB4, VB5, VB614.10.03
Word/Excel/Access nicht mehrfach starten

Dieser Tipp zeigt, wie sich eine bereits geladene Instanz von Excel/Word/Access verwenden lässt bzw. eine neue Instanz gestartet wird, falls die Applikation noch nicht gestartet ist.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  19.425 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Nachfolgender Tipp zeigt, wie sich eine bereits geladene Instanz von Excel/Word/Access verwenden lässt, bzw. eine neue Instanz gestartet wird, falls die Applikation noch nicht gestartet ist.

Beispiel: Microsoft Excel

Dim oExcel As Object
 
On Error Resume Next
' Excel verwenden, falls bereits gestartet
Set oExcel = GetObject(, "Excel.Application")
If oExcel Is Nothing Then
  ' Excel starten
  Set oExcel = CreateObject("Excel.Application")
End If
 
If oExcel Is Nothing Then
  ' Fehler: Excel nicht vorhanden!
  ...
End If
On Error Goto 0

Beispiel: Microsoft Word

Dim oWord As Object
 
On Error Resume Next
' Word verwenden, falls bereits gestartet
Set oWord = GetObject(, "Word.Application")
If oWord Is Nothing Then
  ' Word starten
  Set oWord = CreateObject("Word.Application")
End If
 
If oWord Is Nothing Then
  ' Fehler: Word nicht vorhanden!
  ...
End If
On Error Goto 0

Beispiel: Microsoft Access

Dim oAccess As Object
 
On Error Resume Next
' Access verwenden, falls bereits gestartet
Set oAccess = GetObject(, "Access.Application")
If oAccess Is Nothing Then
  ' Access starten
  Set oAccess = CreateObject("Access.Application")
End If
 
If oAccess Is Nothing Then
  ' Fehler: Access nicht vorhanden!
  ...
End If
On Error Goto 0