五毛39649747
怎么才能把excel表里的数据提取到word文档里
如何将excel表里的数据提取到word文档里的解决方法如下：1、复制法。
即将原来的数据直接复制后，在word中进行粘贴，这样数据就直接导入到word文档中了。
2、邮件合并法。
在word中启用邮件合并，按向导的过程分别制作好需要插入的需要，数据源，对应关系，最后执行合并就可以了。
3、程序法。
在word中插入合并域（如果是有规律的表格，可以不用这一步），然后编写vba程序，从excel文件中读取数据，然后写入到word中指定的位置。
上面三个方法中，方法1简单快捷，但是每次都需要操作，如果数据不是连续的块，需要复制粘贴多次，相对来说麻烦一点。
方法2，一次设置可以多次使用，但不够灵活。
方法3方便可以多次重复使用，但需要有一定的编程基础，可以根据工作的实际选择一个最适合的完成这个工作。
【怎样用程序提取数据】请问如何用vb提取excel表格中的数据有一张...
如何实现VB与EXCEL的无缝连接 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从＂工程＂菜单中选择＂引用＂栏；选择Microsoft Excel 9.0 Object Library(EXCEL2000)，然后选择＂确定＂。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令：Set xlApp = CreateObject(＂Excel.Application＂) '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open（＂文件名＂） '打开已经存在的EXCEL工件簿文件xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets（＂表名＂） '设置活动工作表xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值xlSheet.PrintOut '打印工作表xlBook.Close (True) '关闭工作簿xlApp.Quit '结束EXCEL对象Set xlApp = Nothing '释放xlApp对象xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。
但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。
形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
二、 EXCEL的宏功能： EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的＂插入模块＂，则增加一个＂模块1＂，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。
其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open（)），另一个是关闭宏（Sub Auto_Close（)）。
它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。
但是通过VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通： 充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下： 在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。
VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，应该禁止其它程序的运行。
如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。
四、举例： 1、在VB中，建立一个FORM，在其上放置两个命令按钮，将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。
然后在其中输入如下程序：Dim xlApp As Excel.Application '定义EXCEL类 Dim xlBook As Excel.Workbook '定义工件簿类Dim xlsheet As Excel.Worksheet '定义工作表类 Private Sub Command1_Click（) '打开EXCEL过程 If Dir(＂D:\temp\excel.bz＂) = ＂＂ Then '判断EXCEL是否打开 Set xlApp = CreateObject(＂Excel.Application＂) '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 Set xlBook = xlApp.Workbooks.Open(＂D:\temp\bb.xls＂) '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 xlsheet.Cells(1, 1) = ＂abc＂ '给单元格1行驶列赋值 xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏 Else MsgBox (＂EXCEL已打开＂) End IfEnd SubPrivate Sub Command2_Click() If Dir(＂D:\temp\excel.bz＂) ＂＂ Then '由VB关闭EXCEL xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏 xlBook.Close (True) '关闭EXCEL工作簿 xlApp.Quit '关闭EXCEL End If Set xlApp = Nothing '释放EXCEL对象 EndEnd Sub 2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为＂bb.xls＂的EXCEL文件。
3、在＂bb.xls＂中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：Sub auto_open() Open ＂d:\temp\excel.bz＂ For Output As #1 '写标志文件 Close #1End SubSub auto_close() Kill ＂d:\temp\excel.bz＂ '删除标志文件End Sub 4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，...
如何用C语言读取word中的数据
VC++6.0 有智能手段，非常简单，好久没用VC6.0了，我这也没有装，具体步骤记不清了，大概就是通过智能添加一个类，有个选项好像是从DLL还是什么来的一个按钮，找到WORD的执行程序exe文件，就能生成一个WORD的类，里面有WORD的所有方法，如何调用就不用我说了
word表格中如何提取表格中的数值
将word 表格拷贝到excel文件。
将excel 文件另存并命名为AtoN,按ALT+F11，打开Visual Basic编辑器，双击VBAProject，双击模块，再双击模块，如下图所示：如果没有模块，可以在 “microsoft excel 对象”的加号上点击右键添加。
在新弹出的对话框内输入如下代码：Function AtoN(StrAs String)If IsNumeric(Str) ThenAtoN = StrElseFor i =Len(Trim(Str)) To 1 Step -1a = Mid(Str, i, 1)If a = ＂.＂ Then n = a + nIf IsNumeric(a) Thenn = a + nElsei = iEnd IfNext iAtoN = nEnd IfEnd Function关闭Visual Basic编辑器，点击菜单栏上的“插入--函数”按钮，在类型列表里选择“用户定义”，这里就会显示刚才定义的函数。
点击该函数，选择要转换的单元格，即可。
或者输入公式：“=MBR_data.xls!AtoN(A1)“，输入引号内的，不带引号。
A1为你要转换的字符串。
我有几千个word,里面包含有表格,如何批量提取我想要的数据？
如果是一个word中的，复制粘贴；如果是多个word中的，需要写个代码（如下），或者在网上找一下相关的工具。
此方法适用于多个word文档里面的所有表格：1、将多个含有表格的word文档放入一个目录；2、在该目录中新建一个空的excel表格；3、在excel表格中运行以下宏命令，即可。
Sub WordTabletoExcel()Dim WordApp As Object, DOC, mTable, Fn$, Str$On Error Resume Next '设置容错代码CreateObject(＂wscript.shell＂).Run ＂cmd.exe /c dir ＂＂＂ & ThisWorkbook.Path & ＂\*.doc＂＂ /s/b>＂＂＂ & ThisWorkbook.Path & ＂\list.txt＂＂＂, False, True '取得指定目录下的word文档清单Set WordApp = CreateObject(＂word.application＂) '创建word程序项目（用于操作word文档）WordApp.Visible = True '设定word程序项目可见Open ThisWorkbook.Path & ＂\list.txt＂ For Input As #1 '打开清单文件并读取内容While Not EOF(1) '循环读取清单文件各行内容Input #1, Str '输入一行文本到变量str中If Trim(Str) ＂＂ Then '如果文本有效则Set DOC = WordApp.documents.Open(Trim(Str)） '利用word程序项目打开对应的word文档With DOCFor Each mTable In .Tables '循环文档中的各个表格WordApp.Activate '激活word程序，使之窗体前置mTable.Range.Copy '复制表格区域With Windows(1) '激活excel程序窗体，使之前置.ActivateWith ThisWorkbook.ActiveSheet '选中当前使用区A列下面的第一个单元格，并粘贴复制的word中的表格数据.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select.PasteEnd WithEnd WithNext mTable.Close False '关闭word文档End WithEnd IfWendClose #1 '关闭清单文件If Dir(ThisWorkbook.Path & ＂\list.txt＂) ＂＂ Then Kill ThisWorkbook.Path & ＂\list.txt＂ '删除清单文件WordApp.Quit 'word程序项目关闭Set DOC = Nothing '清空对应项目变量Set WordApp = NothingEnd Sub满意请采纳哟~~~~~~
Word文字报告怎样自动从Excel中提取数据？
方法如下：1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“1.txt”。
2、打开excel表格，点击“数据”选项卡，在“获取外部数据”当中，找到“自文本”。
3、点击“自文本”，弹出下一窗口，选择刚才保存的名为1的txt类型文件，点击“导入”。
因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。
4、弹出文本导入对话框，选择默认的固定宽度，意思就是数据与单元格一一对应。
如果选择分隔符号，则导入的所有数据将会在一个单元格当中，接着，点击下一步。
5、设置分行线，其实就是导入数据列数的控制，单击鼠标，可以在任意位置增加分行线。
双击任意分行线，就会删除。
完成设定后，点击下一步。
6、设置输出数据的格式，一般不需要进行任何设置，选择常规即可，点击“完成”。
7、导入完成。
如何在word中快速提取数字
1，打开文档，在标题栏点击 编辑》查找2，在出现的“查找”对话框里输入^#，在“突出显示”这一项的方框里打对勾，点击查找全部3，出现如下图所示，底部数字已经全部加上阴影，说明全部选中。
点击关闭对话框4，即可看到选中所有的数字5，最后复制出来就可以了。
转载请注明出处51数据库 » 提取word中的数据
