如何将文件内容从 xlsm 复制到另一个 xlsm？答案

【问题标题】：How to copy file contents from xlsm to another xlsm?如何将文件内容从 xlsm 复制到另一个 xlsm？
【发布时间】：2021-05-15 16:52:05
【问题描述】：

我想将数据从主工作簿传输到另一个工作簿如果传输到destination.xlsx成功但是如果转移到destination.xlsm 不成功

这是我的代码

Private Sub CommandButton1_Click()

Dim strPath2 As String
Dim wbk As Workbook

strPath2 = "C:\destination.xlsm"

On Error Resume Next

Set wbk = Workbooks.Open(strPath2)


Application.ScreenUpdating = False
Application.DisplayAlerts = False

 
ThisWorkbook.Worksheets("Master").Range("A1:A30").Copy
wbk.Worksheets("destination").[E15].PasteSpecial Paste:=xlPasteValues
    
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

你的整个代码都可以正常工作，除了这部分，

ThisWorkbook.Worksheets("Master").Range("A1:A30").Copy
wbk.Worksheets("destination").[E15].PasteSpecial Paste:=xlPasteValues

通过使用复制方法，您可以在后续输入目的地，而无需特殊粘贴：

Sheet1.Range("A1:A5").Copy wbk.Worksheets("Sheet1").Range("A1")

最终它会以更少的代码执行与您需要相同的步骤。

【讨论】：