为什么types不匹配错误？

任何想法，为什么我在这里得到types不匹配的错误？ 游标突出显示了该代码底部的文件名string中的倒数第二个“＆”。 与variablesdt有关的是一个date。 有任何想法吗？

码：

Sub daily_report_data() Dim strpath1 As String Dim strpath2 As String Dim wb As Workbook Dim wb2 As Variant Dim ws As Worksheet Dim nm As String Dim dt() As Date strpath1 = "\\ironhide\[folder name]\[folder name]\[folder name]\[folder name]\" strpath2 = "c:\Users\[user.name]\desktop\data files\" Workbooks.Open Filename:=strpath1 & "[file name].xlsx", ReadOnly:=True Set wb = Workbooks("[file name]") Set ws = Workbooks("[file name]").Sheets("data") nm = ws.Name dt = Date Workbooks.Add DoEvents ActiveWorkbook.SaveAs strpath2 & nm & "_" & dt & ".xlsx" Set wb2 = Workbooks(nm & dt & ".xlsx") 

Answer 1

你已经声明：

 Dim dt() As Date 

这是一个数组。 您不能在数组上使用“＆”string连接运算符。 只要删除（）。

Answer 2

尝试使用这样的东西：

 Dim FileNPath As String Dim strDate As String Dim dt As Date strDate = Format(dt, "ddmmyyyy") FileNPath = strpath2 & nm & "_" & strDate & ".xlsx" ActiveWorkbook.SaveAs fileName:=FileNPath