Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Öffne Arbeitsmappe bei wechselndem Laufwerk

Öffne Arbeitsmappe bei wechselndem Laufwerk
01.10.2004 07:22:53
nose
Guten Morgen an die Experten (nett gemeint),
um es vorweg zu sagen, ich bin kein Profi, also bitte möglichst für Anfänger antworten :o)
Ich habe einen CommandButton eingerichtet, der eine schreibgeschütze Arbeitsmappe öffnet:
Workbooks.Open FileName:= _
"\\duisr20019\gruppen\....xls", ReadOnly:=True
Leider wechselt der Server ständig von duisr20019 auf duisr20020 und umgekehrt (wegen Wartungsarbeiten am Server).
Kann mir jemand helfen, den Code so zu verändern, dass es egal ist, ob gerade das eine oder das andere Laufwerk in Produktion ist?
Ich dachte ggf. an "ON ERROR" oder so?
Habe nicht so wirklich die zündende Idee...
Vielen Dank,
mit freundlichen Grüssen aus dem Ruhrgebiet,
nose

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

Betreff
Datum
Anwender
Anzeige
AW: Öffne Arbeitsmappe bei wechselndem Laufwerk
01.10.2004 08:40:35
Harald E
Moin Nose
Dim Filename1, Filename2 As String
Filename1 = Pfad 1 mit Dateiname
Filename2 = Pfad 2 mit Dateiname
If Dir(Filename1) = "" And Dir(Filename2) = "" Then
Msgbox "Sorry, nix zu holen!"
exit sub
end if
If Dir(Filename1) = "" Then
Workbooks.Open Filename2
Else
Workbooks.Open Filename1
End If
Wenn beide Verzeichnisse leer sind, beendet er die Sub
Wenn das erste Verzeichnis leer ist, öffnet er das zweite
Ist nicht getestet !
Gruß
Harald
AW: Öffne Arbeitsmappe bei wechselndem Laufwerk
01.10.2004 09:47:59
nose
SUUUUUPPPPPEEEEERRRR Harald und allerliebsten Dank!
Ich habe die Umstellung getestet, es funzt wunderbar.
Noch ein kleines Folgeproblem, bei dem Du sicher auch weiterhelfen kannst.
Ich habe den unteren Code etwas erweitert:
If Dir(Filename1) = "" Then
Workbooks.Open Filename2, ReadOnly:=False
Else
Workbooks.Open Filename1, ReadOnly:=False
End If
Bei Schreibschutz-Passwort-Eingabe kein Problem,
jedoch wenn ich auf "Abbrechen" gehe, erzeugt der Code (?) einen Fehler:
Laufzeitfehler 1004, die Methode open für das Objekt Workbooks ist fehlgeschlagen.
Kannste noch mal *liebfrag
Gruß
nose
Anzeige
AW: Öffne Arbeitsmappe bei wechselndem Laufwerk
01.10.2004 10:22:29
Harald E
Hi Nose,
also ich habs mal mit 9.0 nachgebaut und bekomme keinen Fehler.
Ich nutze diesen Codeschnipsel in vielen Subs und bekomme auch da keine Fehlermeldung.
Ich muss passen (Versionskonflikt, Netzwerkbedingt,???).Keine Ahnung.
Tut mir leid.
Harald
AW: Öffne Arbeitsmappe bei wechselndem Laufwerk
02.10.2004 09:33:53
andre
Hallo Nose,
vielleicht hilft hier
on error goto ende
If Dir(Filename1) = "" Then
Workbooks.Open Filename2, ReadOnly:=False
Else
Workbooks.Open Filename1, ReadOnly:=False
End If
on error goto 0
'... weiterer code wenns funktioniert hat ?
ende:
end sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige