Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel VBA - Verzeichnis voreinstellen

Excel VBA - Verzeichnis voreinstellen
31.03.2008 11:37:12
Dietmar
Hallo,
ich möchte mit einem VBA Modul Anwendern ermöglichen,
aus einem vordefinierten Verzeichnis (externer Server) eine Textdatei auszuwählen und den Inhalt dieser Textdatei in ein Arbeitsblatt in einem definierten Bereich zu importieren.
Wäre nett, einen passenden Hinweis zu bekommen.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA - Verzeichnis voreinstellen
31.03.2008 11:45:00
ede
Hallo Dietmar,
zwar schon oft hier im Forum Beispiele abgestellt, aber hier nochmal ein einfaches Beispiel:

Private Sub Text_Import()
Dim i As Integer
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\temp"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("alle Dateien (*.*), *.*")
If sFile  False Then
Close
Open sFile For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, strTxt
Cells(i, 1).Value = strTxt
i = i + 1
Loop
Close
End If
End Sub


gruss

Anzeige
AW: Excel VBA - Verzeichnis voreinstellen
31.03.2008 11:48:00
dirk
Hallo!
Hier mal ein Ansatz

Sub OeffnenDialogAufrufen()
Dim StartVerzeichnis As String
StartVerzeichnis = "D:\My documents\appdata\"
Application.Dialogs(xlDialogOpen).Show StartVerzeichnis
End Sub


Dirk

AW: Excel VBA - Verzeichnis voreinstellen
31.03.2008 11:58:00
Dietmar
Danke, das klappt mit einen festen Laufwerksbuchstaben prima.
Kennst Du auch die Lösung für eine relative Pfadangabe?
Beispiel:
\\g2008iaa04\g2008iaa04$\Server_A$\test\

Anzeige
AW: Excel VBA - Verzeichnis voreinstellen
31.03.2008 11:52:00
Beverly
Hi Dietmar,
und noch eine dritte Möglichkeit

Sub oeffnen_verzeichnis()
ChDrive ("C:\")
ChDir ("C:\Test")
Application.FindFile
End Sub




;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige