EXCEL超级列表框导入导出数据

.如果 (Excel程序1.创建 () ＝ 真)
Excel程序1.显示 ＝ 假 ' 为真显示EXCEL程序
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.关闭 ()
Excel工作簿1.打开 (取运行目录 () ＋ “\Book1.xls”)
Excel工作簿1.表格序号 ＝ 1
标签2.标题 ＝ “EXCEL程序已经打开”
.否则
信息框 (“你电脑中未安装office2000”, 0, )