Office中国论坛/Access中国论坛

标题: 请教！如何将WORD中表格的数据导入到ACCESS的指定表中？ [打印本页]

作者: sxgaobo 时间: 2009-3-23 08:59
标题: 请教！如何将WORD中表格的数据导入到ACCESS的指定表中？
[attach]36857[/attach]

作者: ACMAIN_CHM 时间: 2009-3-23 09:56
把你的WORD文件另存为txt文本文件。然后再用word打开，替换所有的换行为空，然后把‘姓名’替换为换行。替换性别为 ^t制表键，替换单位名称, 单位地址为 ^t制表键，
保存后，再用记事本打开，直接复制贴入ACCESS表中即可。

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://www.office-cn.net/vvb/ .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: sxgaobo 时间: 2009-3-23 10:01
谢谢ACMAIN_CHM ！
我是有大量的WORD表格需要导入到ACCESS中，有没有更便捷的方法啊！

作者: sxgaobo 时间: 2009-3-23 17:07

自己顶！！！

作者: sxgaobo 时间: 2009-3-23 19:42
有大量的WORD表格需要导入到ACCESS中！

作者: sxgaobo 时间: 2009-3-24 09:49
高手伸伸手吧！！！

作者: sxgaobo 时间: 2009-3-25 08:45
没有更好的办法吗？

作者: sgrshh29 时间: 2009-3-25 10:02
大量的word都是这个样子的表格?巨简单的问题.建立一个recordset指向数据表,addnew.用dir函数依次获取word文件名.引用word对象中的application、document、table。获取wordtable中cell的数据。清除不显示的字符和换行符。写入到数据表中。循环至结束。OK了。

作者: sxgaobo 时间: 2009-3-26 16:07
谢谢sgrshh29 ！
我传的有例子，能给简单做下吗？一个一个的导入也可以！

作者: sxgaobo 时间: 2009-3-27 09:31
期待中！！！！！！

作者: sgrshh29 时间: 2009-3-28 12:21
本帖最后由 sgrshh29 于 2009-3-29 09:55 编辑

假定所有的word文件都在当前文件夹中.
引用word对象:set objW=createobject("word.application")
用dir函数获取文件名:strFilename=dir(currentproject.path & "\*.doc")
循环至所有文件结束:do until len(strFilename)=0
引用word文档对象并打开word文件:set objWdoc=objW.docunments.open(currentproject.path & "\strFilename)
获取word表格对象:with objWdoc.tables(1)
将word表格中单元格的数据追加到数据表中,其中clearnstring是清除不显示的字符,replace去除换行符:
strsql="insert into 表1 (字段1,字段2,字段3,字段4) select '" & objW.clearnstring(replace(.cell(1,2),chr(13),"") & "', '" & ............................)
end with
执行追加数据:currentdb.execute strsql
关闭word文件

bjWdoc.close
取得下一个word文件名:strFilename=dir
循环:loop
退出word应用程序

bjW.quit
释放对象引用:set objWdoc=nothing
set objW=nothing

OK!!!!!这种语句按照你的等级完全可以自己写出来的.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)