Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

externes Verzeichnis ansprechen

externes Verzeichnis ansprechen
18.04.2008 09:57:00
Dietmar
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


8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: externes Verzeichnis ansprechen
18.04.2008 10:13:00
Renee
Hi Dietmar,
Vor dem Application.GetOpenFilename must du den richtigen Drive und Directory setzen, z.B. so:

ChDir "X"
ChDir StartVerzeichnis


GreetZ Renée

AW: externes Verzeichnis ansprechen
18.04.2008 10:20:54
AK
Hallo Dietmar,
Renée meint natürlich:
ChDrive "X"
ChDir StartVerzeichnis

Danke für die Korrektur (owT)
18.04.2008 10:23:00
Renee

AW: Danke für die Korrektur (owT)
18.04.2008 10:46:41
Dietmar
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?

AW: Danke für die Korrektur (owT)
18.04.2008 10:51:00
Dietmar
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?

Anzeige
AW: Danke für die Korrektur (owT)
18.04.2008 11:07:33
Renee
Hi Dietmar,
Versuch's mal nur mit dem Startverzeichnis:

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


GreetZ Renée

AW: Danke für die Korrektur (owT)
18.04.2008 11:27:00
AK
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

AW: Danke für die Korrektur (owT)
18.04.2008 12:20:11
Dietmar
Die Exceldatei liegt auf einem lokalen Laufwerk
auf dem eigenen Rechner und greift auf dem Server zu.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige