将Excel工作表内容复制到新工作表不会复制Excel 2007中的VBA表单控件

我创build了一个Excel工作簿，根据主选项卡中的select“生成”新的表单（选项卡）。 背景：我有隐藏的预定义选项卡，我创build，并根据在主选项卡中所做的select，我的VBA代码将复制来自特定隐藏选项卡的内容，并将内容粘贴到通过VBA自动创build的新选项卡。 具有粘贴内容的新选项卡还包含一个窗体控件（button）。

在Excel 2010及更高版本中，一切正常，但在Excel 2007中，我粘贴的内容选项卡中缺less表单button。 我找不到任何与我的代码有关的问题，也无法确定为什么button不被复制。

检查工作表是否退出的代码，如果不是，则创build一个新的选项卡，并将隐藏选项卡中的内容复制到新创build的选项卡中。

我的代码中哪部分与Excel 2007不兼容，我该如何解决这个问题？

Sub NewWorkSheetProcess(ByVal b As String) Dim numLines As Integer Dim requestType, clientNumber, clientName, processType, screenName, ProcessName requestType = Sheets("FrontPage").Range("c9") clientNumber = Sheets("FrontPage").Range("c7") clientName = Sheets("FrontPage").Range("c5") processType = Sheets("FrontPage").Range("c11") screenName = Sheets("FrontPage").Range("c13") ProcessName = Sheets("FrontPage").Range("c15") If Not SheetExists(b) Then Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = b Sheets("MainProcess").Cells.Copy Worksheets(b).Range("A1") Worksheets(b).Cells(5, 3).Value = ProcessName Worksheets(b).Cells(7, 3).Value = clientName Worksheets(b).Cells(8, 3).Value = processType Worksheets(b).Cells(6, 3).Value = screenName Worksheets(b).Cells(9, 3).Value = Worksheets(b).Name End If If Worksheets(b).Name = "Modify Process" Then MsgBox "Please ensure to highlight/notate all required configuration changes. -Thank you!", VbMsgBoxStyle.vbInformation, "Courtesy Message" End If End Sub 

更新：我尝试添加Application.CopyObjectsWithCells = True之前，我的副本，仍然无法正常工作。

Answer 1

加

 Application.CopyObjectsWithCells = True 

在运行Copy之前