VBA读取网络驱动器文件触发Runtime Error 429，文件重开即损坏求助

可能的原因及解决方案 #

1. 修复文件隐性损坏 #

• 新建空白.xlsm文件，手动复制原文件的工作表内容（不要直接复制整个文件），再重新粘贴VBA代码，先保存到本地驱动器测试。若本地正常，再移至网络驱动器，排除网络存储的格式/缓存问题。
• 将文件另存为.xlsb格式，再重新另存回.xlsm，可修复.xlsm基于XML压缩格式的隐性损坏。

2. 重新注册Excel对象库 #

以管理员身份打开命令提示符，根据你的Excel版本执行对应命令：

• 64位Excel（Office 365/2021）：

  regsvr32.exe "C:\Program Files\Microsoft Office\Root\VFS\ProgramFilesCommonX64\Microsoft Shared\OFFICE16\MSO.DLL"
  regsvr32.exe "C:\Program Files\Microsoft Office\Root\VFS\ProgramFilesCommonX64\Microsoft Shared\VBA\VBA7.1\VBE7.DLL"
  

• 32位Excel：

  regsvr32.exe "C:\Program Files (x86)\Microsoft Office\Root\VFS\ProgramFilesCommonX86\Microsoft Shared\OFFICE16\MSO.DLL"
  regsvr32.exe "C:\Program Files (x86)\Microsoft Office\Root\VFS\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLL"
  

执行后重启Excel，测试文件是否正常。

3. 优化工作表引用逻辑 #

报错触发在Set ws1 = ThisWorkbook.Sheets("Data")，可通过以下方式避免引用异常：

• 使用工作表的CodeName引用：在VBA编辑器的属性窗口中，修改目标工作表的(Name)属性（如改为wsData），直接用Set ws1 = wsData，避免名称缓存或修改导致的匹配失败。
• 增加存在性校验，提前捕获空引用：

  Dim ws1 As Worksheet
  On Error Resume Next
  Set ws1 = ThisWorkbook.Sheets("Data")
  On Error GoTo 0
  If ws1 Is Nothing Then
      MsgBox "工作表Data不存在", vbCritical
      Exit Sub
  End If
  

4. 排查网络驱动器问题 #

• 映射网络驱动器时勾选「登录时重新连接」，确保Excel重启后能正常访问网络路径。
• 将网络驱动器上的源数据文件复制到本地，测试VBA取数流程，排除网络权限、访问延迟导致的对象初始化失败。

5. 排除加载项冲突 #

按住Ctrl键启动Excel进入安全模式，测试文件是否正常。若安全模式下无问题，依次启用加载项排查冲突项，禁用有问题的加载项即可。

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