Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1072to1076
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
Inhaltsverzeichnis

Text-Datei öffnen mit Klick auf Datei

Text-Datei öffnen mit Klick auf Datei
07.05.2009 07:01:24
Markus
Hallo,
ich öffne mit einem Makro fast täglich Text-Dateien die aus einem anderen Programm stammen.
Dazu ändere ich jeweils die folgende Programm-Zeile ab.
Es wäre super, wenn ist mit einer InputBox oder einem Formular-Fenster möglich wäre,
die entsprechende Datei mit Mausklick im richtigen Ordner zu öffnen.
(Die Txt-Dateien liegen jeweils in den verschiedensten Verzeichnissen).
Jetzt schon besten Dank für eine Hilfestellung.
Markus
strFileName = InputBox("Dateiname", , "j:\Geraete_Stamm\MeierAG\Mai\Aktive\Geraete\geraete.txt")

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text-Datei öffnen mit Klick auf Datei
07.05.2009 07:16:55
ede
Guten Morge,
hier mal ein eifache Beispiel:

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
'....Dein Code
End If
End Sub


Gruss

AW: Text-Datei öffnen mit Klick auf Datei
07.05.2009 08:30:54
Markus
Hallo Ede,
genau!
Daaaaaaaas suchte ich!
Danke vielmals.
Markus
bitte o.T.
07.05.2009 08:32:51
ede
-
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige