另保存代码出错！

peterpu · 发表于 2021-5-18 19:43

本帖最后由 peterpu 于 2021-5-18 20:36 编辑

将文件另保存出现错误！代码如下：
Sub 出错()
'下面程序能正常运行
'ActiveWorkbook.SaveAs Filename:="D:\" & " aa " & " 选股 " & " bb " & ".xlsm"

'第二条运行出错！
ActiveWorkbook.SaveAs Filename:="D:\" & DateSerial(Year(Sheet5.Range("G13")), Month(Sheet5.Range("G13")), Day(Sheet5.Range("G13"))) & " 选股 " & DateSerial(Year(Sheet5.Range("G18")), Month(Sheet5.Range("G18")), Day(Sheet5.Range("G18"))) & ".xlsm"
End Sub

求老师出手解决，万分感谢！

Yalishanda30 · 发表于 2021-5-18 19:52

本帖最后由 Yalishanda30 于 2021-5-18 19:54 编辑

文件名包含\所以报错试试改成Filename:="D:\" & Format(Sheet5.Range("G13"),"yyyymmdd") & " 选股 " & Format(Sheet5.Range("G18"),"yyyymmdd") & ".xlsm"

peterpu · 发表于 2021-5-18 20:16

本帖最后由 peterpu 于 2021-5-18 20:34 编辑

Yalishanda30 发表于 2021-5-18 19:52
文件名包含\所以报错试试改成Filename:="D:\" & Format(Sheet5.Range("G13"),"yyyymmdd") & " 选股 " & For ...

谢谢老师指教！

现在我想明白了，第二条代码并没有错，只是日期之间包含了"/",这是Excel不允许的，只要将电脑系统日期设置成“-”，即“2021-05-18”，原第二条代码就不会错了。表现形式就成了：2021-05-06 选股 2021-02-18

bridgeyao · 发表于 2021-5-18 20:17

日期格式不能直接使用文件名，需要FORMAT一下

peterpu · 发表于 2021-5-18 20:35

bridgeyao 发表于 2021-5-18 20:17
日期格式不能直接使用文件名，需要FORMAT一下

现在我想明白了，第二条代码并没有错，只是日期之间包含了"/",这是Excel不允许的，只要将电脑系统日期设置成“-”，即“2021-05-18”，原第二条代码就不会错了。表现形式就成了：2021-05-06 选股 2021-02-18

		自动登录	找回密码
密码			免费注册

[已解决] 另保存代码出错！

评分

评分

最新热点 /1