Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

wenn Datei geöffnet, dann aktivieren

wenn Datei geöffnet, dann aktivieren
walter
Hallo,
kann mir bitte jemand helfen.
Ich möchte prüfen, ob eine Datei geöffnet ist. Wenn ja, dann soll sie aktiviert (in den Vordergrund gestellt) werden.
Mein Code sieht jetzt so aus (habe ich bei herber gefunden).
Die Codezeile Workbooks(sFile).open produziert einen Laufzeitfhler 9.
Sub TestFileOpen()
Dim iOpen As Integer
Dim sFile As String
sFile = "C:\TMP\Pflegeurlaub-Test\Pflegeurlaub-Antrag.xls"
If sFile = "" Then Exit Sub
iOpen = TestOpen(sFile)
Select Case iOpen
'Case 0: MsgBox "Datei " & sFile & " ist frei"
Case 0: Workbooks.Open (sFile)
Case 1: MsgBox "Datei " & sFile & " ist geöffnet"
Workbooks(sFile).Activate
Case 2: MsgBox "Datei " & sFile & " wurde nicht gefunden"
End Select
End Sub
Private Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function
Danke im Voraus!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: wenn Datei geöffnet, dann aktivieren
13.01.2011 10:31:43
Heiko
Hallo Walter,
wenn du nur prüfen willst ob sie offen ist und wenn ja dann in den Vordergrund hollen willst, dann tut es dieser Code.
Sub Testtt()
On Error Resume Next
Workbooks("C:\TMP\Pflegeurlaub-Test\Pflegeurlaub-Antrag.xls").Activate
On Error GoTo 0
End Sub
Wenn du Sie öffnen willst wenn sie nicht offen ist, müßte da noch ein wenig mehr Code rein.
Aber deine Frage lautet ja nur in den Vordergrund wenn offen.
Gruß Heiko
AW: wenn Datei geöffnet, dann aktivieren
13.01.2011 11:08:55
walter
Hallo,
danke für deine rasche Info,
ich möchte die Datei, falls sie nicht offen ist, auch öffnen, das funktioniert aber mit "meinem Code" bisher auch schon.
Vielleicht kannst du mir den Code noch zukommen lassen.
DANKE!
walter
Anzeige
AW: wenn Datei geöffnet, dann aktivieren
15.01.2011 19:02:19
Heiko
Hallo Walter,
dann vieleicht so:
Sub Testtt()
Dim lngErr As Long
Dim strPfadundDatei As String
' Dateipfad hier anpassen
strPfadundDatei = "C:\Copy\Muell.xls"
On Error Resume Next
Workbooks(strPfadundDatei).Activate
lngErr = Err.Number
On Error GoTo 0
If lngErr  0 Then
If Dir(strPfadundDatei)  "" Then
Workbooks.Open (strPfadundDatei)
Else
MsgBox "Datei nicht gefunden", vbInformation
End If
End If
End Sub

Gruß Heiko
AW: wenn Datei geöffnet, dann aktivieren
17.01.2011 08:45:22
walter
Hallo Heiko,
danke sehr, das funktioniert super!
walter

9 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige