xlsheet.copy(... funktioniert nicht

[jo@chim]

Ich will beim Austauschen einer Excel-Tabelle (Notes-Dateianhang) benutzerdefinierte Tabellenblätter in die neue Vorlage hinüberkopieren:

Code:

'check for user defined worksheets in original template
c = excelobj_o.Workbooks(1).Worksheets.Count
For x = 1 To c
wsn$=excelobj_o.Workbooks(1).Worksheets(x).Name
If wsn$ <> "Performance Analysis" and wsn$ <> "Reportinfos" And wsn$ <> "PA-Export" And wsn$ <> "Translations" Then
Set xlsheet_o = excelobj_o.Workbooks(1).Worksheets(wsn$)
Print "copying user defined worksheet " & wsn$
Set lastsheet = excelobj_n.ActiveWorkbook.Worksheets(excelobj_n.ActiveWorkbook.Worksheets.Count)
Set xlsheet_o = excelobj_o.Workbooks(1).Worksheets(wsn$)
Call  xlsheet_o.Copy(Null,lastsheet)
Call excelobj_n.ActiveWorkbook.Save
MsgBox excelobj_n.ActiveWorkbook.Worksheets.Count
End If
Next

Tut aber nix. Die MsgBox gibt für die neue Tabelle die Anzahl der bereits vordefinierten Arbeitsblätter zurück; das Arbeitsblatt xlsheet_o wird nicht kopiert (Zuweisung passt - xlsheet_o.Name gibt korrekt den Namen zurück).

Bin ein wenig ratlos...

[Andrew Harder]

Ich habe jetzt kein Excel da um das zu testen, aber wenn Du beide Templates auf der Platte hast, dann würde ich das wohl in etwa so probieren

Code:

tempDir$ = Environ("Temp")
set xlwbTemplateOld_o = excelobj_o.Workbooks.Open(tempDir$ & "\Template_Old.xlt")
set xlwbTemplateNew_o = excelobj_o.Workbooks.Open(tempDir$ & "\"Template_New.xlt")
orginalSheetNames(0) = "Performance Analysis"
orginalSheetNames(1) = "Reportinfos"
orginalSheetNames(2) = "PA-Export"
orginalSheetNames(3) = "Translations"
countOld = xlwbTemplateOld_o.Worksheets.Count
countNew = xlwbTemplateNew_o.Worksheets.Count
Print "count (before): ", Cstr(countNew)
doSave = False
For index = 1 To countOLD
wsn$ = xlwbTemplateOld_o.Worksheets(index).Name
If IsNull(Arraygetindex(orginalSheetNames, wsn$)) Then
Set xlsheet_o = xlwbTemplateOld_o.Worksheets(wsn$)
Print "copying user defined worksheet " & wsn$
Set lastsheet_o = xlwbTemplateNew_o.Worksheets(countNew)
Call xlsheet_o.Copy(Null,lastsheet_o)
doSave = True
countNew = xlwbTemplateNew_o.Worksheets.Count
Print "count (current): ", Cstr(countNew)
End If
Next index
Print "count (after): ", Cstr(countNew)
If doSave = True Then
Call xlwbTemplateNew_o.Save
End If

[jo@chim]

War ladürnich wieder ein Freitagspost... das ging deshalb nicht, weil ich mit zwei verschiedenen Excel-Instanzen gearbeitet hatte - und noch dazu vergessen, das On Error Resume... auszukommentieren. Im selben Excel.Application-Objekt funktioniert es einwandfrei.

Aber danke für Deinen Wink mit dem Array-Pfahl   Ist natürlich sauberer, weil ich auf diese Weise die zu berücksichtigenden Vorlage-Tabellenblätter im Template-Sheet anstatt im Code definieren kann.