如何用VBA仅将Excel文件扩展名改为.pdf而不转换文件内容？

你的代码核心问题是创建了空白工作簿并保存为PDF，这和“修改原Excel文件扩展名”的需求完全不符，自然生成的文件无法正常读取。正确的思路是直接复制原Excel文件，并重命名副本的扩展名为.pdf（就像手动操作文件夹一样），以下是修正后的代码：

Sub RenameToPDF()
    Application.ScreenUpdating = False
    
    Dim originalPath As String
    Dim newFileName As String
    Dim fso As Object
    
    ' 获取当前打开的Excel文件完整路径
    originalPath = ActiveWorkbook.FullName
    
    ' 生成带日期的新文件名：移除.xlsm后缀，追加日期和.pdf
    newFileName = Left(originalPath, Len(originalPath) - 5) & "_" & Format(Date, "YYYYMMDD") & ".pdf"
    
    ' 调用文件系统对象处理复制重命名
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 复制原文件到新路径（True表示覆盖已存在的同名文件）
    fso.CopyFile originalPath, newFileName, True
    
    Set fso = Nothing
    Application.ScreenUpdating = True
    
    ' 提示最终保存路径
    MsgBox "文件已重命名为.pdf格式，保存路径：" & newFileName
End Sub

关键说明： #

1. 避免直接重命名原文件：原文件处于打开状态时无法直接重命名，因此采用复制副本的方式，直接给副本命名为带.pdf的文件名，等价于手动改扩展名。
2. 日期格式化优化：用Format(Date, "YYYYMMDD")生成标准的8位日期字符串，避免单数字月份/日期的格式问题（比如1月不会显示为1而是01）。
3. 无需解锁工作簿：代码仅复制原文件，不修改原文件内容，因此不需要调用Deverouiller_Classeur这类解锁函数。

原有代码问题分析： #

你之前的代码通过Workbooks.Add创建空白工作簿，再用SaveAs保存为.pdf，本质是让Excel导出一个空白的PDF文件，和原Excel文件的内容毫无关联，完全不符合“修改原文件扩展名”的需求。

后续操作提示： #

上传该.pdf后缀的文件到在线应用后，下载回来只需要手动将扩展名改回.xlsm，就能正常打开原Excel文件。

内容的提问来源于stack exchange，提问作者Michael