小编xlJ*_*kie的帖子

我了解了尼克的建议，以下是我得到的错误号和说明：

'-2147417848（80010108）'自动化错误调用的对象已与其客户端断开连接

我调试时突出显示的代码行是：

.Rows（Lst）。插入移位：= xlDown

我以为我曾在该论坛或其他论坛上看到某个地方要注销，然后重新注册特定文件，但是当我遇到该文件时，我就在家里，不想在笔记本电脑上尝试它，因为一切都可以正常工作100 ％ 在上面。

再次感谢您的帮助。我要在星期天离开2周，我真的需要在离开之前进行这项工作。为我工作的大多数人都不是excel大师，他们需要所有按钮/功能才能正常工作，因为他们将无法解决和/或解决问题。

我仍然在常规模块中坐在下面的代码中，而下面的下一组代码在一个工作表模块中。

 Sub add_InvRow()
 Application.Calculation = xlCalculationManual
 Application.EnableEvents = False

 switch = "off"

 With ThisWorkbook
  Dim wb As Excel.Workbook, Lst As Long
  Set wb = Application.ThisWorkbook
Dim ws As Worksheet, sw As Worksheet, os As Worksheet
   Set ws = ActiveSheet: Set sw = Application.Sheets(Sheet1.Name): Set os = Application.Sheets(Sheet4.Name)

  With ws
  Lst = ActiveCell.Row
  End With

   If ws.CodeName = "Sheet3" Then

  With os
   .Rows(213).Copy
  End With

  With ws


   .Rows(Lst).Insert Shift:=xlDown
   Application.CutCopyMode = False …