将格式相同的多个WORD表格转化成EXCEL表单

lhdcxz

遗憾。这个问题我还不知道。

lcjy11185

学习从word 到excel

清扬人生

老师，您好！混合式的例子中，最后这个mid函数看不懂什么意思啊，劳烦指教一下


i = Mid(Cells(9, c), 1, Application.Find(",", Cells(9, c)) - 1)
       j = Mid(Cells(9, c), Application.Find(",", Cells(9, c)) + 1, Application.Find(",", Cells(9, c)) - 1)
       Cells(r, c) = Replace(mTab.Cell(i, j).Range.Text, Chr$(13) & Chr$(7), "") '获得字段值

清扬人生

老师您好！若word表格形式是这样的呢

序号	使用部门	项目名称	预算单价	数量	预算总价
1	放射科北院区	洗衣机	1000	2	223123
2	放射科北院区	电脑	100000	5	12312321
3	放射科南院	冰箱	1111	6	1312323
4	放射科南院	投影仪	111	7	121123
5	放射科南院	体重秤	11111	8	1231231

文件夹里有每个科室交过来得很多word文件，每个表的项目数都不一样，有的几项，有的十几项，如何把他们都汇总到excel中呢，谢谢

lhdcxz

被转换的一批word文档的格式当然要相同（即项目的个数、位置要一样），项目的值可以缺。

woxinaihai

http://club.excelhome.net/thread-1235776-1-1.html
您有时间帮忙给看看这个问题吧，谢啦！

大和易道

谢谢分享！

蔡明江

这个有用 不得不向楼主的分享精神表示钦佩，谢谢分享！

tjj12345

谢谢老师的分享,我正为这个把多个格式相同的WORD文档数据读入EXCEL文档发愁呢

lhdcxz

去看看"与新手谈谈excel里面用到的数据结构"，里面的例子。