将Excel数据导入SQL Server

我想将excel文件中的数据插入SQL Server。。 我使用了以下SQL语句：

SELECT * 
  FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0',
                  'Excel 8.0;Database=Y:\Path.xls',
                  'SELECT * FROM [Sheet$]')

但是我得到了以下错误-

Msg 7403，第16级，状态1，第1行
OLE DB提供程序“Microsoft.Jet.OLEDB.4.0”尚未注册

---

您可以改用SQL Server的导入数据向导。

如果您使用的是SQL Server版本>=2005，则可以使用management studio或SSIS

检查链接

尝试运行以下命令：

在你的询问中

---

并使用Microsoft.ACE.OLEDB.12.0而不是“Microsoft.Jet.OLEDB.4.0”，适用于我

您可以使用以下代码从Excel导入SQL中的数据。您只需要了解，您必须在VBA中添加一个库，然后才能使用下面的代码。 进入VBA，然后添加引用–Microsoft ActiveX数据对象2.8库

Sub sbADOExample()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
DBPath = ThisWorkbook.FullName
'You can provide the full path of your external file as shown below
'DBPath ="C:\InputData.xlsx"
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect
sSQLSting = "SELECT * From [Sheet1$]" ' Your SQL Statement (Table Name= Sheet Name=[Sheet1$])
mrs.Open sSQLSting, Conn
'=>Load the Data into an array
'ReturnArray = mrs.GetRows
''OR''
'=>Paste the data into a sheet
Sheet2.Range("A2").CopyFromRecordset mrs
'Close Recordset
mrs.Close
'Close Connection
Conn.Close
End Sub

Sub sbADOExample()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBPath As String, sconnect As String
DBPath = ThisWorkbook.FullName
'You can provide the full path of your external file as shown below
'DBPath ="C:\InputData.xlsx"
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect
sSQLSting = "SELECT * From [Sheet1$]" ' Your SQL Statement (Table Name= Sheet Name=[Sheet1$])
mrs.Open sSQLSting, Conn
'=>Load the Data into an array
'ReturnArray = mrs.GetRows
''OR''
'=>Paste the data into a sheet
Sheet2.Range("A2").CopyFromRecordset mrs
'Close Recordset
mrs.Close
'Close Connection
Conn.Close
End Sub