Excel VBA保存PDF后FTP上传异常：PDF文本丢失99%求助

嘿，这个问题我之前帮不少开发者排查过，核心大概率出在FTP传输的细节上。结合你描述的“本地PDF正常、手动上传正常、脚本上传就损坏”的现象，主要有这几个可能的原因：

• FTP传输模式选错了（最常见）
  PDF是纯二进制格式的文件，而部分FTP脚本默认会用ASCII模式传输——这种模式会把文件里的某些二进制字节当成文本换行/控制字符修改，直接破坏PDF的内部结构，导致打开后大量文本丢失。手动上传时，大多数FTP工具（比如FileZilla）会自动识别PDF为二进制文件，自动切换传输模式，所以没问题。
  解决办法：在FTP脚本执行上传命令前，必须先添加binary命令，示例脚本流程如下：

  open ftp.yourserver.com
  username your_account
  password your_pwd
  binary  # 关键：切换到二进制传输模式
  put "C:\path\to\your\generated.pdf" "/server/target/path.pdf"
  quit
  

• VBA生成PDF后，文件未完全写入就触发上传
  VBA执行ExportAsFixedFormat保存PDF后，系统可能还在后台将数据写入磁盘，此时脚本立刻上传的话，拿到的是不完整的文件。而手动上传时，你肯定等了一会儿，文件已经完全写入磁盘，所以显示正常。
  解决办法：给VBA添加等待机制，确保文件完全写入后再执行上传：

  Dim fs As Object
  Set fs = CreateObject("Scripting.FileSystemObject")
  Dim pdfFullPath As String
  pdfFullPath = "C:\your\target\file.pdf"
  
  ' 生成PDF
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFullPath
  
  ' 循环等待文件解锁（确认写入完成）
  Do While True
      On Error Resume Next
      fs.OpenTextFile(pdfFullPath, 1).Close
      If Err.Number = 0 Then Exit Do
      On Error GoTo 0
      DoEvents
      Application.Wait Now + TimeValue("00:00:01") ' 每秒检查一次
  Loop
  
  ' 此处执行FTP上传逻辑
  

• FTP脚本的文件路径/文件名存在错误
  虽然你说上传操作成功，但有可能脚本里指定的PDF路径并非刚生成的文件，而是某个旧的、损坏的同名文件（比如路径拼写错误、VBA生成的路径和脚本调用的路径不一致），导致上传的是残留的损坏文件。
  解决办法：在VBA里将生成的PDF路径输出到日志，或者在FTP脚本里打印要上传的文件路径，确认和实际生成的文件完全一致。

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