明确编码目标
将每个Word文件中对应三张表格,共计9条数据一次性填入Excel高亮区域;
由Word表格和Excel表格遵循“先行后列”原理;
可得,第一行4个格子地址分别是:
(1,1)(1,2...)(1,3)(1,4);
第二行4个格子地址分别是:
(2,1)(2,2)(2,3)(2,4);
第三行2个格子地址分别是:
(3,1)(3,2)。...思路梳理
自然语言描述:依次循环打开文件夹里3个Word文件;
将打开后文件中表格数据依次读入数组,再将数组数据一次性写入Excel。...编码整理
声明应用程序
声明Word/Excel应用,设置可见模式。
文件提取准备
设置待提取目录;
准备200行5列数组,数组行数初始化。...利用Worksheets.Range().Resize().value=Arr一次性写入Excel;
通过调用Eapsht.Kill()结束Excel进程。