Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro speichern unter

makro speichern unter
20.02.2004 15:21:40
Martin
Hallo
Ich möchte in einem Makro ein Tabellenblatt als csv und zwar mit dem Namen diese Blattes speichern.
Weiß das vielleicht jemand?

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

Betreff
Datum
Anwender
Anzeige
AW: makro speichern unter
20.02.2004 16:01:33
Ulf_MS
Hi Martin,
probier es mal hiermit

Sub test()
Dim tabna As String
tabna = ActiveSheet.Name
'Den Pfad musst du dir raussuchen
ActiveWorkbook.SaveAs FileName:= _
"C:\WINNT\Profiles\uh\Desktop\" & tabna & ".csv", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

mfg
Ulf_MS
AW: makro speichern unter
20.02.2004 16:14:29
Matthias G
Hallo Martin,
Folgender Code mach eine Kopie des aktiven Blattes, Speichert sie im Verzeichnis der Arbeitsmappe und schließt diese Kopie gleich wieder:

Sub SaveCSV()
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".csv", FileFormat:= _
xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges:=False
End Sub

Nimm die DislpayAlerts raus, falls vor dem Überschreiben gewarnt werden soll.
Gruß Matthias
Anzeige
AW: makro speichern unter
23.02.2004 09:19:25
martin
danke an Euch beide!!!

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige