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

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.

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

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

Anzeige
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\

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




300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige