vba - 范围类的复制方法从外部工作簿复制数据失败

Question

我正在尝试将表从外部工作簿复制到我的工作簿中，并且出现主题行错误。
它发生在 rngSourceRange.Copy rngDestination线。

有什么我想念的吗？

 Sub ImportLogInfo()
    Dim wkbCrntWorkBook As Workbook
    Dim wkbSourceBook As Workbook
    Dim rngSourceRange As Range
    Dim rngDestination As Range

    Set wkbCrntWorkBook = ActiveWorkbook

            Set wkbSourceBook = Workbooks.Open(Filename:="C:\Users\Documents\Proposal Log Feeder\Modular Proposals Log.xlsb", ReadOnly:=True)
            Set rngSourceRange = wkbSourceBook.Sheets("Log").Range("DBtable")
            wkbCrntWorkBook.Activate
            Set rngDestination = wkbCrntWorkBook.Sheets("Log").Range("DBtable3")
            rngSourceRange.Copy rngDestination
            rngDestination.CurrentRegion.EntireColumn.AutoFit
            wkbSourceBook.Close False
End Sub

提前致谢!

Answer 1

您应该只需要目的地的左上角单元格。使用左上角的单元格可以避免大小不匹配的问题。由于您稍后将 rngDestination 用于其他目的，因此在将其用作目标时只需使用 .cells(1) 即可。

...
Set rngSourceRange = wkbSourceBook.Sheets("Log").Range("DBtable")
wkbCrntWorkBook.Activate
Set rngDestination = wkbCrntWorkBook.Sheets("Log").Range("DBtable3")
rngSourceRange.Copy rngDestination.cells(1)
---

我不完全清楚您收到了哪些通知和警告，但您可以在代码顶部尝试此操作。

application.displayalerts = false

然后在退出子程序之前使用以下命令再次打开它们。

application.displayalerts = true