Tabellenblatt kopieren

Forumthread: Tabellenblatt kopieren
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellenblatt kopieren

02.06.2006 15: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

AW: Tabellenblatt kopieren

02.06.2006 16:05:45

Bertram
Funktioniert

02.06.2006 16:17:23

Frank

AW: Tabellenblatt kopieren

02.06.2006 16: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 16: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