Excel 将单元格复制并插入到其他工作簿

嗨，我已经试过录制宏和我从不同论坛得到的代码，但是没有任何效果。我想在打开的工作簿中复制宏所在的单元格区域，并将其插入通过excel.Application打开的excel文件中。这意味着下面的行将向下移动，并且不会被覆盖。然而，所发生的只是插入一个空行，而不是我复制的单元格。以下是我当前的代码：

ThisWorkbook.Worksheets("Template").Range("A1:G22").Copy
WORxls.Worksheets("SheetSample").Rows("52:52").Select
WORxls.Application.ActiveWindow.Selection.Insert (xlDown)

---

请检查工作簿是否为只读和工作表保护（

Debug.Print

行），然后在行

Application.CutCopyMode=False

上放置一个断点（红点）。检查调试行的值，以及您是否能够手动编辑第52行中的数据。您是否在此子系统中设置了“下一步继续执行错误时的

”

？将其注释掉，然后查看是否出现错误

ThisWorkbook.Worksheets("Template").Range("A1:G22").Copy
With WORxls.Worksheets("SheetSample")
    Debug.Print "Workbook ReadOnly? " & WORxls.ReadOnly
    Debug.Print "Sheet ProtectContents: " & .ProtectContents
    Debug.Print "Sheet AllowEditRanges: " & .Protection.AllowEditRanges
    Debug.Print "Sheet AllowInsertingRows: " & .Protection.AllowInsertingRows
    .Activate
    .Rows("52:52").Insert Shift:=xlDown
End With
Application.CutCopyMode = False

---

再多解释一下就好了。告诉我问题代码出了什么问题。仍然会发生同样的情况…：（这些是您的过程中唯一涉及行插入/删除的行吗？您是否还可以确认

此工作簿。工作表（“模板”）。范围（“A1:G22”）

顶部没有空行？是的，只有这些行。否，顶部没有空行。我尝试通过

选择在同一工作簿上复制。插入

，但在不同的工作簿上无效。ReadOnly=False ProtectContents=False Protection.AllowEditRanges=Error（此操作不返回布尔值）Protection.AllowInsertingRows=False知道如何解决此问题吗？我尝试了WORxls.Worksheets（ClientTab）。Protect AllowInsertingRows:=True，但仍然不起作用。