Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem beim Öffnen einer Datei mit Makro

Problem beim Öffnen einer Datei mit Makro
13.07.2006 16:24:34
Frank
Hallo Leute,
ich habe innerhalb eines Makros folgende Anweisung stehen:
Workbooks.Open Filename:=PfadL
Nun möchte ich diese Anweisung in eine If-then Anweisung stellen.
Ich möchte, dass zuerst geprüft wird, ob das File nicht bereits geöffnet ist.
In diesem Falle soll es nur aktiviert werden.
In etwa so:
If Wokbooks(Filename:PfadL) = open then activate else
Workbooks.Open Filename:=PfadL
end if
Wer kann mir hinsichtlich der korrekten Anweisung helfen?
Gruß
Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem beim Öffnen einer Datei mit Makro
ransi
Hallo Frank
Versuchs doch mal andersherum:
Erst mal versuchen zu activieren.
wenn das auf einen Fehler läuft weil das workbook nicht geöffnet ist dann öffnen.
ransi
Wie ist das gemeint?
13.07.2006 17:37:18
Frank
Hallo Ransi,
ich kann deinem Ansatz zwar folgen, weis es aber nicht umzusetzen.
Wenn ich so schreibe:
Windows(PfadL).Activate
, kommt beim ersten Makrodurchlauf natürlich eine Fehlermeldung, da die Datei noch geschlossen ist.
Wenn ich hinterher ein OnError resume next schreibe, geht ja alles weiter. Ich würde jetzt wieder
Workbooks.Open Filename:=PfadL
schreiben müssen.
Gib` mir doch mal ein Beispiel für Deine Überlegung.
Gruß
Frank
Anzeige
AW: Problem beim Öffnen einer Datei mit Makro
13.07.2006 18:01:08
Frank
Hallo Hugo,
ich habe mir den Link angeschaut und versucht, es in mein Makro zu integrieren, jedoch bekomme ich die Fehlermeldung: "Zugriff verweigert" bei der Zeile:
Open PfadL For Binary Access Read Lock Read As #1
Das ist mein Versuch:
PfadL = Pfad & "\Oculus_Import\Oculus_Import_" & Pruefjahr & ".xls"
Open PfadL For Binary Access Read Lock Read As #1
Close #1
If Err.Number 0 Then
ActiveWorkbook.Sheets(Pruefmonat).Activate
Else
Workbooks.Open Filename:=PfadL
GoTo weiter
Err.Clear
End If
Anzeige
AW: Problem beim Öffnen einer Datei mit Makro
ransi
Hallo Frank
Ich meinte so:


Public Sub test()
On Error Resume Next
Windows(Dir(PfadL)).Activate
Workbooks.Open PfadL
End Sub


Wobei PfadL den kompletten Dateinamen enthält.
ransi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige