如何将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、数据导入完成。

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

首先，建立一个Access2000数据库data.mdb，在库中建立一个表userdata，里面有“工号”、“姓名”、“性别”、“部门”四个字段，都是字符型的，再输入一些数据，再建立一个窗体Form1，在Form1中，放置以下控件：

控件名称 属性 值 说明

Tlabel1 Caption "请输入文件名"

TEdit1 Name "" 用来输入文件名，带扩展名的

TButton1 Caption "保存"

TButton2 Caption "退出"

ADOTable1 Active

ConnectionString

TableName True

Provider=Microsoft.Jet.OLEDB.4.0Data Source=data.mdbPersist Security Info=False

userdata

下面是相关代码:

file://---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1

---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Variant OLEObject

AnsiString dataword

if(Trim(Edit1->Text)=="")

{

ShowMessage("请输入文件名")

return

}

String currentPath=GetCurrentDir()+"//"+Trim(Edit1->Text)

OLEObject=CreateOleObject("Word.Basic")

OLEObject.Exec(Procedure("FileNew"))

OLEObject.Exec(Procedure("EndOfDocument"))

ADOTable1->First()

while(ADOTable1->Eof!=True)

{

dataword=ADOTable1->FieldValues["工号"]+ADOTable1->FieldValues["姓名"]+ADOTable1->FieldValues["性别"]+ADOTable1->FieldValues["部门"]

OLEObject.Exec(Procedure("Insert")<<dataword)

ADOTable1->Next()

}

OLEObject.Exec(Procedure("StartOfDocument"))

OLEObject.Exec(Procedure("FileSaveAs")<<currentPath)

OLEObject.Exec(Procedure("FileClose")<<1)

ShowMessage("文件已经写入！谢谢使用！")

}

---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

this->Close()

}

---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Click(TObject *Sender)

{

Edit1->Text=""

}

---