xls表格导入到xls表格 基本是成品 有点小问题有懂的大神交流一下

国宝学习易语言

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
excel1	对象
workbooks1	对象
excel表格对象1	对象
excel单元格对象1	对象
excel2	对象
workbooks2	对象
excel表格对象2	对象
excel单元格对象2	对象

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

变量名	类 型	静态	数组	备 注
凭证号1	文本型
n1	整数型
摘要1	文本型
本期结存1	文本型
种类1	文本型
行1	双精度小数型
出库1	文本型
入库1	文本型
名称1	文本型
月份1	文本型
日期1	文本型

打开文件 (取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日台账结存.xlsx”, , )
如果真 (excel1.创建 (“Excel.Application”, ) ＝ 假)
信息框 (“你的计算机上可能没有 EXCEL 程序！”, 0, , )
结束 ()
excel1.获取 (“Excel.Application”)
excel1.写属性 (“Visible”, 真)
workbooks1 ＝ excel1.读对象型属性 (“Workbooks”, )
workbooks1.方法 (“open”, 取运行目录 () ＋ “\库存台账表” ＋ 编辑框2.内容 ＋ “.xls”)
excel表格对象1 ＝ excel1.读对象型属性 (“Activesheet”, )
行1 ＝ excel表格对象1.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
excel单元格对象1 ＝ excel1.读对象型属性 (“Cells”, )
excel2.获取 (“Excel.Application”)
excel2.写属性 (“Visible”, 真)
workbooks2 ＝ excel1.读对象型属性 (“Workbooks”, )
workbooks2.方法 (“open”, 取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日台账结存.xlsx”)
excel表格对象2 ＝ excel2.读对象型属性 (“Activesheet”, )
' 行 ＝ excel表格对象2.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
excel单元格对象2 ＝ excel2.读对象型属性 (“Cells”, )
计次循环首 (行1, n1)
名称1 ＝ excel单元格对象1.读对象型属性 (“Range”, “J” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
月份1 ＝ excel单元格对象1.读对象型属性 (“Range”, “L” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
种类1 ＝ excel单元格对象1.读对象型属性 (“Range”, “M” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
凭证号1 ＝ excel单元格对象1.读对象型属性 (“Range”, “N” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
日期1 ＝ excel单元格对象1.读对象型属性 (“Range”, “O” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
摘要1 ＝ excel单元格对象1.读对象型属性 (“Range”, “P” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
出库1 ＝ excel单元格对象1.读对象型属性 (“Range”, “R” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
入库1 ＝ excel单元格对象1.读对象型属性 (“Range”, “Q” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
本期结存1 ＝ excel单元格对象1.读对象型属性 (“Range”, “S” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )
excel单元格对象2.读对象型属性 (“Range”, “A” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 名称1)
excel单元格对象2.读对象型属性 (“Range”, “C” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 月份1)
excel单元格对象2.读对象型属性 (“Range”, “D” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 种类1)
excel单元格对象2.读对象型属性 (“Range”, “E” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 凭证号1)
excel单元格对象2.读对象型属性 (“Range”, “F” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 日期1)
excel单元格对象2.读对象型属性 (“Range”, “G” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 摘要1)
excel单元格对象2.读对象型属性 (“Range”, “H” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 入库1)
excel单元格对象2.读对象型属性 (“Range”, “I” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 出库1)
excel单元格对象2.读对象型属性 (“Range”, “J” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 本期结存1)
调试输出 (凭证号1, 摘要1, 本期结存1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
凭证号	文本型
n	整数型
摘要	文本型
本期结存	文本型
种类	文本型
行	双精度小数型
出库	文本型
入库	文本型

如果真 (excel1.创建 (“Excel.Application”, ) ＝ 假)
信息框 (“你的计算机上可能没有 EXCEL 程序！”, 0, , )
结束 ()
excel1.获取 (“Excel.Application”)
excel1.写属性 (“Visible”, 真)
workbooks1 ＝ excel1.读对象型属性 (“Workbooks”, )
workbooks1.方法 (“open”, 取运行目录 () ＋ “\库存台账表” ＋ 编辑框2.内容 ＋ “.xls”)
excel表格对象1 ＝ excel1.读对象型属性 (“Activesheet”, )
行 ＝ excel表格对象1.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
excel单元格对象1 ＝ excel1.读对象型属性 (“Cells”, )
excel2.获取 (“Excel.Application”)
excel2.写属性 (“Visible”, 真)
workbooks2 ＝ excel1.读对象型属性 (“Workbooks”, )
workbooks2.方法 (“open”, 取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日销售报表.xlsx”)
excel表格对象2 ＝ excel2.读对象型属性 (“Activesheet”, )
excel单元格对象2 ＝ excel2.读对象型属性 (“Cells”, )
计次循环首 (行, n)
凭证号 ＝ excel单元格对象1.读对象型属性 (“Range”, “N” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
摘要 ＝ excel单元格对象1.读对象型属性 (“Range”, “P” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
本期结存 ＝ excel单元格对象1.读对象型属性 (“Range”, “S” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
种类 ＝ excel单元格对象1.读对象型属性 (“Range”, “M” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
出库 ＝ excel单元格对象1.读对象型属性 (“Range”, “R” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
入库 ＝ excel单元格对象1.读对象型属性 (“Range”, “Q” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )
excel单元格对象2.读对象型属性 (“Range”, “D” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 凭证号)
excel单元格对象2.读对象型属性 (“Range”, “E” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 摘要)
excel单元格对象2.读对象型属性 (“Range”, “H” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 本期结存)
excel单元格对象2.读对象型属性 (“Range”, “C” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 种类)
excel单元格对象2.读对象型属性 (“Range”, “G” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 出库)
excel单元格对象2.读对象型属性 (“Range”, “F” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 入库)
调试输出 (凭证号, 摘要, 本期结存)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> .版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .程序集变量 excel1, 对象<br /> .程序集变量 workbooks1, 对象<br /> .程序集变量 excel表格对象1, 对象<br /> .程序集变量 excel单元格对象1, 对象<br /> .程序集变量 excel2, 对象<br /> .程序集变量 workbooks2, 对象<br /> .程序集变量 excel表格对象2, 对象<br /> .程序集变量 excel单元格对象2, 对象<br /> <br /> .子程序 _按钮8_被单击<br /> .局部变量 凭证号1, 文本型<br /> .局部变量 n1, 整数型<br /> .局部变量 摘要1, 文本型<br /> .局部变量 本期结存1, 文本型<br /> .局部变量 种类1, 文本型<br /> .局部变量 行1, 双精度小数型<br /> .局部变量 出库1, 文本型<br /> .局部变量 入库1, 文本型<br /> .局部变量 名称1, 文本型<br /> .局部变量 月份1, 文本型<br /> .局部变量 日期1, 文本型<br /> <br /> 打开文件 (取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日台账结存.xlsx”, , )<br /> .如果真 (excel1.创建 (“Excel.Application”, ) ＝ 假)<br />     信息框 (“你的计算机上可能没有 EXCEL 程序！”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> excel1.获取 (“Excel.Application”)<br /> excel1.写属性 (“Visible”, 真)<br /> workbooks1 ＝ excel1.读对象型属性 (“Workbooks”, )<br /> workbooks1.方法 (“open”, 取运行目录 () ＋ “\库存台账表” ＋ 编辑框2.内容 ＋ “.xls”)<br /> excel表格对象1 ＝ excel1.读对象型属性 (“Activesheet”, )<br /> 行1 ＝ excel表格对象1.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br /> excel单元格对象1 ＝ excel1.读对象型属性 (“Cells”, )<br /> <br /> excel2.获取 (“Excel.Application”)<br /> excel2.写属性 (“Visible”, 真)<br /> workbooks2 ＝ excel1.读对象型属性 (“Workbooks”, )<br /> workbooks2.方法 (“open”, 取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日台账结存.xlsx”)<br /> excel表格对象2 ＝ excel2.读对象型属性 (“Activesheet”, )<br /> ' 行 ＝ excel表格对象2.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br /> excel单元格对象2 ＝ excel2.读对象型属性 (“Cells”, )<br /> <br /> <br /> <br /> .计次循环首 (行1, n1)<br />     名称1 ＝ excel单元格对象1.读对象型属性 (“Range”, “J” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     月份1 ＝ excel单元格对象1.读对象型属性 (“Range”, “L” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     种类1 ＝ excel单元格对象1.读对象型属性 (“Range”, “M” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     凭证号1 ＝ excel单元格对象1.读对象型属性 (“Range”, “N” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     日期1 ＝ excel单元格对象1.读对象型属性 (“Range”, “O” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     摘要1 ＝ excel单元格对象1.读对象型属性 (“Range”, “P” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     出库1 ＝ excel单元格对象1.读对象型属性 (“Range”, “R” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     入库1 ＝ excel单元格对象1.读对象型属性 (“Range”, “Q” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br />     本期结存1 ＝ excel单元格对象1.读对象型属性 (“Range”, “S” ＋ 到文本 (n1 ＋ 1)).读文本属性 (“Value”, )<br /> <br />     excel单元格对象2.读对象型属性 (“Range”, “A” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 名称1)<br />     excel单元格对象2.读对象型属性 (“Range”, “C” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 月份1)<br />     excel单元格对象2.读对象型属性 (“Range”, “D” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 种类1)<br />     excel单元格对象2.读对象型属性 (“Range”, “E” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 凭证号1)<br />     excel单元格对象2.读对象型属性 (“Range”, “F” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 日期1)<br />     excel单元格对象2.读对象型属性 (“Range”, “G” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 摘要1)<br />     excel单元格对象2.读对象型属性 (“Range”, “H” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 入库1)<br />     excel单元格对象2.读对象型属性 (“Range”, “I” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 出库1)<br />     excel单元格对象2.读对象型属性 (“Range”, “J” ＋ 到文本 (n1 ＋ 4)).写属性 (“Value”, 本期结存1)<br /> <br />     调试输出 (凭证号1, 摘要1, 本期结存1)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮11_被单击<br /> .局部变量 凭证号, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 摘要, 文本型<br /> .局部变量 本期结存, 文本型<br /> .局部变量 种类, 文本型<br /> .局部变量 行, 双精度小数型<br /> .局部变量 出库, 文本型<br /> .局部变量 入库, 文本型<br /> <br /> .如果真 (excel1.创建 (“Excel.Application”, ) ＝ 假)<br />     信息框 (“你的计算机上可能没有 EXCEL 程序！”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> excel1.获取 (“Excel.Application”)<br /> excel1.写属性 (“Visible”, 真)<br /> workbooks1 ＝ excel1.读对象型属性 (“Workbooks”, )<br /> workbooks1.方法 (“open”, 取运行目录 () ＋ “\库存台账表” ＋ 编辑框2.内容 ＋ “.xls”)<br /> excel表格对象1 ＝ excel1.读对象型属性 (“Activesheet”, )<br /> 行 ＝ excel表格对象1.读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br /> excel单元格对象1 ＝ excel1.读对象型属性 (“Cells”, )<br /> <br /> excel2.获取 (“Excel.Application”)<br /> excel2.写属性 (“Visible”, 真)<br /> workbooks2 ＝ excel1.读对象型属性 (“Workbooks”, )<br /> workbooks2.方法 (“open”, 取运行目录 () ＋ “\” ＋ 到文本 (组合框1.现行选中项) ＋ “日销售报表.xlsx”)<br /> excel表格对象2 ＝ excel2.读对象型属性 (“Activesheet”, )<br /> excel单元格对象2 ＝ excel2.读对象型属性 (“Cells”, )<br /> <br /> <br /> <br /> .计次循环首 (行, n)<br />     凭证号 ＝ excel单元格对象1.读对象型属性 (“Range”, “N” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br />     摘要 ＝ excel单元格对象1.读对象型属性 (“Range”, “P” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br />     本期结存 ＝ excel单元格对象1.读对象型属性 (“Range”, “S” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br />     种类 ＝ excel单元格对象1.读对象型属性 (“Range”, “M” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br />     出库 ＝ excel单元格对象1.读对象型属性 (“Range”, “R” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br />     入库 ＝ excel单元格对象1.读对象型属性 (“Range”, “Q” ＋ 到文本 (n ＋ 1)).读文本属性 (“Value”, )<br /> <br />     excel单元格对象2.读对象型属性 (“Range”, “D” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 凭证号)<br />     excel单元格对象2.读对象型属性 (“Range”, “E” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 摘要)<br />     excel单元格对象2.读对象型属性 (“Range”, “H” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 本期结存)<br />     excel单元格对象2.读对象型属性 (“Range”, “C” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 种类)<br />     excel单元格对象2.读对象型属性 (“Range”, “G” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 出库)<br />     excel单元格对象2.读对象型属性 (“Range”, “F” ＋ 到文本 (n ＋ 5)).写属性 (“Value”, 入库)<br /> <br />     调试输出 (凭证号, 摘要, 本期结存)<br /> <br /> .计次循环尾 ()

不会自己打开被导入的表格  这是为什么。  不打开情况下 他就会原表格更改

阳明先生

kispolo

厉害，楼主好厉害

FUYUEPC

这个动画录制软件还可以

LYForever

好东西看看~~~

jy账号

感谢分享，很给力

3304846256

感谢开源！谢谢！

冰雨泪

这个可以有

HeraLess

感觉好高级一样

743567274

感谢开源！谢谢！

nevergiveup520

试试使用libxl，http://bbs.eyuyan.com/read.php?tid=411643