VBScript zum abspeichern eines einzelnen Tabellenblattes als Text

Question

Hallo,

ich kenne mich mit VBA leider nicht aus, deshalb eine Bitte an alle die mir helfen können.

Ich möchte folgendes erreichen:

Ein einzelnes Tabellenblatt soll als Text unter einem festgelegten Namen (Inhalt von B2 "45623") in einem bestimmten Verzeichnis gespeichert werden. Wenn es in diesem Verzeichnis bereits eine Datei mit diesem Namen gibt, dann soll unter einer fortlaufenden Nummer gespeichert werden. z.B.: Die erste Datei heisst "45623.txt" dann sollten die nächsten "45623_1.txt, 45623_2.txt, 45623_3.txt" usw. heißen.

Wenn mir einer dabei helfen kann, da wäre ich echt dankbar!

Answer 1

noch eine kleine Ergänzung:

das ganze soll als Makro durch ein Schaltfläche "Text-Export" ausgeführt werden.

Answer 2

Moin,

Anbei mal der Versuch einer entsprechenden Umsetzung in dieser BeispielMappe.

Der eigtl. Code liegt in Modul1 in einem einzigen Sub. Hier gilt es dann auch VOR einem Test den ZielPfad anzupassen, der zwingend existieren MUSS und auch zwingend mit einem BackSlash ( \ ) enden MUSS.

Cu
TheBlackBird ®

Answer 3

Moin,

danke TheBlackBird, klappt richtig gut, genauso wollte ich es haben.

Also, nochmal besten Dank...