易语言-多个工作薄的工作表移动到其他工作薄中
1、.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 Excel, 对象
.程序集变量 文本地址1, 文本型
.程序集变量 文本地址2, 文本型
.程序集变量 文本地址3, 文本型
.子程序 __启动窗口_创建完毕
Excel.创建 (“Excel.Application”, )
文本地址1 ＝ “C:\Users\MAIBENBEN\Desktop\aaa.xls”
文本地址2 ＝ “C:\Users\MAIBENBEN\Desktop\bbb.xls”
文本地址3 ＝ “C:\Users\MAIBENBEN\Desktop\ccc.xlsx”
.子程序 _按钮1_被单击
.局部变量 表数1, 整数型
.局部变量 表数2, 整数型
Excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文本地址1, , , , , , ) ' 打开要读写的目标工作薄
Excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).方法 (“select”, ) ' 选中工作表1
Excel.读对象型属性 (“Activesheet”, ).读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).通用方法 (“copy”, ) ' 复制整个工作表内容
Excel.读对象型属性 (“Workbooks”, ).方法 (“Close”, ) ' 关闭工作薄
Excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文本地址3, , , , , , ) ' 打开要读写的目标工作薄
Excel.读对象型属性 (“ActiveSheet”, ).写属性 (“Name”, “表1”) ' 置工作表【改名】
Excel.读对象型属性 (“activesheet”, ).方法 (“paste”, Excel.读属性 (“range”, “a1”)) ' 以单元格A1为起始位置【粘贴】数据
' 表数1 ＝ Excel.读对象型属性 (“Worksheets”, ).读数值属性 (“Count”, )
' 输出调试文本 (表数1)
Excel.读对象型属性 (“ActiveWorkbook”, ).方法 (“Save”, ) ' 保存工作薄
Excel.读对象型属性 (“Workbooks”, ).方法 (“Close”, ) ' 关闭工作薄
Excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文本地址2, , , , , , )
Excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).方法 (“select”, ) ' 选中工作表1
Excel.读对象型属性 (“Activesheet”, ).读对象型属性 (“UsedRange”, ).读对象型属性 (“Rows”, ).通用方法 (“copy”, ) ' 复制整个工作表内容
Excel.读对象型属性 (“Workbooks”, ).方法 (“Close”, ) ' 关闭工作薄
Excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文本地址3, , , , , , ) ' 打开要读写的目标工作薄
Excel.读对象型属性 (“Worksheets”, ).对象型方法 (“Add”, ) ' 新增工作表
Excel.读对象型属性 (“ActiveSheet”, ).写属性 (“Name”, “表2”) ' 置工作表【改名】
Excel.读对象型属性 (“activesheet”, ).方法 (“paste”, Excel.读属性 (“range”, “a1”)) ' 以单元格A1为起始位置【粘贴】数据
' 表数2 ＝ Excel.读对象型属性 (“Worksheets”, ).读数值属性 (“Count”, )
' 输出调试文本 (表数2)
Excel.读对象型属性 (“ActiveWorkbook”, ).方法 (“Save”, ) ' 保存工作薄
Excel.读对象型属性 (“Workbooks”, ).方法 (“Close”, ) ' 关闭工作薄
.子程序 _按钮2_被单击
Excel.方法 (“Quit”, )
Excel.清除 ()
_启动窗口.销毁 ()