Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1116to1120
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

Makro soll Datei aufrufen

Makro soll Datei aufrufen
Claus
Hallo zusammen,
seit geraumer Zeit nutze ich einen kleinen Makro, der mir einfach eine bestimmte Datei (die ich fast täglich und ein paar andere auch öfters mal brauchen) öffnet.
Problem: Wenn diese Datei bereits geöffnet ist, läuft der Makro auf Fehler.
Es gibt doch bestimmt einen Befehl, der vorab erkennt, ob die Datei schon offen ist - dann sollte der Makro einfach zu diese bereits geöffneten Datei wechseln.
Der bisherige (ganz kurze) Makro sieht so aus:
Sub NrBuch()
' NrBuch Makro
' Sprung zu Mat.-Nr. in Nummernbuchtabellen
Workbooks.Open Filename:= _
"J:\Materialnummern\Nummernkreise\MaterialstammQuerverweis.xls", _
UpdateLinks:=3, ReadOnly:=1
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro soll Datei aufrufen
11.11.2009 11:11:05
Luschi
Hallo Claus,
zu diesem Problem siehe hier: http://vb-tec.de/isopen.htm
Gruß von Luschi
aus klein-Paris
Open, wenn noch nicht offen
11.11.2009 11:17:53
Erich
Hi Claus,
das kannst du auch mal probieren:

Sub NrBuch()
' NrBuch Makro
' Sprung zu Mat.-Nr. in Nummernbuchtabellen
Dim blnOpen As Boolean
Const strNam As String = "MaterialstammQuerverweis.xls"
On Error Resume Next
Workbooks(strNam).Activate
If Err  0 Then
Err.Clear
blnOpen = True
End If
On Error GoTo 0
If blnOpen Then Workbooks.Open Filename:= _
"J:\Materialnummern\Nummernkreise\" & strNam, _
UpdateLinks:=3, ReadOnly:=1
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Open, wenn noch nicht offen
11.11.2009 11:52:43
Claus
Hallo ihr beiden,
prima, vielen Dank für die superschnellen Antworten.
Ich habe jetzt Erichs Lösung genommen, weil es mir logischer erscheint, zuerst die Aktivierung zu versuchen und dann erst in die Öffnungsroutine zu springen. Somit konnte ich den Quellcode einfach ersetzten und: WoW es funktioniert auf Anhieb.
Somit feedback: Ihr habt mir definitiv geholfen und ihr habt mindestens einen glücklicheren Menscher generiert. Herzlichen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige