用后期绑定的方式创建引用

'---------将所有的Excel对象都设置成万能的Object类型----- Dim xlApp As Object '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As Object Dim xlWsh As Object Dim Rng As Object Dim rsNum As Integer '-----------定义DAO的对象用于创建DAO记录集-------------- Dim rst As New ADODB.Recordset Dim i As Integer Dim cnn As Object '-------------打开记录集 'Set rst = CreateObject("adodb.recordset") 'Set cnn = CurrentProject.Connection Set rst = CreateObject("adodb.recordset") Set cnn = CurrentProject.Connection rst.CursorLocation = 3 rst.Open strExcel, cnn, 1, 1 ' rst.Open strExcel, CurrentProject.Connection, adOpenKeyset, adLockReadOnly '------打开Excel表格------- Set xlApp = GetObject(, "Excel.Application") xlApp.Visible = True Set xlWbk = xlApp.Workbooks.Add Set xlWsh = xlWbk.Worksheets(1) xlWsh.Activate Create: If Err = 429 Then '--------------关键是这条语句，类似创建引用 Set xlApp = CreateObject("Excel.Application") Resume Next End If