文件未保存错误，将Excel工作表转换为PDF

Question

我花了很多时间在网上寻找答案，也许我只是笨蛋？

任何帮助将不胜感激

FName = Environ("USERPROFILE") & "\Desktop" & "\" & IRN & Space(1) & OLDA & Space(1) & Format(Now, "mm-dd-yyyy") & Space(1) & ".pdf"
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FName, _
    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=True, OpenAfterPublish:=False

Answer 1

导致它无法保存文件的原因有两个。

1. 文件名无效 - 如果是这种情况，可能会发生这种情况 IRN或OLDA包含文件中无效的字符 名称，例如冒号。

2. 要保存的文件已存在但已打开。这个 将锁定文件并阻止其被写入。