做了一个EXCEL批量文件导入，然后合并成一个结果的软件

347747669

对于很多分散的文档，想把他们里面的每一个小点提出来。然后再合并成一个结果上报的。这一个工具比较实用。由于才做出来没多久，没有添加自定义文件名的功能。所以。大家可以自己改源码。我也会在一两天内把可以适用所有名称的EXCEL的软件发布出来。。。。
下面先上软件，在上源码吧！~~~~~~~
目前是这个格局
因为这个excel操作需要的是xls后缀，所以，我就做了一个1.和2.这个1.和2.是大漠做的。傻瓜式的另存为xls格式。有xls格式的忽略。有的文档直接改后缀，会发生错误。无法打开。（比如我这个就是）所以只有另存为。。。。


如图所示：我需要吧36个文件里面的名字（CDC_和_2019102中间的数字提出来），用来作为最终结果的第一列。。。。。


然后需要吧每个文件里面标红的地方提出来作为第一排和后面的结果。。。


结果最终样子如图：


只需要点一下3.提取，即可。。。大家先用着，我晚上左右发新版本，在下面，可以使用所有xls格式的任意名字的文档。。。
文件链接:https://lanzoux.com/i74ifod




源码：：：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
dm	dmsoft
excel目录	文本型
b	整数型
n	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
ver	文本型

' 祖册大漠
运行 (“regsvr32 dm.dll /s”, 假, )
' 创建大漠对象
dm.创建 ()
' 取大漠版本
如果真 (dm.Ver () ＝ “”)
信息框 (“注册失败”, 0, , )
返回 ()
调试输出 (dm.Ver ())
如果真 (dm.Ver () ＝ “3.1233”)
dm.SetPath (取运行目录 ())  ' 设置大漠全局路径
dm.SetDict (0, “ziku0.txt”)  ' 设置大漠字库文件
excel目录 ＝ 取文本左边 (取运行目录 (), 倒找文本 (取运行目录 (), “\”, , 假) － 1)
n ＝ 0
b ＝ 2

子程序名	返回值类型	公开	备 注
_按钮_提取_被单击

变量名	类 型	静态	数组	备 注
文件名	文本型		0
a	整数型
c	整数型

进度条1.可视 ＝ 真
文件_枚举 (excel目录, “*.xls”, 文件名, 假)
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel程序2.创建 ()
Excel工作簿2.置程序 (Excel程序2)
Excel工作簿2.激活工作簿 ()
Excel工作簿2.打开 (取运行目录 () ＋ “\结果汇总.xls”)
Excel工作簿2.表格序号 ＝ 1
计次循环首 (取数组成员数 (文件名), a)
Excel工作簿2.首单元格 ＝ “A” ＋ 到文本 (a ＋ 1)
Excel工作簿2.尾单元格 ＝ “A” ＋ 到文本 (a ＋ 1)
Excel工作簿2.内容 ＝ 文本_取出中间文本 (文件名 [a], “CDC_”, “_20”, , )
计次循环尾 ()
计次循环首 (取数组成员数 (文件名), a)
如果真 (n ＝ 0)
Excel工作簿1.打开 (excel目录 ＋ “\” ＋ 文件名 [1])
循环判断首 ()
n ＝ n ＋ 1
Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (34 ��� (n － 1) × 19)
Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (34 ��� (n － 1) × 19)
Excel工作簿2.首单元格 ＝ 字符 (65 ＋ n) ＋ “1”
Excel工作簿2.尾单元格 ＝ 字符 (65 ＋ n) ＋ “1”
Excel工作簿2.内容 ＝ Excel工作簿1.内容
循环判断尾 (Excel工作簿1.内容 ≠ “”)
Excel工作簿1.关闭 ()
n ＝ n － 1
Excel工作簿1.打开 (excel目录 ＋ “\” ＋ 文件名 [a])
Excel工作簿1.表格序号 ＝ a ＋ 1
进度条1.位置 ＝ 进度条1.位置 ＋ 100 ÷ 取数组成员数 (文件名)
计次循环首 (n, c)
Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (38 ��� (c － 1) × 19)
Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (38 ��� (c － 1) × 19)
Excel工作簿2.首单元格 ＝ 字符 (65 ＋ c) ＋ 到文本 (a ＋ 1)
Excel工作簿2.尾单元格 ＝ 字符 (65 ＋ c) ＋ 到文本 (a ＋ 1)
Excel工作簿2.内容 ＝ Excel工作簿1.内容
计次循环尾 ()
进度条1.位置 ＝ 100
计次循环尾 ()
Excel工作簿2.关闭 ()
Excel工作簿2.释放 ()
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
标签3.可视 ＝ 真

