怎么把excel文件里的数据导入SQL数据库?

导入数据不一定要用OPENSET函数，可以用更简单的方法，步骤如下：

1、首先双击打开sqlserver，右击需要导入数据的数据库，如图所示。

2、点击任务，再点击任务中的导入数据选项，打开导入导出数据向导界面。

3、在向导界面点击下一步，进入下图界面依次填写需要的内容：数据源Excel，文件路径，以及Excel版本，填好后点击下一步（如果Excel其他版本不行的话，就选择Excel97-03的，再将Excel保存为相应版本）即可。

4、然后就是目标数据库设置：目标选择msslserver，服务器名称不用变，身份验证输入相应的密码，数据库选择对应的数据库，设置好后点击下一步。

5、然后来到图示界面，直接默认选项即可，点击下一步。

6、图示界面，可以自定义目标数据库（表在数据库中可以不存在），点击预览即可以看到导入之后的表状态，如图。

7、上一步完成后再继续下一步，最后点击完成，即可导入成功，如图。

8、最后在数据库中检查一下导入的表数据，附上导入的Excel数据为例。

扩展资料：

导入数据也可使用OPENROWSET函数，但使用该函数之前必须先启用AdHocDistributedQueries服务，因为这个服务不安全所以SqlServer默认是关闭的，系统管理员可以通过使用sp_configure启用'AdHocDistributedQueries'。

但有一个问题一定要特别注意，由于 'AdHocDistributedQueries'这个服务存在着较大的安全隐患，所以切记使用完毕之后一定要关闭。

所以，如果是导入数据建议不要使用OPENROWSET函数，弊大于利。

这里是我用的代码，估计对你有用：

'On Error Resume Next

Dim fileadd As String

CommonDialog1.ShowOpen

CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件

fileadd = CommonDialog1.FileName

If fileadd = "" Then Exit Sub

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件

xlApp.Visible = False ' = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets(1) '设置活动工作表

For R = 1 To 99999 '行循环

If LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) <>"" Then

sybw.Adodc3.Refresh

sybw.Adodc3.Recordset.Find "ShiGongBuWei_Name='" &LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) &"'"

If sybw.Adodc3.Recordset.EOF Then

sybw.Adodc3.Recordset.AddNew

sybw.Adodc3.Recordset!ShiGongBuWei_Name = LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1)))

sybw.Adodc3.Recordset!FenXiangGongCheng_ID = bb

sybw.Adodc3.Recordset.Update

sybw.Adodc3.Refresh

'Call log(MM_Users_NameTrue, "增加了施工部位", MM_Companys_ID)

Else

'MsgBox "施工部位重复！", vbOKOnly, "用户信息"

End If

Else

R = 99999 + 1

End If

Next R

xlApp.DisplayAlerts = False '不进行安全提示 '

Set xlSheet = Nothing '

Set xlBook = Nothing '

xlApp.Quit '

Set xlApp = Nothing

---