| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 获取打开的Excel文件 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 工作簿集合 | 对象 | |||||
| 工作簿 | 对象 | |||||
| 工作簿数量 | 整数型 | |||||
| i | 整数型 | |||||
| 文件名 | 文本型 | |||||
| 文件路径 | 文本型 | |||||
Excel应用.获取 (“Excel.Application”)
如果 (Excel应用.是否为空 () ＝ 真)
信息框 (“未找到正在运行的Excel应用程序！”, 0, “错误”, )
返回 ()
信息框 (“成功连接到Excel应用程序！”, 0, “提示”, )
' 获取所有打开的工作簿
工作簿集合 ＝ Excel应用.读对象型属性 (“Workbooks”, )
工作簿数量 ＝ 工作簿集合.读数值属性 (“Count”, )
' 遍历所有工作簿
计次循环首 (工作簿数量, i)工作簿 ＝ 工作簿集合.读对象型属性 (“Item”, i)文件名 ＝ 工作簿.读文本属性 (“Name”, )文件路径 ＝ 工作簿.读文本属性 (“FullName”, )信息框 (“工作簿 ” ＋ 到文本 (i) ＋ “：” ＋ #换行符 ＋ “文件名: ” ＋ 文件名 ＋ #换行符 ＋ “路径: ” ＋ 文件路径, 0, “Excel文件信息”, )工作簿.清除 () ' 释放对象
计次循环尾 ()' 释放COM对象
工作簿集合.清除 ()
Excel应用.清除 ()