权限被拒绝使用 Excel 12.0 库和 VB6 打开 Excel 文件

我以前曾在 VB6 应用程序中多次使用 Excel，但从未遇到过如此奇怪的问题，试图完成一些非常简单的事情。

我正在尝试打开 Excel（xls 或 xlsx）文件并读取值，正如您可能看到的那样。

当我尝试打开该文件时，收到错误 70（权限被拒绝）错误。奇怪的是，没有其他 Excel 实例打开（在任务管理器应用程序或进程中）。没有其他人试图访问该文件。我可以在 excel 中打开该文件，而不会出现任何警告，并且还可以使用基本的“打开文件以输入为#1”语法在 VB6 中打开/读取/关闭该文件，而不会出现错误。我可以使用 Kill() 删除该文件，因此它不可能是目录权限问题 - 请帮助 - 我不知所措！

  Dim xlApp As New Excel.Application

  Dim xlWBook As Excel.Workbook

  'Error Occurs Here
  Set xlWBook = xlApp.Workbooks.Open(File)

  Dim xlSheet As Excel.Worksheet
  Set xlSheet = xlWBook.Sheets.Item(1)

  Dim y As Integer
  For y = 1 To 99999
    If Len(xlSheet.Cells(y, 1)) > 0 Then
      Send xlSheet.Cells(y, 1) & " - " & xlSheet.Cells(y, 2) & "<br>"
    End If
  Next

  Set xlWBook = Nothing
  Set xlApp = Nothing

-Jay

您可以打开新创建的空电子表格文档吗？

如果这不起作用，可能是您的 Excel 安装需要重新注册。打开命令提示符并导航到安装 Excel 的文件夹，通常类似于

cd "C:\Program Files\Microsoft Office\Office12"

然后使用选项 /regserver 启动 Excel

excel.exe /regserver

如果这没有帮助，您可以转到“控制面板”->“添加或删除程序”并开始修复 Microsoft Office。

另一件要检查的事情是是否加载了任何加载项。如果是，请尝试一一禁用它们，看看问题是否消失。

如果问题仍然存在，您可能需要检查是否有任何可用的 Office 更新。

我不知道这一切是否与您的问题有关，这是Office应用程序的标准故障排除技术......

更新：也许使用 Procmon 进行故障排除将揭示问题所在（请参阅http://support.microsoft.com/kb/286198 http://support.microsoft.com/kb/286198).