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”, ) ' 选中工作表1Excel.读对象型属性 (“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”, ) ' 选中工作表1Excel.读对象型属性 (“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.清除 ()_启动窗口.销毁 ()