'********************************代码如下：

Sub 导出()
Dim AA As String
   ...
    AA="2018年1月1日至2018年3月31日公司出车四辆大型车辆（货车）出车里程及油料统计表(2018年4月统计).xlsx"

     ....
    Workbooks("总表.xlsm").Worksheets(Array(7,8,9,10)).Copy
ActiveWorkbook.SaveAs AA

End Sub

'***************运行错误‘1004’
’**************怀疑文件名过长，将AA的值改为"大车4"，运行正常
'***************想用那个长名字，手工改是可以的，可是VBA中不行，请高手指点

[此贴子已经被作者于2018-4-18 21:27编辑过]