在复制工作簿、删除所有宏(包括表单控件)以及粘贴到另一个没有删除公式的新工作簿时，应使用什么代码？

在复制工作簿、删除所有宏(包括表单控件)以及粘贴到另一个没有删除公式的新工作簿时，可以使用以下代码：

Sub CopyWorkbook()
    Dim srcWorkbook As Workbook
    Dim destWorkbook As Workbook
    
    ' 打开源工作簿
    Set srcWorkbook = Workbooks.Open("源工作簿路径")
    
    ' 复制源工作簿到新工作簿
    srcWorkbook.Activate
    srcWorkbook.Sheets.Copy
    
    ' 关闭源工作簿
    srcWorkbook.Close SaveChanges:=False
    
    ' 获取新工作簿
    Set destWorkbook = ActiveWorkbook
    
    ' 删除所有宏
    destWorkbook.VBProject.VBComponents.Clear
    
    ' 保存新工作簿
    destWorkbook.SaveAs "新工作簿路径"
    
    ' 关闭新工作簿
    destWorkbook.Close SaveChanges:=True
End Sub

这段代码使用VBA语言编写，通过打开源工作簿、复制工作簿中的所有工作表到新工作簿，然后删除新工作簿中的所有宏，最后保存并关闭新工作簿。你需要将代码中的"源工作簿路径"替换为实际的源工作簿路径，将"新工作簿路径"替换为实际的新工作簿路径。

这段代码适用于Microsoft Excel软件，用于在复制工作簿时删除所有宏和表单控件，然后将工作簿粘贴到另一个新工作簿中，新工作簿中的公式将保留。这在需要复制工作簿内容但不需要宏和表单控件的情况下非常有用。

腾讯云相关产品和产品介绍链接地址：

• 腾讯云对象存储（COS）：腾讯云提供的高可靠、低成本的云端存储服务，适用于存储和处理大规模非结构化数据。
• 腾讯云云服务器（CVM）：腾讯云提供的弹性计算服务，可快速部署云服务器实例，满足不同业务场景的需求。
• 腾讯云数据库（TencentDB）：腾讯云提供的稳定可靠、高性能的云数据库服务，包括关系型数据库、NoSQL数据库等多种类型。
• 腾讯云人工智能（AI）：腾讯云提供的人工智能服务，包括图像识别、语音识别、自然语言处理等多个领域的人工智能能力。
• 腾讯云物联网（IoT）：腾讯云提供的物联网开发平台，帮助用户快速构建和管理物联网设备、数据和应用。
• 腾讯云移动开发（Mobile）：腾讯云提供的移动应用开发和运营解决方案，包括移动应用开发平台、移动推送服务等。
• 腾讯云区块链（Blockchain）：腾讯云提供的区块链服务，帮助用户快速搭建和管理区块链网络，实现可信数据交换和智能合约执行。
• 腾讯云视频服务（VOD）：腾讯云提供的视频点播服务，支持视频上传、转码、存储和播放等功能，适用于各种视频应用场景。
• 腾讯云音视频通信（TRTC）：腾讯云提供的实时音视频通信服务，支持音视频通话、互动直播等场景的实时通信需求。
• 腾讯云云原生应用平台（TKE）：腾讯云提供的云原生应用平台，帮助用户快速构建和管理容器化应用，实现应用的弹性伸缩和高可用性。