怎么把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函数，弊大于利。

这里以SQL SERVE2008为例。SQLSERVER2008有一个“数据导入导出功能”，当然我们也可以打开数据库之后，在数据库上点击右键，然后选择“任务”，选择“导入数据”，我们就看到d出淡入数据的对话框：

这里我们主要导入数据的源格式是EXCEL的，在excel文件中，我们通常需要整理成数据表格的形式，excel中的数据不要出现合并的单元格等，必须是和数据库表对应的一条条记录的形式。在上图中我们先选择数据源为excel，然后再选择excel文件的路径，在最下面有一个“首行包含列名称”的复选项，默认是选中的，也就是说在导入数据的时候会把excel的第一行当做数据库表的列名称，根据需要进行选择。然后选择下一步：

上图中我们主要完成选择目的数据库，按照需要选择即可。然后我们直接点击下一步，指导出现下面的画面：

这就会打开excel文件的工作薄，我们选择一个工作簿（sheet）,如果我们的excel中的数据列和数据库表中的列不是对应，则需要进行调整，上图中先选中一个“源”，然后再选择这个源对应的“目标”，此时按钮“编辑映射”处于可用状态，我们点击这个按钮，出现下图：

给您一段代码，供参考，如有问题，QQ：375267128，传给您一个完整的实例，使用时请引用一下Microsoft Word 11.0 Object Library

Function ZWord1(模板名, 文件名, 记录集, 起始行, 表号, Optional 条件 As String)

Dim doc As New Word.Document ' 定义引用 Microsoft Word 的变量。

Dim BTable As Word.Table

Dim dbs As Database '定义引用数据库的变量。

Dim rst As DAO.Recordset '定义引用记录集的变量。

Dim I, J, P As Integer

Dim s As String

'On Error GoTo err1

'使用DAO *** 作打开明细记录集

Set dbs = CurrentDb()

If Nz(条件) <>"" Then 记录集 = "select * from " &记录集 &" where " &条件

Set rst = dbs.OpenRecordset(记录集) '设置记录集

If InStr(1, UCase(模板名), ".DOC") >0 Then

WJ1 = CurrentProject.Path &"\" &模板名

'模板文件名(CurrentProject.Path为当前数据库的路径）

Else

WJ1 = CurrentProject.Path &"\" &模板名 &".DOC"

'模板文件名(CurrentProject.Path为当前数据库的路径)

End If

If InStr(1, UCase(文件名), ".DOC") >0 Then

WJ2 = CurrentProject.Path &"\" &文件名 '目标文件名

Else

WJ2 = CurrentProject.Path &"\" &文件名 &".DOC" '目标文件名

End If

FileCopy WJ1, WJ2 '拷贝文件（模板文件拷贝成目标文件）

Set doc = GetObject(WJ2, "Word.Document") '建立与Word的连接变量

doc.Application.Visible = True '打开属性为真

doc.Activate

Set BTable = doc.Application.ActiveDocument.Tables(表号)

Set rst = dbs.OpenRecordset(记录集) '设置记录集

If Not rst.EOF Then rst.MoveFirst

I = 起始行

While Not rst.EOF

Set rowNew = BTable.Rows.Add() '加入一行

J = 0

For Each HCell In BTable.Rows(I).Cells

HCell.Range.InsertAfter Nz(rst.Fields(J))

J = J + 1

Next HCell

rst.MoveNext

I = I + 1

Wend

doc.Save '保存Word

doc.Application.Quit '关闭Word

Set doc = Nothing'清除内存变量

Set BTable = Nothing

Set dbs = Nothing

Set rst = Nothing

ZWord1 = True

Exit Function

err1:

doc.Application.Quit

Set doc = Nothing '清除内存变量

Set BTable = Nothing

Set dbs = Nothing

Set rst = Nothing

ZWord1 = False

MsgBox ("出现错误，可能是Word已打开，请关闭Word后再试")

End Function

---