Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ChDir auf Netzwerkpfad

Forumthread: ChDir auf Netzwerkpfad

ChDir auf Netzwerkpfad
21.06.2004 11:12:30
Robert
Hallo,
ich möchte eine Datei auf einem andern Rechner im Netzwerk öffnen.
Mit Application.FileSearch funktioniert der Pfadwechsel und wenn ich Application.FindFile aufrufe, dort die Datei suche und auf Abbrechen klicke, zeigt mit CurDir den richtigen Netzwerkpfad.
Nur mit ChDir kann ich keinen Netzwerkpfad einstellen (nur lokale Pfade sind möglich).
Hier nochmal der Quellcode:
Application.FindFile 'Ordner eingestellt, dann Abbruch
MsgBox ("ASF: " & CurDir) '"\\Servername\Inbox"
ChDir "C:\Download"
MsgBox ("lokal: " & CurDir) '"C:\Download"
ChDir "\\Servername\Inbox"
MsgBox ("final: " & CurDir) '"C:\Download"
Das ist doch merkwürdig. Ich hoffe, ich habe wieder nur etwas übersehen und Ihr könnt mir helfen.
Gruß Robert
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ChDir auf Netzwerkpfad
Veit
Moin, Moin,
versuch mal ChDrive
Gruß
Ein Veit
AW: ChDir auf Netzwerkpfad
21.06.2004 12:33:59
Robert
Moin, moin Veit,
mit ChDrive funktioniert es nur, wenn man ein Netzlaufwerk erstellt und genau das will ich eigentlich nicht.
Ist doch merkwürdig dass Application.FindFile das hinbekommt und VBA nicht...
Gruß Robert
AW: ChDir auf Netzwerkpfad
Veit
gefunden in der Hilfe:
...
Ist kein Laufwerk angegeben, so wechselt die ChDir-Anweisung das Standardverzeichnis oder den Standardordner auf dem aktuellen Laufwerk.
Bemerkungen
Die ChDir-Anweisung wechselt das Standardverzeichnis, aber nicht das Standardlaufwerk. Ist das Standardlaufwerk zum Beispiel C:, dann wechselt die folgende Anweisung zwar das Standardverzeichnis auf Laufwerk D:, aber C: bleibt das Standardlaufwerk:
...
Das erklärt zwar warum das mit ChDir nicht funzt, aber nicht warum es mit FindFile geht
%-)
Wie wäre es mit einer mail an bill@microsoft.com ? ;-)
Vielleicht weiß der ja Rat.
Gruß
Ein (verwirrter) Veit
Anzeige
AW: ChDir auf Netzwerkpfad
21.06.2004 14:23:18
Robert
Hallo Veit,
da bin ich ja beruhigt, dass es so einfach nicht zu sein scheint ;-)
Schade ist nur, dass es mit AFS solange dauert - ChDir und dann .Open wäre schön schnell gegangen.
Dank' Dir für Deine Mühe!
Gruß Robert
AW: ChDir auf Netzwerkpfad
22.06.2004 06:39:36
Uwe
Hallo Robert,
warum öffnest Du das File nicht direkt?
Workbooks.Open "\\Servername\Inbox\MyFile.xls"
Gruß Uwe
Anzeige
AW: ChDir auf Netzwerkpfad
25.06.2004 18:10:17
Robert
Hallo Uwe,
danke für Deine Antwort. Manchmal kommt man auf die einfachsten Sachen nicht. Die Dateinamen der Dokumente sind alle bekannt - es funktioniert also einwandfrei.
Hatte die email-Benachrichtigung nicht aktiviert, deshalb schreibe ich erst heute.
Schönes Wochenende,
Gruß Robert!
Anzeige
;

Forumthreads zu verwandten Themen

ChDir/ChDrive will nicht funktionieren
Jürgen

Hallo,weiß einfach nicht, warum im Code die ChDrive/ChDir-Anweisung nicht funktionieren will:Die Prozedur soll eine Datei Kunden.xls öffnen, soweit nicht schon offen.
Aber die Anweisungen ChDrive und ChDir bewirken - aus welchen Gründen auch immer - nichts.
Deshalb habe ich die MsgBox-Fun...
28.06.2002 17:10:18
Thread-ID: 132333
2 Beiträge
chdrive auf Netzlaufwerk
Harald

Aufgrund einer EDV-Umstellung kann ich nun nicht mehr wie gewohnt mit chdrive auf ein Laufwerk wechseln, da es das von mir benötigte Laufwerk mit Laufwerksbuchstabe nicht mehr gibt.
Gebe ich nun aber \\firma.server.de\.... (wie im Explorer angezeigt) ein, findet Excel die Datei auch nicht. W...
30.07.2002 15:23:59
Thread-ID: 142591
2 Beiträge
ChDrive soll aus Zelle gelesen werden
Ron

Hallo,
wieder mal brauche ich Euro Hilfe. Aus der Zelle M10 meines Tabellenblatts lese ich mir mit
ChDir Sheets("Steuerung").Range("M10")
den Pfad zum Öffnen von Dateien. Da allerdingsa auch verschiedene Laufwerke angesprochen werden, wollte ich aus der Zelle den Wert für Chdrive le...
25.03.2015 00:48:05
Thread-ID: 1416979
7 Beiträge
ChDrive netzwerklaufwerke auslesen
baschti007

Hallo Wie kann ich ChDrive ab ändern damit ich auch Netzwerkpfade (unter Ordner) auslesen kann ?
Public Function ASCIItoANSI(ByVal Text As String) As String Call OemToCharA(Text, Text) ASCIItoANSI = Text End Function Sub pdf_auflisten() With Application.FileDialog(msoFileDialogFolderPicke...
12.07.2016 10:25:00
Thread-ID: 1503950
7 Beiträge
ChDrive mit ftp Adresse
Stephan B

Hallo lieber Forumer !Ich habe schon im Archiv nach Hilfe gesucht, bin aber leider
nicht fündig geworden. Ich möchte per application Getopen bzw. Getsave eine Ftp-Adresse öffen. Geht soetwas ?
Unten habe ich ein beispiel mit c: gepostet. Das müsste
auf die Adresse 193.167.12.3\bla\bla...
26.08.2002 13:51:56
Thread-ID: 152779
2 Beiträge
chdrive im Netzwerk ? | save bei langen Dateinamen
zacharias

Hallo Leuteich habe 2 Probleme:Frage 1: xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxWie kann ich im WIN-NT-Netzwerk mit chdrive ein verbundenes
Laufwerk relativ, d.h. über \\DE...\ wechseln anstelle von
chDrive "g" (als Beispiel).In meinem Beispiel lautet der Laufwerksbuchstabe jedesmal<...
25.10.2002 15:14:48
Thread-ID: 173620
3 Beiträge
ChDrive im Netzwerk verursacht Fehler
SteffenS

Hallo und guten Abend,
ich brauche bitte Eure Hilfe.
Ich habe folgenden Code:
Dim path As String
ChDrive Left(ThisWorkbook.path, 1)
ChDir (ThisWorkbook.path)
On Error GoTo raus
ChDir "..\PL" & VJ & "t"
Dieser funktioniert auch Lokal super!
Das Problem ist...
06.11.2004 20:19:46
Thread-ID: 513218
4 Beiträge
Netzwerk chdrive - Problem
Bettina

Hallo XL-Spezialisten!
Hab nun sehr lange das Archiv durchforstet und hab aber keine Lösnung gefunden.
Ich weiss dass es das Problem mit Chdrive gibt.
Dennoch meine Frage ist es möglich über chrdrive (\\server\) und chdir ("\\server\test) irgendwie auf den gewünschten Pfad im Netzwer...
08.09.2005 10:32:15
Thread-ID: 664247
4 Beiträge
Chdrive-netzwerk
Bettina

Hallo XL-Spezialisten!
Hab schon heute morgen gepostet, aber leider noch keine passende Antwort bekommen, sorry. Vielleicht kann mir jetzt jemand weiterhelfen.
Hab nun sehr lange das Archiv durchforstet und hab aber keine Lösnung gefunden.
Ich weiss dass es das Problem mit Chdrive gi...
08.09.2005 13:38:29
Thread-ID: 664419
2 Beiträge
chdir - chdrive
jaqu

Hallo,
habe einige Sachen bereits über (siehe Betreff) im Archiv gelesen, aber das trifft meinen Geschmack noch nicht ganz. Ich möchte in meiner Application das Laufwerk ändern (chdrive), aber das geht nicht. DENN ich greife auf Netzlaufwerke zu und chdrive erfordert einen Buchstaben. Das M...
19.10.2005 18:30:20
Thread-ID: 684169
6 Beiträge
Anzeige
chDrive
F

Guten Morgen,
ich verwende im code:
chDrive("i")
chDir("i:\.......usw")
Das Laufwerk i befindet sich auf dem Server.
Ist es möglich, falls das Laufwerk nicht erreichbar ist,
das das Prorgramm auf C:\ zugreift.
Und wenn ja, dann wie ?
Mit freundlichen Grüssen Fran...
12.12.2005 06:27:22
Thread-ID: 707413
7 Beiträge
Problem mit ChDrive
Mister

Hallo,
Mit folgendem Auszug eines Makros versuche ich das Laufwerk zu wechseln. Leider klappt es nicht wie ich es will! Das SaveAs Dialog wird geöffnet aber der Unterordner "Ordner A-West" wird nicht ausgewählt
Dim Path2 As String
Path2 = ThisWorkbook.Path & "\Ordner A-West\"<...
30.05.2008 14:48:05
Thread-ID: 981840
3 Beiträge
Anzeige

Infobox / Tutorial

ChDir auf Netzwerkpfad in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Verständnis der ChDir-Anweisung: Die ChDir-Anweisung wird verwendet, um das Verzeichnis zu ändern, jedoch nicht das Laufwerk. Dies bedeutet, dass du ein Standardverzeichnis innerhalb des aktuellen Laufwerks ändern kannst. Wenn du versuchst, zu einem Netzwerkpfad zu wechseln, wird dies nicht direkt unterstützt.

  2. Verwendung von ChDrive: Um zu einem Netzwerkpfad zu wechseln, kannst du zuerst das Laufwerk mit ChDrive ändern. Das bedeutet, dass du ein Netzlaufwerk erstellen musst, um ChDir erfolgreich anzuwenden. Beispiel:

    ChDrive "Z:" ' Z: ist das Netzlaufwerk
ChDir "\\Servername\Inbox"

  3. Öffne die Datei direkt: Eine einfachere Methode ist es, die Datei direkt zu öffnen, ohne den Verzeichniswechsel. Dies kann so aussehen:

    Workbooks.Open "\\Servername\Inbox\MyFile.xls"

  4. Fehlerüberprüfung: Stelle sicher, dass der Pfad korrekt ist und dass du die nötigen Berechtigungen hast, um auf den Netzwerkpfad zuzugreifen.

Häufige Fehler und Lösungen

  • Fehler: ChDir funktioniert nicht mit Netzwerkpfad
    Lösung: Verwende ChDrive, um zuerst das Laufwerk zu ändern. Beachte, dass ChDir nur das Verzeichnis innerhalb des aktuellen Laufwerks ändert.

  • Fehler: Datei kann nicht geöffnet werden
    Lösung: Überprüfe, ob der Netzwerkpfad korrekt ist und ob die Datei existiert. Stelle sicher, dass du die richtigen Berechtigungen hast.

Alternative Methoden

  • Direktes Öffnen der Arbeitsmappe: Statt zuerst das Verzeichnis zu wechseln, kannst du die Datei direkt mit:

    Workbooks.Open "\\Servername\Inbox\MyFile.xls"

    öffnen. Dies umgeht das Problem mit ChDir vollständig.

  • Verwende ein Netzlaufwerk: Wenn du häufig auf diesen Netzwerkpfad zugreifen musst, erstelle ein Netzlaufwerk und verwende ChDrive und ChDir wie oben beschrieben.

Praktische Beispiele

  1. Öffnen einer Datei über einen Netzwerkpfad:

    Sub OpenNetworkFile()
   Dim filePath As String
   filePath = "\\Servername\Inbox\MyFile.xls"
   Workbooks.Open filePath
End Sub

  2. Wechseln des Verzeichnisses und dann Datei öffnen:

    Sub ChangeDirAndOpenFile()
   ChDrive "Z:" ' Z: als Netzlaufwerk
   ChDir "\\Servername\Inbox"
   Workbooks.Open "MyFile.xls"
End Sub

Tipps für Profis

  • Berechtigungen prüfen: Stelle sicher, dass du die nötigen Berechtigungen für den Zugriff auf den Netzwerkpfad hast. Ein häufiges Problem kann durch fehlende Berechtigungen verursacht werden.

  • Verwende Fehlerbehandlungsroutinen: Implementiere Fehlerbehandlung in deinem VBA-Code, um unerwartete Fehler abzufangen. Beispiel:

    On Error Resume Next
Workbooks.Open "\\Servername\Inbox\MyFile.xls"
If Err.Number <> 0 Then
  MsgBox "Fehler beim Öffnen der Datei: " & Err.Description
End If
On Error GoTo 0

FAQ: Häufige Fragen

1. Warum funktioniert ChDir nicht mit einem Netzwerkpfad?
ChDir ändert nur das Verzeichnis innerhalb des aktuellen Laufwerks. Um zu einem Netzwerkpfad zu wechseln, musst du zuerst mit ChDrive das Laufwerk ändern.

2. Gibt es eine Möglichkeit, eine Datei ohne ChDrive und ChDir zu öffnen?
Ja, du kannst die Datei direkt mit Workbooks.Open öffnen, indem du den vollständigen Netzwerkpfad angibst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige