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

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"，运行正常
'***************BUT ,老板要那个长的名字，只好先出表，再改表名，有没有大侠能帮忙，指点一下，直接出长表名？毕竟，每月都要出一张的。3Q

跪求，解！