Microsoft Excel

Herbers Excel/VBA-Archiv

Excel bei Dateiaufruf gestartet?



Excel-Version: 8.0 (Office 97)

Betrifft: Excel bei Dateiaufruf gestartet?
von: Peter
Geschrieben am: 29.05.2002 - 08:25:42

Hallo Forum,
kennt jemand eine Möglichkeit in VBA abzufragen, ob Excel mit Aufruf der aktiven Arbeitsmappe gestartet wurde oder ob Excel schon vorher lief und dann die aktive Arbeitsmappe geöffnet wurde ?
Danke für jede Antwort.
Gruß Peter

  

Re: Excel bei Dateiaufruf gestartet?
von: Michae Scheffler
Geschrieben am: 29.05.2002 - 09:30:19

Hallo ,

indirekt, mit: "Workbooks.Count" und dem folgenden Code: habe ich im Internet gefunden.


Function xlInstances() As Byte  Const GW_HWNDNEXT = 2
  Dim hWnd As Long, lRet As Long
  Dim hWndArray() As Long
  Dim intInstances As Integer
  Dim sClassBuffer As String

  intInstances = 1
  hWnd = FindWindow("XLMAIN", vbNullString)
  If hWnd <> 0 Then
    ReDim hWndArray(intInstances)
    hWndArray(intInstances) = hWnd
    Do
      hWnd = GetNextWindow(hWnd, GW_HWNDNEXT)
      If hWnd = 0 Then Exit Function
      sClassBuffer = String(255, 0)
      lRet = GetClassName(hWnd, sClassBuffer, Len(sClassBuffer))
      sClassBuffer = Left(sClassBuffer, InStr(1, sClassBuffer, Chr(0), vbTextCompare) - 1)
      If UCase(sClassBuffer) = "XLMAIN" Then
        intInstances = intInstances + 1
        ReDim Preserve hWndArray(intInstances)
        hWndArray(intInstances) = hWnd
      End If
      xlInstances = intInstances
    Loop
  End If
  
End Function


  

Re: Excel bei Dateiaufruf gestartet?
von: Peter
Geschrieben am: 29.05.2002 - 09:38:16

Wirklich gut. Vielen Dank.
Gruß Peter