Excel参数不可选

嘿，我正在创build一个窗体，有多个button，触发不同的子程序。 第一个代码适用于第二个代码

Sub LateReports_Click() Dim ThisYear As Interior Dim ThisMonth As String ' Create a new workbook for Late Tools in the current year and month folder ThisYear = Year(Now()) ThisMonth = MonthName(Now()) Workbooks.Add ActiveWorkbook.SaveAs Filename:="R:\Tool Calibration\" & ThisYear & "\" & ThisMonth & "\Late_Tools_" & Month & ".xls" End Sub 

我得到一个Argument not optional编译错误。 有什么build议么？

Answer 1

干得好：

 Sub LateReports_Click() Dim ThisYear As Integer Dim ThisMonth As String ' Create a new workbook for Late Tools in the current year and month folder ThisYear = Year(Now()) ThisMonth = MonthName(Now()) Workbooks.Add ActiveWorkbook.SaveAs Filename:="R:\Tool Calibration\" & ThisYear & "\" & ThisMonth & "\Late_Tools_" & ThisMonth & ".xls" End Sub 

我的猜测是，你的意思是将ThisYear声明为Integer，而不是Interior，并且在你的ActiveWorkbook.SaveAs行中，你简单地引用ThisMonth