请教！如何将WORD中表格的数据导入到ACCESS的指定表中？

sxgaobo

sgrshh29

假定所有的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!!!!!这种语句按照你的等级完全可以自己写出来的.

sxgaobo

期待中！！！！！！

sxgaobo

谢谢sgrshh29 ！
我传的有例子，能给简单做下吗？一个一个的导入也可以！

sgrshh29

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

sxgaobo

没有更好的办法吗？

sxgaobo

高手伸伸手吧！！！

sxgaobo

有大量的WORD表格需要导入到ACCESS中！

sxgaobo

自己顶！！！

sxgaobo

谢谢ACMAIN_CHM ！
我是有大量的WORD表格需要导入到ACCESS中，有没有更便捷的方法啊！