如何將文件內容從 xlsm 復制到另一個 xlsm？

Question

我想將數據從主工作簿傳輸到另一個工作簿如果傳輸到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

Answer 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")

最終，它使用更少的代碼執行與您需要相同的步驟。