子程序名	返回值类型	公开	备 注
_按钮_另存为_被单击

变量名	类 型	静态	数组	备 注
a	整数型
x	整数型
y	整数型

_启动窗口.位置 ＝ 2
计次循环首 (到整数 (编辑框1.内容), a)
dm.FindStr (0, 0, 取屏幕宽度 (), 取屏幕高度 (), “报告头”, “ffffff-000000”, 0.9, x, y)
' 调试输出 (到文本 (x) ＋ “...” ＋ 到文本 (y))
如果 (x ＞ 0)
鼠标_移动 (, x, y)
延迟 (100)
鼠标_按键 (1, 1)
延迟 (100)
键盘_单击 ( #F12键, )
延迟 (2000)
键盘_单击 ( #Tab键, )
延迟 (100)
计次循环首 (4, )
键盘_单击 (40, )
延迟 (200)
计次循环尾 ()
计次循环首 (2, )
键盘_单击 ( #回车键, )
延迟 (300)
计次循环尾 ()
键盘_组合按键 ( #F4键, #Alt键, , )
延迟 (500)
跳出循环 ()
信息框 (“完毕”, 0, , )

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eExcel2000<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 dm, dmsoft<br /> .程序集变量 excel目录, 文本型<br /> .程序集变量 b, 整数型<br /> .程序集变量 n, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 ver, 文本型<br /> <br /> ' 祖册大漠<br /> 运行 (“regsvr32 dm.dll /s”, 假, )<br /> ' 创建大漠对象<br /> dm.创建 ()<br /> ' 取大漠版本<br /> .如果真 (dm.Ver () ＝ “”)<br />     信息框 (“注册失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 调试输出 (dm.Ver ())<br /> .如果真 (dm.Ver () ＝ “3.1233”)<br />     dm.SetPath (取运行目录 ())  ' 设置大漠全局路径<br />     dm.SetDict (0, “ziku0.txt”)  ' 设置大漠字库文件<br /> .如果真结束<br /> excel目录 ＝ 取文本左边 (取运行目录 (), 倒找文本 (取运行目录 (), “\”, , 假) － 1)<br /> n ＝ 0<br /> b ＝ 2<br /> <br /> <br /> .子程序 _按钮_提取_被单击<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 进度条1.可视 ＝ 真<br /> 文件_枚举 (excel目录, “*.xls”, 文件名, 假)<br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.激活工作簿 ()<br /> Excel程序2.创建 ()<br /> Excel工作簿2.置程序 (Excel程序2)<br /> Excel工作簿2.激活工作簿 ()<br /> Excel工作簿2.打开 (取运行目录 () ＋ “\结果汇总.xls”)<br /> Excel工作簿2.表格序号 ＝ 1<br /> .计次循环首 (取数组成员数 (文件名), a)<br />     Excel工作簿2.首单元格 ＝ “A” ＋ 到文本 (a ＋ 1)<br />     Excel工作簿2.尾单元格 ＝ “A” ＋ 到文本 (a ＋ 1)<br />     Excel工作簿2.内容 ＝ 文本_取出中间文本 (文件名 [a], “CDC_”, “_20”, , )<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (文件名), a)<br />     .如果真 (n ＝ 0)<br />         Excel工作簿1.打开 (excel目录 ＋ “\” ＋ 文件名 [1])<br />         .循环判断首 ()<br />             n ＝ n ＋ 1<br />             Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (34 ＋ (n － 1) × 19)<br />             Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (34 ＋ (n － 1) × 19)<br />             Excel工作簿2.首单元格 ＝ 字符 (65 ＋ n) ＋ “1”<br />             Excel工作簿2.尾单元格 ＝ 字符 (65 ＋ n) ＋ “1”<br />             Excel工作簿2.内容 ＝ Excel工作簿1.内容<br />         .循环判断尾 (Excel工作簿1.内容 ≠ “”)<br />         Excel工作簿1.关闭 ()<br />         n ＝ n － 1<br />     .如果真结束<br />     Excel工作簿1.打开 (excel目录 ＋ “\” ＋ 文件名 [a])<br />     Excel工作簿1.表格序号 ＝ a ＋ 1<br />     进度条1.位置 ＝ 进度条1.位置 ＋ 100 ÷ 取数组成员数 (文件名)<br /> <br />     .计次循环首 (n, c)<br />         Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (38 ＋ (c － 1) × 19)<br />         Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (38 ＋ (c － 1) × 19)<br />         Excel工作簿2.首单元格 ＝ 字符 (65 ＋ c) ＋ 到文本 (a ＋ 1)<br />         Excel工作簿2.尾单元格 ＝ 字符 (65 ＋ c) ＋ 到文本 (a ＋ 1)<br />         Excel工作簿2.内容 ＝ Excel工作簿1.内容<br />     .计次循环尾 ()<br />     进度条1.位置 ＝ 100<br /> .计次循环尾 ()<br /> Excel工作簿2.关闭 ()<br /> Excel工作簿2.释放 ()<br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> 标签3.可视 ＝ 真<br /> <br /> .子程序 _按钮_另存为_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> _启动窗口.位置 ＝ 2<br /> .计次循环首 (到整数 (编辑框1.内容), a)<br />     dm.FindStr (0, 0, 取屏幕宽度 (), 取屏幕高度 (), “报告头”, “ffffff-000000”, 0.9, x, y)<br />     ' 调试输出 (到文本 (x) ＋ “...” ＋ 到文本 (y))<br />     .如果 (x ＞ 0)<br />         鼠标_移动 (, x, y)<br />         延迟 (100)<br />         鼠标_按键 (1, 1)<br />         延迟 (100)<br />         键盘_单击 (#F12键, )<br />         延迟 (2000)<br />         键盘_单击 (#Tab键, )<br />         延迟 (100)<br />         .计次循环首 (4, )<br />             键盘_单击 (40, )<br />             延迟 (200)<br />         .计次循环尾 ()<br />         .计次循环首 (2, )<br />             键盘_单击 (#回车键, )<br />             延迟 (300)<br />         .计次循环尾 ()<br />         键盘_组合按键 (#F4键, #Alt键, , )<br />         延迟 (500)<br />     .否则<br />         跳出循环 ()<br />         信息框 (“完毕”, 0, , )<br />     .如果结束<br /> <br /> .计次循环尾 ()

asdqwe1

我不懂 可以教教吗  呜呜呜呜

347747669

阿E菜鸟 发表于 2019-11-10 09:23
为什么要用大漠？excel对象不好用吗
excel.application里面有个方法叫saveas 可以实现保存。

谢谢大神，涨姿势了。连易语言的基本组件都没学完的呢！！！我去试试

阿E菜鸟

为什么要用大漠？excel对象不好用吗
excel.application里面有个方法叫saveas 可以实现保存。

347747669

xzhero 发表于 2019-11-3 23:48
这种方法太笨了，为什么不用vba或VBScript 或 JScript呢？

没碰过你那几个方法。你这么一说。。。我这就去试试。谢谢老师指导

xzhero

这种方法太笨了，为什么不用vba或VBScript 或 JScript呢？

347747669

编长墨迹 发表于 2019-11-2 15:53
楼主干检验的？同行啊！有空可以交流交流！

嘿嘿，这里也能碰到同行呀！！！哈哈！！！对的。。。

编长墨迹

楼主干检验的？同行啊！有空可以交流交流！