VBA中使用ADO把Excel中工作表導入Access中

在學習VBA的ADO功能時，經常需要把Excel中的數據導入Access中；實現這樣的方法有很多種：

　　1），使用Access的導入功能直接實現；

　　2），使用ADO的Recordset對象實現，不過由於Access中沒有Excel中的表，需要創建表，需要設計表的結構，很繁瑣。

　　3），使用Select查詢生成表功能后，代碼如下：

Sub ADO連接Excel和Access生成表查詢()
   Dim con As New ADODB.Connection
   With con
      .Provider = "Microsoft.ACE.OLEDB.12.0"
      .Open ThisWorkbook.Path & "\學生管理.accdb"
   End With
   Dim sql As String
   sql = "select * into 數據 from [Excel 12.0;Database=" & ThisWorkbook.Path & "\數據.xlsx].[數據$]"
   con.Execute sql
   con.Close
   Set con = Nothing
End Sub