如何将word中的数据导入到数据库中

1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“数据源.txt”。

2/8

2、打开excel表格，点击“数据”选项卡，找到“自文本”。

小朋友语言迟缓2岁至4岁孩子不说话严重吗?

广告

3/8

3、点击“自文本”，d出下一窗口，选择刚才保存的名为“数据源”的txt类型文件，点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。

【家长必看】_说话晚的孩子

广告

4/8

4、d出“文本导入向导”对话框。选择最适合的文件类型，方便导入后，数据以已选择方式分列。点击“下一步”。

特别注意，如果选的“分隔符号”，则分隔符号必须是英文状态下的符号，否则导入后无法分列。

两岁小孩说话晚是什么原因?说话晚怎么办?

广告

5/8

5、设置分列数据所包含的分隔符号，其实就是导入数据列数的控制，选择分隔符。

示例文档用“,”把每列隔开的，所以选择“逗号”。

完成设定后，点击下一步。

6/8

6、列数据格式选择”常规“，”常规“选项更为智能。

完成设定后，点击完成。

7/8

7、数据存放位置最好是“现有工作表=$A$1”，指的就是从当前表格的第一行第一列开始放置数据。点击确定。

8/8

8、数据导入完成。

可以进一步编辑，或者是做几个表格的数据比对啦！

给您一段代码，供参考，如有问题，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

---