为什么打开Excel文件会退出软件

Question

我编写的一个程序,在自己的机器上打开文件没有问题,为在别人的机器上调用打开文件.软件退出
请问是什么原因,需要什么支持库
Dim i As Integer
    DoEvents
    On Error GoTo L
    CommonDialog1.Filter = "Excel File(.xls)|*.xls"
    CommonDialog1.FilterIndex = 2    
    CommonDialog1.ShowOpen    
    Text1.text = CommonDialog1.filename    
    If Trim(Text1) = "" Then Exit Sub
    Cbo.Clear
    Set Exl = CreateObject("Excel.Application")
    Set Wbk = Exl.Workbooks.Open(Text1)         '打开EXCEL文件    For i = 1 To Wbk.Worksheets.Count
        DoEvents
        Cbo.AddItem Wbk.Worksheets(i).name
    Next i    If Cbo.listcount > 0 Then Cbo.listIndex = 0    Set Exl = Nothing
    Set Wbk = Nothing

Answer 1

出错了，然后跳转到“On Error GoTo L”指定的地方执行了。
你在L标签的地方使用Debug.Print Err.Description就会知道是什么错了！