超级列表框Access数据库打印Excel程序

Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.表格序号 ＝ 1
Excel工作簿1.激活表格 ()
计次循环首 (超级列表框1.取列数 (), a)
Excel工作簿1.首单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)
Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ a) ＋ 到文本 (1)
Excel工作簿1.内容 ＝ 超级列表框1.取列标题 (a － 1)
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), n)
计次循环首 (超级列表框1.取列数 (), i)
Excel工作簿1.首单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)
Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ i) ＋ 到文本 (n ＋ 1)
Excel工作簿1.内容 ＝ 超级列表框1.取标题 (n － 1, i － 1)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ “\结算报表.xls”)