复制并插入单元格到另一个工作簿

嗨我已经尝试录制宏和我从不同论坛得到的代码，但没有任何工作。我想在宏打开的工作簿中复制一系列单元格，并将其插入通过Excel.Application打开的Excel文件中。这意味着下面的行将被向下移动并且不会被覆盖。很高兴发生了什么事是一个空白行插入，而不是我复制的单元格。这里是我当前的代码：复制并插入单元格到另一个工作簿

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

来源

2013-08-19 user2695209

请检查工作簿是只读的，片所保护与否（Debug.Print线），然后把一个破发点（红点）行Application.CutCopyMode = False。检查调试行的值，并且您是否能够手动编辑第52行中的数据。您是否有On Error Resume Next在这个Sub？评论一下，看看你是否有错误显示。

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

来源

2013-08-19 06:29:02 PatricK

一些更多的解释会很好。告诉问题代码有什么问题。 – Micha

仍然发生同样的情况...... :( – user2695209

这些是你的过程中涉及行插入/删除的唯一行吗？你还可以确认'ThisWorkbook.Worksheets（“Template”）。Range（“A1：G22”）'顶部没有空行？ – PatricK

复制并插入单元格到另一个工作簿

回答

相关问题