Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt kopieren

Tabellenblatt kopieren
02.06.2006 13:50:44
Frank
Hallo Leute - ich habe ein Brett vor`m Kopf.
Könnte mir das mal bitte jemand wegnehmen?
Ich möchte mittels Programmcode ein Tabellenblatt als neue Datei abspeichern.
Ich bekomme das nicht hin.
So hatte ich es versucht:
ActiveWorkbook.Sheets("Discovererfehler").SaveCopyAs Filename:=PfadL & Dateiname1
Wenn ich nur dass ActiveWorkbook speichern möchte klappt es natürlich, aber ich möchte nur ein Tabellenblatt davon.
Gruß
Frank

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren
02.06.2006 14:05:45
Bertram
Hi Frank,
so sollte es gehen:
ActiveWorkbook.Sheets(1).Copy
Activeworkbook.SaveAs PfadL & Dateiname1, xlWorkbookNormal
Du darfst allerdings kein With..End With für ActiveWorkbook benutzen.
Gruß
Bertram
Funktioniert
02.06.2006 14:17:23
Frank
Hallo Bertram!
Ich habe den ganzen Code mal aufgeschrieben. So funktioniert es problemlos.
Vielen Dank
Pfad = ActiveWorkbook.Path
PfadL = Pfad & "\Oculus_Fehlerlisten\"
Dateiname1 = Left(Now, 2) & Mid(Now, 4, 2) & Mid(Now, 9, 2) & "_Discovererfehler_komplett.xls"
ActiveWorkbook.Sheets("Discovererfehler").Copy
ActiveWorkbook.SaveAs PfadL & Dateiname1, xlWorkbookNormal
ActiveWorkbook.Close
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige