vba - 子或函数未定义错误？

Question

谁能看一下这段代码为什么会给我错误？

Sub orgnize()
    Dim Rng As Range

    Application.ScreenUpdating = True
    Workbook("kob1").Activate
    Worksheets(1).Activate
    Worksheets(1).Range("a1,b1,c1,d1,e1,f1,g1,j1,k1,l1,n1,o1,p1").EntireColumn.Delete
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Set Rng = Selection.SpecialCells(xlCellTypeVisible)
    Rng.Copy
    Sheets(2).Range("a1").PasteSpecial xlPasteValues
    Workbooks("kob1").Close SaveChanges:=False
End Sub

Answer 1

此行显示错误:

Workbook("kob1").Activate

因此，将其修改如下:

Workbooks("kob1").Activate

它将运作良好。