PDA

Vollständige Version anzeigen : VBA Datei öffnen


Hajo_Zi
02.08.2012, 09:25
Hallo,

Betriebsystem Windows 7 64 bit
Der Ordner ist ein Netzlaufwerk. Auf Eigene Dokumente habe ich nur Zugriff, da ich es aber unter meiner Anmeldung teste dürfte es kein Problem sein.

Unter DieseArbeitsmappe, Private Sub Workbook_Open() lege ich folgende Variable fest
StDateiLager = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\Lager\"
Der Ordner ist vorhanden.
Mache ich jetzt in einem Modul
Workbooks.Open StDateiLager & "Lagerbestand Z-BMS.XLSM"
kommt keine Fehlermeldung, der Bildschirm flakkert kurz und die Datei ist nicht sichtbar auf und ist auch nicht ausgeblendet.
Makro wird beendet.

Mache ich im Direktfenster
? StDateiLager
Wird
S:\Ziplies\Eigene Dateien\Arnold AV\Lager\
angezeigt.

Ich vermute mal er übersetzt "Eigene Dateien" mit "Eigene Dokumente"
Da falls ich den Ordner bei Open ändere auf
"S:\Ziplies\Eigene Dokumente\Arnold AV\Lager\" kommt die Meldung das er die Datei nicht findet.

Kopiere die Datei in einen öffentlichen Ordner unter meinem Namen ändert sich nichts. Ich habe da Extra einen Ordner gewählt ohne Leerstellen.

Was läuft hier schief?

<img src="http://www.hajo-excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

M Merlin
02.08.2012, 09:42
Ich habe da Extra einen Ordner gewählt ohne Leerstellen.


Ich denke hier ist das Problem.
Im Original sind Leerzeichen. Versuch mal den kompletten Pfad incl. Dateinamen in Anführungszeichen zu setzen...

haklesoft
02.08.2012, 09:56
Hallo Hajo,

in Deiner Frage machst Du keine Aussage dazu, dass mit Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) die letzte Ordnerebene weggeschnitten wird. Also aus einem Workbookpfad "C:\Dokumente und Einstellungen\All Users\Dokumente" wird "C:\Dokumente und Einstellungen\All Users", bevor "\Lager\" angehängt wird. Falls Du das nicht beabschtigt hast, wäre statt ThisWorkbook.Path dann ThisWorkbook.FullName in der Anweisung einzusetzen.

Hang loose, haklesoft

Hajo_Zi
02.08.2012, 11:00
die Datei liegt in
S:\Ziplies\Eigene Dateien\Arnold AV\Objekt1\
Lager eine Stufe höher.
Auch unsere eigenen Dateien sind nicht auf dem lokalen Rechner sondern im Netzt.

Ich habe jetzt in der Datei erstmal alles unter DieseArbeitsmappe deaktiviert, brauche ich in dem Schritt nicht. Das bekommt man doch bestimmt abgeschaltet das DieseArbeitsmappe nicht ausgeführt wird?
Ich muss in der Datei schreiben und auch speichern.
Ich habe auch nicht mehr mit der Variablen gearbeitet sondern
Workbooks.Open "S:\Ziplies\Eigene Dateien\Arnold AV\Lager\" & "Lagerbestand Z-BMS.XLSM"

das geht jetzt erstmal, aber ist eigentlich nur eine Notlösung. Nicht wie beim dem Problem von Gestern mit der UserForm.

<a href="http://www.hajo-excel.de/" onclick="window.open(this.href);return false" title="Hajo's Excelseiten">Gruß Hajo</a>