對EXCEL的引用，為什麼以前行而現在不可以!!!!

Question

請各位幫幫忙，問題是這樣的：
我要讀寫EXCEL 文件
我已經在VB裡引用了Microsoft office 9.0 object library,它的位置在
C:\Program Files\Microsoft Office\Office\EXCEL9.OLBDim SourceXLS As New Excel.Application
SourceXLS.Workbooks.Open App.Path + "\Source.xls"  '出錯
提示載入DLL時發生錯誤。

Answer 1

都試過了還是不行!我的程序如下：
Option ExplicitPrivate Sub cmdStart_Click()
    Dim SourceXLS As New Excel.Application
    'Dim SourceXLS As Excel.Application
    'Set SourceXLS = New Excel.Application  '???????
    
    Dim Col1() As String
    Dim Col2() As String
    Dim Col3() As String
    Dim Col4() As String
    Dim nRows As Long
    Dim n As Long
    Dim i As Long
    Dim j As Long
    Dim sFileName As String
    
    If txtRows.Text = "" Then
        MsgBox "請輸入源EXCEL文件的行數!", vbExclamation
        Exit Sub
    Else
        nRows = txtRows.Text
    End If
    CommonDialog1.DialogTitle = "打開EXCEL文件"
    CommonDialog1.Filter = "EXCEL文件(*.xls)|*.xls"
    CommonDialog1.ShowOpen
    sFileName = CommonDialog1.FileName
    
    'SourceXLS.Workbooks.Open App.Path + "\Source.xls"  '打開源文件
    SourceXLS.Workbooks.Open sFileName
    
    'read data from Excel
    For i = 1 To nRows
        Col1(i) = SourceXLS.Worksheets(1).Cells(i, 1)
        Col2(i) = SourceXLS.Worksheets(1).Cells(i, 2)
        Col3(i) = SourceXLS.Worksheets(1).Cells(i, 3)
        Col4(i) = SourceXLS.Worksheets(1).Cells(i, 4)
    Next i
    
    
End Sub

Answer 2

把引用去掉，改成后期绑定试试~
Dim SourceXLS As Object
Set SourceXLS = CreateObject("Excel.Application")
SourceXLS.Workbooks.Open (App.Path + "\Source.xls")

Answer 3

看看mso.dll有没有问题
可以找台别的机器替换自己的EXCEL9.OLB和mso.dll并重新引用
还不行就重启，再不行就重装office

Answer 4

只引用 Microsoft excel 9.0 object library 试试？