Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei mit Speicher Dialog anlegen

Textdatei mit Speicher Dialog anlegen
03.03.2014 19:46:08
Lars
Hi zusammen,
ich habe eine Frage zum Anlegen einer .txt Datei.
Und zwar weiß ich das man mit
Open "Dateipfad" For Output As #1
"Inhalt"
Close #1
eine .txt Datei anlegen und halt beschreiben kann.
Nun zu meiner Frage, kann man den Speicherort auch z.B: Application.Dialogs(xlDialogSaveAs) anlegen und speichern.
Falls sowas schon mal gefragt wurde würde mir Link reichen um das dann selbst zu erarbeiten.
Gruß Lars

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei mit Speicher Dialog anlegen
04.03.2014 00:45:09
Oberschlumpf
Hi Lars
Mit Application.Dialogs(xlDialogSaveAs) würdest du die Exceldatei als die von dir ausgewählte Datei (Name + Typ) speichern.
Das ist also nicht das, was du suchst.
Wenn es dir nur darauf ankommt, den Speicherort deiner txt-Datei auswählen zu können, dann versuch es mal so:
Sub TxtSave()
Dim lstrPath As String
lstrPath = ordnerauswahl
If Right(lstrPath, 1)  "\" Then
lstrPath = lstrPath & "\"
End If
Open lstrPath & "textdatei.txt" For Output As #1
Print #1, "Hallo Welt"
Close
End Sub

Function ordnerauswahl()
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
ordnerauswahl = BrowseDir.items().Item().Path
If ordnerauswahl = "" Then End
On Error GoTo 0
End Function
Der ganze Code gehört in ein allgemeines Modul.
Starte nun den oberen Codeteil, also nicht die Function.
Nun wirst du nach einem Speicherort gefragt. Du musst also ein Verzeichnis auswählen.
Nach Bestätigung wird genau in das von dir ausgewählte Verzeichnis die Datei "textdatei.txt" gespeichert, die den Inhalt "Hallo Welt" hat.
Hilfts?
Ciao
Thorsten

Anzeige
AW: Textdatei mit Speicher Dialog anlegen
04.03.2014 18:36:30
Lars
Danke das ist genau was ich gesucht habe!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige