Das Archiv des Excel-Forums

externes Verzeichnis ansprechen

Bild

Betrifft: externes Verzeichnis ansprechen
von: Dietmar

Geschrieben am: 18.04.2008 09:57:27

Hallo,
ich möchte ein externes Verzeichnis per VBA aufblenden und eine Textdatei (von mehreren möglichen) auswählen.
Excel läuft immer wieder in den Ordner "Netzwerkumgebung\Eigenen Dateien" rein.
Was mache ich falsch?
--------------------------------------------------------------------------------------------------
'mit diesen Dialog wird im vorgegebenen Pfad eine Textdatei ausgelesen.


Sub Text_Import()
Dim i As Integer, sFile As Variant, strTxt As String, sPath As String, sTxt As String, sText As  _
_
String
Dim objData As New DataObject, aryDS As Variant, c As Integer, feld As Variant
Dim varVar As Variant
Dim StartVerzeichnis As String
StartVerzeichnis = "\\ABC$\BC$\_Verzeichnis\test"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("alle Dateien (*.txt), *.txt")
MsgBox sFile 'liest den ausgewählten Pfad der Datei ein
If sFile <> False Then
Close
Open sFile For Input As #1
i = 1
c = 0
Do While Not EOF(1)
Line Input #1, strTxt
strTxt = Replace(strTxt, """", "")
aryDS = Split(strTxt, ";")
If i = 1 Then
Cells(i, 1).Value = aryDS(0)
Else
For Each feld In aryDS
Cells(i, c + 1).Value = aryDS(c)
c = c + 1
Next
c = 0
End If
i = i + 1
Loop
Close
End If
Set objData = Nothing
End Sub


Bild

Betrifft: AW: externes Verzeichnis ansprechen
von: Renee
Geschrieben am: 18.04.2008 10:13:15
Hi Dietmar,
Vor dem Application.GetOpenFilename must du den richtigen Drive und Directory setzen, z.B. so:


ChDir "X"
ChDir StartVerzeichnis


GreetZ Renée

Bild

Betrifft: AW: externes Verzeichnis ansprechen
von: AK

Geschrieben am: 18.04.2008 10:20:54
Hallo Dietmar,
Renée meint natürlich:
ChDrive "X"
ChDir StartVerzeichnis

Bild

Betrifft: Danke für die Korrektur (owT)
von: Renee
Geschrieben am: 18.04.2008 10:23:31


Bild

Betrifft: AW: Danke für die Korrektur (owT)
von: Dietmar

Geschrieben am: 18.04.2008 10:46:41
Danke Euch beiden.
Wenn ich nun aber kein festen Laufwerksbuchstaben benutzen kann, weil das bei den Usern verschieden ist, wie wäre dann die Lösung?

Bild

Betrifft: AW: Danke für die Korrektur (owT)
von: Dietmar
Geschrieben am: 18.04.2008 10:51:19
Danke Euch beiden.
Wenn ich nun aber keinen festen Laufwerksbuchstaben benutzen kann,
weil das bei den Usern verschieden ist,
wie wäre dann die Lösung?


Bild

Betrifft: AW: Danke für die Korrektur (owT)
von: Renee

Geschrieben am: 18.04.2008 11:07:33
Hi Dietmar,
Versuch's mal nur mit dem Startverzeichnis:


ChDir StartVerzeichnis
sFile = Application.GetOpenFilename("Exceldateien (*.xls), *.xls")


GreetZ Renée

Bild

Betrifft: AW: Danke für die Korrektur (owT)
von: AK
Geschrieben am: 18.04.2008 11:27:29
Liegt die Textdatei denn auf dem selben Laufwerk, wie die Exceldatei mit dem VBA-Code?
Wenn ja, kannst du das userabhängige Laufwerk auch über...
Verzeichnis = ThisWorkbook.Path
ChDrive = Left(Verzeichnis, 1)
...erfahren und zuordnen.
Gruß,
Andreas

Bild

Betrifft: AW: Danke für die Korrektur (owT)
von: Dietmar

Geschrieben am: 18.04.2008 12:20:11
Die Exceldatei liegt auf einem lokalen Laufwerk
auf dem eigenen Rechner und greift auf dem Server zu.

 Bild

Excel-Beispiele zum Thema "externes Verzeichnis ansprechen"

Alle Dateien im Verzeichnis öffnen download Verzeichnisbaum anlegen download
Unterverzeichnisse mit Inhalt löschen download Alle Dateien eines Verzeichnisses drucken download
Ordner eines Verzeichnisses in ListBox übernehmen download Dateinamen eines Verzeichnisses als HTML-Datei download
Feststellen, ob eine Datei in einem Verzeichnis existiert download xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Ordnernamen eines Verzeichnisses in Zelle einfügen download
Sicherungskopie in einem anderen Verzeichnis erstellen download Verzeichnisbaum aufrufen und Verzeichnis auswählen download
Arbeitsmappen eines Verzeichnisses ändern download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Alle Arbeitsmappen eines Verzeichnisses öffnen download Verzeichniswechsel über VBA download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download
Neueste Textdatei eines Verzeichnisses suchen und umbenennen download Vorkommen eines Wortes in Arbeitsmappen eines Verzeichnisse download
Ermittlung des Windows-Temp-Verzeichnisses download Ermittlung des Windows-Verzeichnisses download
Ermittlung des Windows-System-Verzeichnisses download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Verzeichnisse gemäß Tabelleneintragen anlegen download Vorhandensein von Verzeichnissen prüfen und Ordner anlegen download
Hierarchisch aufgebautes Inhaltsverzeichnis als HTML-File download Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen download
Unterverzeichnisse eines vorgegebenen Pfades auslesen download Anwenderverzeichnis auslesen download
Alle Textdateien eines Verzeichnisses importieren download Alle CheckBoxes einer UserForm ansprechen download
Office-Assistenten ansprechen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
UserForm-ComboBoxes als Collection-Objekte ansprechen download