怎么让OLE动态的打开一个excel文件

Question

先在工程中添加“microsoft excel 8.0 object library”
    Dim AppExcel As Object
    Dim wBook As Workbook
    
    If AppExcel Is Nothing Then
        Set AppExcel = CreateObject("Excel.Application")
    Else
        Set AppExcel = GetObject(, "Excel.Application")
    End If
    
    Set wBook = Workbooks.Open(CommonDialog1.FileName)