Question

我查看了从一个excel工作簿到另一个excel工作簿的复制粘贴的几个代码。出于某种原因，即使我直接复制格式，我也会收到错误。到目前为止，我的代码只有~12行，所以如果你能看看问题是什么，那对我来说真的很有帮助。非常感谢你！

Sub UpdateActualWorkbook()

    Sheets("Input").Select
    Range("BE9").Select
    Selection.Copy

    Dim Display As String
    Display = Cells(1, 2).Value

    If Display = "Yes" Then

    Dim wb As Workbook
    Set wb = Workbooks.Open("Book1")
    wb.Sheets("Sheet1").Range("A1").PasteSpecial

End If
End Sub

目前我在wb.Sheets（“Sheet1”）上收到错误消息。范围（“A1”）。PasteSpecial ^这一行。这不会改变我是否成功.Paste或.Pastespecial。

如果有人能帮助我，我将非常感激。非常感谢你！

Answer 1

如果：

Set wb = Workbooks.Open("Book1")

失败，然后wb将Nothing，而PasteSpecial行会引发错误。如果您只想添加新工作簿，请使用：

Set wb = Workbooks.Add

如果要打开现有工作簿，请提供完整的文件规范。

Answer 2

我知道的很晚但是试试这个...

Sub tstcpy()
If Cells(1, 2).Value = “yes” Then
Workbooks("Book1a.xlsm").Sheets("Sheet1").Cells(9, 2).Copy _
Destination:=Workbooks("Book2.xlsx").Sheets("Sheet1").Cells(1, 1)
End If

End Sub

简单的Excel VBA - 将粘贴复制到另一个工作簿

2 个答案: