Aplication schliessen !!!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Aplication schliessen !!!
von: Ali
Geschrieben am: 17.06.2002 - 10:37:21

Hallo

Ich habe folgendes Problem:

Mit makro starte ich Userform. Dort habe ich 3 weitere Commandbutton zum Speichern, Drucken und Schliessen. Mit dem Schliessen Button kann ich Worksheet schliessen, jedoch noch überprüft werden ob noch andere Datei offen ist, wenn nicht; soll die Application geschlossen werden.

Kann jemand mir helfen ;-)

Viele Herzlichen Dank im Voraus
Gruss
Ali


nach oben   nach unten

Re: Aplication schliessen !!!
von: axel.meyer
Geschrieben am: 17.06.2002 - 10:52:03

hi ali,

das hier sollte dich auf den richtigen weg bringen.

gruß, axel


Option Explicit
Function DateiIstFrei(DatNam As String) As Boolean
Dim hFile As Integer
    On Error Resume Next
    hFile = FreeFile()
    Open DatNam For Random Access Read Lock Read Write As #hFile
    If Err Then
      DateiIstFrei = False
    Else
      DateiIstFrei = True
    End If
    Close #hFile
End Function

Sub test()
Dim DatNam As String
    DatNam = "C:\WINDOWS\Desktop\Schliessen.xls"
    If DateiIstFrei(DatNam) = False Then
    Workbooks("Schliessen.xls").Close SaveChanges:=True
      Exit Sub
    Else
      MsgBox "Datei ist nicht geöffnet !"
    End If
End Sub


nach oben   nach unten

Danke !!!
von: Ali
Geschrieben am: 17.06.2002 - 11:00:22

Herzlichen Dank Axel

:-))

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Aplication schliessen !!!"