VBA 错误代码“编译错误：外部过程无效”

Question

我正在尝试编写从其他地方复制的代码。

代码不起作用并给我一个错误。

如果有语法错误，请有人检查并建议

Dim directory As String, filename As String, sheet As Worksheet, total As Integer
Dim WrdArray() As String

Application.DisplayAlerts = False

directory = "U:\GMR & PAYROLL REPORTS 2018-19\FEBRUARY 2019\COMPLETED\PAYSLIPS\"
filename = Dir(directory & "*.csv")

Do While filename <> " "
    Workbooks.Open (directory & filename)
        WrdArray() = Split(filename, ".")
        For Each sheet In Workbooks(filename).Worksheets
            Wookbooks(filename).ActiveSheet.Name = WrdArray(0)
            total = Workbooks("PAYSLIPS CONSOL.xlsm").Worksheets.Count
            Workbooks(filename).Worksheets(sheet.Name).Copy after:=Workbooks("PAYSLIPS CONSOL.xlxm").Worksheets(total)

            GoTo exitFor:

        Next sheet

exitFor:
    Workbooks(filename).Close
    filename = Dir()
Loop
Sheets("ALL HOMES").Select
lastsheets = Worksheets.Count
For i = 2 To lastsheets
mysheet = Sheets(i).Activate
mysheetrow = Cells(Rows.Count, 1).End(x1Up).Row
Range("A1;U" & mysheetrow).Select
Selection.Copy
Sheets("ALL HOMES").Select
lastrow = Cells(Rows.Count, 1).End(x1Up).Row
Range("A1").Select
Range("A" & lastrow).Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Next i
MsgBox "Your Report is Ready"

Application.DisplayAlerts = True

End Sub

Answer 1

一般情况下，您可以使用 VBA 编译器来检查您的项目是否可以编译。要在 VBA 编辑器中执行此操作，请单击调试 -> 编译 VBA 项目。每次你点击它，它要么运行流畅，什么都不说，要么给你显示它运行到的项目中的第一个编译错误（这样你就可以修复它，然后再次点击编译）。

我试图编译你发布的代码：

首先，正如评论中所建议的，您没有 Sub 顶部的行。例如

Sub create_payroll()

，其中 create_payroll 是此宏的首选名称。将此行放在您在问题中发布的所有代码的正上方。

其次，有一个错字“Wookbooks”而不是 Workbooks。