Question

我创建了一个可以在我的计算机上完美运行的宏，但在另一台上却不是，我不知道为什么...这是将工作表从一个工作簿复制到另一个工作簿的简单宏。

我在此行 eval()

上收到错误 9（超出范围）

是不是因为excel版本不同？

Set wbk1 =  Workbooks("発注残マクロ")

任何建议将不胜感激。

Answer 1

正如 ScottCraner 建议添加扩展有助于解决问题。

Sub CopySheet()
    Dim wbk1 As Workbook, wbk2 As Workbook

    'Workbooks("発注残マクロ.xlsx").Activate

    Set wbk1 =  Workbooks("発注残マクロ.xlsx")
    Set wbk2 = Workbooks("ocs680j.xlsx")

    'シートの名前を記入
    wbk2.Worksheets("ocs680j.xlsx").Copy After:=wbk1.Sheets(wbk1.Sheets.Count)
    wbk2.Saved = True
    wbk2.Close SaveChanges:=False
    
End Sub

为什么宏在一台计算机上运行完美，而在另一台计算机上却不是？

1 个答案: