[已解决]VBA 代码优化

lotgot

各位老师好，小弟有一段自动保存在共享器的代码，之前测试都是好好的，可是几天过后出现了错误
请问各位老师可以帮忙看看是那边出错了吗？

错误信息是 Run-time error '1004'
Method 'SaveAs' of object'_Workbook' failed

1. Sub SaveOnShareFolder()
   
2. 'this is for ribbon update/save
   
3.     'On Error Resume Next
   
4.     Dim FName           As String
   
5.     Dim FPath           As String
   
6. 
   
7.     FPath = "\\11.1.11.11\CP\report\New folder"
   
8.     FName = "AA" & Format(Date, "ddmmyyyy") & ".xlsm": FileFormatNum = 52
   
9. 
   
10.     ActiveWorkbook.SaveAs Filename:=FPath & "" & FName

复制代码

最佳答案

月排行榜 / 总排行榜

zjdh

2017-1-3 13:20

1. Sub SaveOnShareFolder()
   
2.     Dim FName As String
   
3.     Dim FPath As String
   
4. 
   
5.     FPath = "\\11.1.11.11\CP\report\New folder"
   
6.     FName = "AA" & Format(Date, "ddmmyyyy") & ".xlsm"
   
7.     ActiveWorkbook.SaveAs FPath & FName, FileFormat:=52
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Sub SaveOnShareFolder()
   
2.     Dim FName As String
   
3.     Dim FPath As String
   
4. 
   
5.     FPath = "\\11.1.11.11\CP\report\New folder"
   
6.     FName = "AA" & Format(Date, "ddmmyyyy") & ".xlsm"
   
7.     ActiveWorkbook.SaveAs FPath & FName, FileFormat:=52
   
8. End Sub
   

复制代码

lotgot

zjdh 发表于 2017-1-3 13:20

老师您好，根据您的代码运行了一次 还是报错Excel 显示着这一句代码有问题，这样被标黄的
ActiveWorkbook.SaveAs FPath & FName, FileFormat:=52

zjdh

lotgot 发表于 2017-1-3 15:28
老师您好，根据您的代码运行了一次 还是报错Excel 显示着这一句代码有问题，这样被标黄的
ActiveWorkboo ...

我这是运行过的，没报错。估计是你那路径 "\\11.1.11.11\CP\report\New folder\"出问题啦。

lotgot

zjdh 发表于 2017-1-3 15:58
我这是运行过的，没报错。估计是你那路径 "\\11.1.11.11\CP\report\New folder\"出问题啦。

老师你好，真的是链接问题，我把中文字拿掉就ok了～谢谢啦