Re: Anweisung ignorieren
02.03.2003 12:13:25
Wolfgang
Hi Greco,
wenn das alles war ist der Sonntag gerettet und Du bist der größte.
Danke schon mal, mache mich gleich dran.
Ich möchte jetzt nicht unverschämt werden, habe in diesem Zusammenhang eben eine Frage ins Forum gestellt: Open-Routine.
Hiermit will ich ja eben die Exit Funktion von Dir erreichen.
Leider macht diese Routine nicht was sie soll. Nepumuk sagte bei ihm läuft sie.
Darf ich deshalb hier einmal den gesamten Code posten? Es geht mir natürlich nur um die Prüfung ob die Datei schon geöffnet ist.
Der Rest ist nicht wichtig. Option Explicit
Dim varFileToOpen As Variant
Dim strMyFile As String
Dim strFileDOS As String
Private Function FileSpec(ByVal strFilter, ByVal strTitle) As Boolean
FileSpec = False
varFileToOpen = Application.GetOpenFilename(strFilter, , strTitle)
If varFileToOpen <> False Then
strMyFile = Dir(varFileToOpen)
If IsFileOpen(strMyFile) Then
Exit Function
End If
FileSpec = True
Else
MsgBox "Es wurde keine Datei ausgewählt.", vbInformation
End If
End Function
Private Function IsFileOpen(ByVal strMyFile) As Boolean
Dim WinOpen As Variant
IsFileOpen = False
For Each WinOpen In Windows
If WinOpen.Caption = strMyFile Then
MsgBox strMyFile & " Ist bereits geöffnet!", vbExclamation
IsFileOpen = True
Exit Function
End If
Next
End Function
Private Sub DatenKontaktUebertragen()
Dim strFileFilter As String
Dim strFileTitle As String
strFileFilter = "Excel Dateien (*.xls;*.xlk),*.xls;*.xlk"
strFileTitle = "Wählen Sie hier die Datei aus die übertragen werden soll "
If FileSpec(strFileFilter, strFileTitle) Then
Application.ScreenUpdating = False
Application.StatusBar = "Die ausgewählte Datei wird importiert " & varFileToOpen & "..."
Workbooks.Open Filename:=varFileToOpen
strFileDOS = Application.ActiveWorkbook.Name
Verstehst Du warum dieses Makro nicht erkennt, dass die Datei schon geöffnet ist und leider zuläßt dass die gleiche Datei ein weiteres mal geöffnet wird?
Danke vielmals.
Gruß
Wolfgang