一、問題：

使用如下程式碼開啟、取值及關閉excel：

Public Function ImportFromExcel(excelFile As String) As Long

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim strCardNo As String

Set xlApp = New Excel.Application '連線EXCEL程式，或是用Set xlApp = CreateObject("Excel.Application")

xlApp.DisplayAlerts = False

Set xlBook = xlApp.Workbooks.Open(excelFile) '開啟EXCEL檔案

Set xlSheet = xlBook.Sheets(1)          '開啟第一頁（sheet）

strCardNo = Trim(xlSheet.Cells(2, 3))  '示例，取第2行的第3列，即C2單元格的值

'進行其他的處理

'......

'處理完成

Set xlSheet = Nothing '釋放sheet物件

xlBook.Close '關閉檔案

Set xlBook = Nothing

xlApp.Quit '關閉Excel

Set xlApp = Nothing

程式碼執行完成以後，會發現在工作管理員中，excel程序仍然存在，而且通過這個方法開啟的excel檔案，無法再在windows的資料夾裡通過雙擊打開了。

二、除錯分析

將中間取值及處理的所有程式碼遮蔽，只執行開啟及關閉部分的程式碼，會發現程式碼執行完成以後，excel成功地關閉了，因此，問題應該出在對excel檔案的處理中。按照面向物件的思路，使用 strCardNo = xlSheet.Cells(2, 3) 取值時，理論上應該是得到了一個單元格的例項，而不單單是這個單元格的值，只是vb在使用strCardNo時，只使用了它的值而已，因此，懷疑是因為strCardNo（或是其對應的單元格例項）在使用完成後，沒有得到釋放，因此，windows沒有正常關閉excel檔案並銷燬excel程序。

三、解決

但通過在Cells(2, 3)後面使用“.”提示符，沒有發現有屬性可以只取得單元格的值。但Excel.Worksheet有另外一個成員Range，它有一個value屬性，猜測應該是取值用的，因此將程式碼修改如下：

Set xlApp = New Excel.Application '連線EXCEL程式，或是用Set xlApp = CreateObject("Excel.Application")

xlApp.DisplayAlerts = False

Set xlBook = xlApp.Workbooks.Open(excelFile) '開啟EXCEL檔案

Set xlSheet = xlBook.Sheets(1)          '開啟第一頁（sheet）

strCardNo = Trim(xlSheet.Range("C2").value)  '區域C2的值

'進行其他的處理

'......

'處理完成

Set xlSheet = Nothing '釋放sheet物件

xlBook.Close '關閉檔案

Set xlBook = Nothing

xlApp.Quit '關閉Excel

Set xlApp = Nothing

其中，開啟及處理、關閉的程式碼沒有作任何更改，只是將

strCardNo = Trim(xlSheet.Cells(2, 3))

改為了

strCardNo = Trim(xlSheet.Range("C2").value)

程式碼執行完成以後，excel被正常關閉，excel檔案也可以通過雙擊正常開啟。

四、總結

問題出現後，也從網上查過解決方法，遇到這種問題的程式設計師很多。excel的開啟及關閉部分，各人使用的方法都不太一樣，但好像問題並不是出在這裡，從個人的經歷來看，實際大部分可能應該是在對excel的操縱部分出現的問題。