Office: Notepad, Datei speichern unter und beenden

Hallo,

ich hatte schon öfter Fragen zu meiner MP Datenbank hier gestellt und auch gute Antworten bekommen.

Als letztes fehlt mir nur noch das Speichern und Beenden von Notepad aus Excel heraus durch VBA, falls das überhaupt möglich ist. Bei meinen Nachforschungen in Google wurde Notepad immer ohne zu speichern per Mausklick beendet.

Code:

Mit diesem Code übergebe ich alle relevanten Daten für eine m3u Datei. Der Speicherpfad ist in der Tabelle m3u hinterlegt in C1. Gibt es eine Möglichkeit, wenigstens das Datei - Speichern unter in Notepad über VBA zu öffnen? Das der gesamte Vorgang mit VBA zu bewerkstelligen ist, das wage ich mal zu bezweifeln. Alle dafür relevanten Daten hätte ich aber parat.

Bin für jegliche Hilfestellung dankbar.
beste Grüße Foulcrow

:)

 

Hallo!

Du brauchst Notepad nicht. Du kannst den Inhalt per VBA zusammenstellen, dann mit "Application.GetSaveAsFilename" den Speichern-Unter-Dialog aufrufen und dann die Textdatei als m3u speichern.

Gruß, René

 

Beispielcode:

 

Hallo Mumpel,

vielen Dank für deine Antwort. Ich probiere es nachher aus und gebe dir eine Rückmeldung.

beste Grüße Foulcrow

 

Hallo René,

das klappt super. Nochmals vielen Dank für deine Bemühungen.

Lässt sich der Vorgang noch weiter automatisieren? Der Speicherpfad ist in E1 hinterlegt und der Playlist Name wird über eine UserForm in G1 hinterlegt. So das der Speichern unter Dialog gar nicht mehr angezeigt wird? Ich habe da selbst schon probiert, doch nichts hinbekommen.

beste Grüße Foulcrow

 

Hallo René,

so sieht mein angepasster Code aus:

Code:

Der Speicherordner wird geöffnet und der Name aus G1 wird bei Datei eingetragen. Die Dateiendung ist Dank dir auch vorhanden. Wie kann ich jetzt das Speichern direkt über deinen Code auslösen?

beste Grüße Foulcrow

 

Die Datei wird automatisch erstellt, das macht der Code ab Zeile "Open strDateiname...."

 

Hallo René,

Danke für deine Hilfe. Ich habe mich vielleicht falsch ausgedrückt. Manuell speichern geht super. Die Datei wird auch richtig im Ordner erstellt. Ich wollte jetzt den Klick auf den Speicher-Button nicht machen müssen. Alles andere wird ja schon automatisch erledigt.

Ich habe das schon mit PDF geschafft, das die automatisch abgespeichert werden. Da wird der Speichern-unter-Dialog gar nicht geöffnet. Leider habe ich es nicht geschafft, diesen Code anzupassen bzw. das Auslesen in C nicht hinbekommen. Im Internet hatte ich dann gelesen, dass man so einen File Namen braucht, der mit xl beginnt. Das sind dann wohl die Excel Namen der verschiedenen Dateiendungen. Für m3u Dateien habe ich nichts gefunden, was mit xl anfängt.

beste Grüße Foulcrow und ein schönes Osterfest

 

"xl" ist nur für Exceldateien. Du willst also immer den selben Dateinamen nutzen? Oder steht der Dateiname auch in einer Zelle?

 

'Name der Playlist eintragen und speichern
Tabelle3.Cells(1, 7) = Me.Controls("TextBox1") & ".m3u" 'Name.m3u

Der Dateiname wird in G1 mit Dateiendung eingetragen. Wird durch eine Textbox übergeben, die ich in einer Userform mit der Aufforderung einen Namen zu vergeben realisiere.

' Pfad und Dateiname erstellen
strDateiname = Application.GetSaveAsFilename(Range("E1") & Range("G1"), fileFilter:="M3U-Files (*.m3u), *.m3u")

Damit übergebe ich den Dateinamen und den Speicherpfad, läuft Dank dir ja perfekt. Der richtige Ordner ist da bereits offen. Ich muss dann nur noch Speichern anklicken. Der Dialog schließt sich und die m3u ist am richtigen Platz abgespeichert.

Ich wollte dieses Klicken auf Speichern mit im Code reinbringen, damit der Speichern-unter-Dialog gar nicht erst auf geht.

 

Dann übergib den Pfad direkt in "strDateiname", dann brauchst Du den Speichern-Unter-Dialog nicht. Z.B.: strDateiname = Me.Textbox1.Text oder strDateiname = Tabelle3.Cells(1,7).Text

 

Hallo René,

nochmals vielen Dank für deine Hilfe. Ich habe mich jetzt doch für die Variante entschieden, in der mir der Speicherdialog angezeigt wird. So kann ich eventuelle Schreibfehler sofort verbessern.

beste Grüße Foulcrow