權限被拒絕使用Excel 12.0 Library和VB6打開Excel文件

Question

我以前曾多次在我的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

Answer 1

你檢查過DCOM配置了嗎？

今天有一個類似的問題，一個試圖創建Excel.Application的Web服務正在接收拒絕訪問。

在我的實例中，我必須添加Internet來賓帳戶才能擁有該組件的訪問權限。

您可以從開始 - >運行進入DCOM配置

鍵入DCOMCNFG - 按Enter鍵

然后瀏覽到組件服務/計算機/我的電腦/ DCOM配置/ Microsoft Excel應用程序

右鍵單擊，屬性......

設置位於“安全”選項卡下。

Answer 2

你能打開一個新創建的空電子表格文檔嗎？

如果這不起作用，則可能需要重新注冊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 ）。

Answer 3

Dim xlApp As New Excel.Application    
Dim xlWBook As Excel.Workbook    
'Error Occurs Here   
Set xlWBook = xlApp.Workbooks.Open(File) 

沒有定義哪個文件。 即。

File="C:\myDocuments\myexcel.xlsx". 'Because File string is empty.

Answer 4

當excel文件出現問題（一致性問題）時，可能會發生這種情況。 該文件有點破壞。

例如，工作表上有2個具有相同名稱的對象。 關鍵是，我不知道你的文件是如何用這種“問題”保存的，但是當Excel試圖打開它時，它會拋出這種錯誤。

Answer 5

您似乎創建了一個新的Excel實例而沒有顯式關閉它（即在將其設置為Nothing之前的xlApp.Close）。 這可能是你遇到問題的原因。

如果從VBA調用Office應用程序時出現一些松散的Office應用程序，有時會出現問題。 如果您在任務管理器中運行了一些Excel.exe，但您無法在屏幕或任務欄上看到該應用程序，則將其終止並重試。

Answer 6

也許這不是權限被拒絕的文件。

Answer 7

只是想一想，您是否查看了Windows事件日志，看看是否可以在那里找到更多信息？