Microsoft Excel

Herbers Excel/VBA-Archiv

Makro soll Datei aufrufen | Herbers Excel-Forum


Betrifft: Makro soll Datei aufrufen von: Claus
Geschrieben am: 11.11.2009 10:59:40

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

  

Betrifft: AW: Makro soll Datei aufrufen von: Luschi
Geschrieben am: 11.11.2009 11:11:05

Hallo Claus,

zu diesem Problem siehe hier: http://vb-tec.de/isopen.htm

Gruß von Luschi
aus klein-Paris


  

Betrifft: Open, wenn noch nicht offen von: Erich G.
Geschrieben am: 11.11.2009 11:17:53

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


  

Betrifft: AW: Open, wenn noch nicht offen von: Claus
Geschrieben am: 11.11.2009 11:52:43

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.


Beiträge aus den Excel-Beispielen zum Thema "Makro soll Datei aufrufen"