关于调用EXCEL的问题

Question

我用VB调用EXCEL时出现部件要求挂起， 我重试几次就能够打开EXCEL文件，不知谁能解释一下为什么会出现部件要求挂的现象和我将怎样去解决这问题。
谢谢！

Answer 1

Dim xlApp           As Excel.Application
Dim xlBook             As Excel.WorkbookSet 
xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(strfile)
其中strfile为文件名，每次都出现部件挂起的现象

Answer 2

set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(strfile)

Answer 3

set xlApp = New Excel.Application

Answer 4

我的也有set,应该不是这而的问题

Answer 5

你是啥操作系统呀？Private Sub Command5_Click()
    Dim eApp As New Excel.Application
    Dim xlsFile As String
    xlsFile = Dir("c:\*.xls")
    Do While xlsFile <> ""
        xlsFile = "c:\" & xlsFile
        eApp.Workbooks.Open xlsFile
        xlsFile = Dir()
    Loop
    eApp.Visible = True
    Set eApp = Nothing
end sub
我一次找开c:\下的所有xls文件都不会出现那问题呢，同时打开8个Set eApp = Nothing这一句你一定也有咯

Answer 6

SET xlBook =Nothing这一句也不能省

Answer 7

Private Sub Command5_Click()
    Dim eApp As New Excel.Application
    Dim xlsFile As String
    xlsFile = Dir("c:\*.xls")
    Do While xlsFile <> ""
        xlsFile = "c:\" & xlsFile
        eApp.Workbooks.Open xlsFile
        xlsFile = Dir()
    Loop
    eApp.Visible = True
    Set eApp = Nothing
end sub
利用这个代码还是出现同样的问题：“由于其它程序忙不能执行该操作”，当我重试几次后，就能打开。