换了新电脑，宏运行，不能指定保存途径了。怎么办？

yoyo_gore

我其实就是想将excel导出为pdf，但是换了新电脑，以前是32位，现在是64位，都是win7系统，都是office2016.以前都没问，现在一运行就提醒附件的提醒。

代码如下：
Sub 导出pdf1()
'
' 导出pdf1 宏
'

'
  '  ChDir "C:\Users\Island\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\船员调配通知单\" & ActiveSheet.Name & "轮船员调配通知单" & "(" & Date & ")" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
   ' ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Shell "Explorer.exe D:\百度云同步盘\人力资源部文件\3 船员调配通知单\"
End Sub

gufengaoyue

看看这个路径下，是不是已经有这个文件了？

yoyo_gore

gufengaoyue 发表于 2019-1-23 11:40
看看这个路径下，是不是已经有这个文件了？

没有，这个情况已将排除了

yoyo_gore

gufengaoyue 发表于 2019-1-23 11:40
看看这个路径下，是不是已经有这个文件了？

我不设置路径就可以运行这个宏，但是一旦设置路径就会这样。就算换成其他路径也是这样。难道是64位系统不支持吗

gufengaoyue

有可能是这个date的问题
你把date随便换成数字试试。
你做个简单的测试，用下面这句，看会不会报错。

ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\123.pdf"

hyz00001

楼主，干嘛一定要保存呢。
我觉得那个savecopy as 就很不错。直接存副本，文件名相同它就自己替换。还能在文件名里面添加保存时间。
多大点事。

yoyo_gore

gufengaoyue 发表于 2019-1-23 18:33
有可能是这个date的问题
你把date随便换成数字试试。
你做个简单的测试，用下面这句，看会不会报错。

还是不行，报错情况是一样的。头疼。。。

yoyo_gore

hyz00001 发表于 2019-1-23 20:17
楼主，干嘛一定要保存呢。
我觉得那个savecopy as 就很不错。直接存副本，文件名相同它就自己替换。还能在 ...

老哥，我试了试save as，不能另存为PDF，求指点