VBA Excel – 粘贴到工作簿中的每个工作表

我想从一个工作簿中复制一个标题，并将其粘贴到同一范围上的其他工作簿中的每个工作表。

'header Dim OP_wb As Workbook: Set OP_wb = ActiveWorkbook Dim header As Range Set header = OP_wb.Sheets("Optic Main").Range("A1:F1") Dim Part_WS As Worksheet Demand_WB.Activate For Each Part_WS In Demand_WB header.Copy Demand_WB.Activate ActiveSheet.Range("A2").Paste Next Part_WS 

我得到这个错误：

对象不支持该方法的这个属性

在线：

 For Each Part_WS In Demand_WB 

有人可以帮助修复代码吗？

这是代码之前我的问题：

 Dim Demand_WB As Workbook Workbooks.Add For i = 1 To 5 Worksheets.Add Next i ActiveWorkbook.SaveAs Filename:="C:\Users\rosipov\Desktop\eliran\MFG - GSS\Demand_Optics " & Format(Now(), "dd.mm.yyyy") & ".xlsx" Worksheets("Sheet1").Name = "Illuminators" Worksheets("Sheet2").Name = "Analyzers" Worksheets("Sheet3").Name = "Chuck" Worksheets("Sheet4").Name = "Compensators" Worksheets("Sheet5").Name = "Spectrometers" Worksheets("Sheet6").Name = "LDSR" Set Demand_WB = Workbooks("C:\Users\rosipov\Desktop\eliran\MFG - GSS\Demand_Optics " & Format(Now(), "dd.mm.yyyy") & ".xlsx") 

Answer 1

 For Each Part_WS In Demand_WB.Sheets header.Copy Part_WS.Range("A2").PasteSpecial xlPasteAll Next Part_WS