Excel VBA已传参却提示Compile Error: Argument Not Optional报错求助

核心错误（触发编译错误的根源） #

你代码里触发Argument not optional编译错误的核心原因是赋值语句非法换行未加续行符，位于RecordAudit过程的循环段：

' 错误写法：拆分赋值语句未加续行符
For i = 1 to tempCollection.count
     wbMaster.Worksheets("AuditLog").Cells(MasterNextRow, i).Value = 
     tempCollection.Item(i)
Next i

VBA按行解析语法，上述写法会被识别为两条独立语句：

1. 第一行是不完整的赋值语句，等于号后缺少右值
2. 第二行被判定为对Collection的Item属性执行赋值操作，你只传入了索引参数i，缺少要赋值的目标值，因此直接触发参数不可选的编译错误。

修复方法 #

要么把两行合并为一行，要么在第一行末尾加空格+下划线的续行符：

' 修复写法1：合并为一行
For i = 1 to tempCollection.count
     wbMaster.Worksheets("AuditLog").Cells(MasterNextRow, i).Value = tempCollection.Item(i)
Next i

' 修复写法2：加续行符
For i = 1 to tempCollection.count
     wbMaster.Worksheets("AuditLog").Cells(MasterNextRow, i).Value = _
     tempCollection.Item(i)
Next i

其他隐藏问题（修复编译错误后会触发运行时错误，建议同步修改） #

• 工作表名拼写错误：CreateCollection函数中第一处工作表名写为whorksheetname，多了字母h，和后续的worksheetname不一致，会导致取值失败
• 审计日志文件引用逻辑错误：直接用Workbooks(AuditLogPath)引用文件的前提是该文件已处于打开状态，如果文件未打开，需要先调用Workbooks.Open(AuditLogPath)打开再操作
• 工作表未指定所属工作簿：代码中所有Worksheets都没有指定所属工作簿，默认取当前活动工作簿，切换活动工作簿时会出现取值异常，建议明确指定工作簿，比如ThisWorkbook.Worksheets("worksheetname")
• 未判断文件是否存在：打开审计日志文件前建议先判断对应路径下文件是否存在，避免路径错误触发运行时错误

内容的提问来源于stack exchange，提问作者Eagle1