Exceldatei auf entferntem Rechner schliessen
16.11.2004 20:54:57
Kai
Danke + Gruss Kai
'
Sub journal_schliessen()
'Dim bExists As Boolean
'Dim oWorkbook As Object
'' Prüfen ob Journal bereits geöffnet ist
'bExists = False
'With Application
' For Each oWorkbook In .Workbooks
' If UCase$(oWorkbook.Name) = "journal.xls" Then
' ' Jetzt aktivieren
' Windows(oWorkbook.Name).Activate
' bExists = True
' Exit For
' End If
' Next
'End With
'' Journal schliessen, wenn geöffnet
' If Not bExists Then
' On Error Resume Next
' Workbooks("Journal.xls").save
' Workbooks("Journal.xls").Close
' On Error GoTo 0
' End If
'End Sub