记事本内容一键导出到EXCEL表格

Excel程序1.创建 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.置程序 (Excel程序1)
文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
g ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (g), i)
g1 ＝ 分割文本 (g [i], “ ”, )
.计次循环首 (取数组成员数 (g1), j)
调试输出 (g1 [j])
Excel工作簿1.首单元格 ＝ 字符 (64 ＋ j) ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ 字符 (64 ＋ j) ＋ 到文本 (i)
Excel工作簿1.内容格式 ＝ “@”
Excel工作簿1.内容 ＝ g1 [j]
Excel工作簿1.列宽 ＝ 15
Excel工作簿1.行高 ＝ 15
.计次循环尾 ()
.计次循环尾 ()
文本 ＝ 通用对话框1.文件名
Excel工作簿1.保存 (文本 ＋ “.xls”)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()