Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro soll Datei aufrufen

Forumthread: 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

Anzeige

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.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige