作者：乔山办公网日期：
返回目录：excel表格制作
如果真 (选择框_excel可视.选中 ＝ 真)
Excel程序copy_写百.显示 ＝ 真
.如果真结束
Excel工作簿_写.置程序 (Excel程序_写)
Excel工作簿_写.打开 (编辑框度_需写入excel.内容)
z ＝ 1
x ＝ 1
y ＝ 1
坐标 ＝ 字符 (x ＋ 64) ＋ 到文本 (y)
Excel工作簿_写.表格序号 ＝ z
Excel工作簿_写.首单元格问 ＝ 坐标
Excel工作簿_写.尾单元格 ＝ 坐标
Excel工作簿_写.内容=内容
Excel工作簿_写.保存 (编辑框_需写入excel.内容)
Excel工作簿_写.关闭 ()
Excel工作簿_写.释放 ()
Excel程序_写.退出 ()
Excel程序_写.释放 ()
补充内容 (2014-9-6 13:24):
如果真上答面少了一行，.版本 2
.支持库 eExcel2000
Excel程序_写.创建 ()
.版本 2
.子程序 __启动窗copy口_创建完毕
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\保存的数知据.ini”, “保存”, “数据”道, )
.子程序 _按钮1_被单击
.如果真 (写配置项 (取运行目录 () ＋ “\保存的数据.ini”, “保存”, “数据”, 编辑框1.内容))
信息框 (“数据已保存！”, 0, )
数据内容=到文本（读入文件（知取运行目录（）+“\文件名”））
下面代码无法写了，只能给看例子。 比如我要导入qq账号和qq密码到超级列表框里
数据内容=
123456----eyybbs
456789----eyybbs
文本数组道=分割版文本（数据内容，#换行符，）
计次循环首（取数组成员数（数据内容），n）
结果数组=分割文本（文本数组[n]，“----”，）
如果真（取数组成员数（结果数组）=2）
索引=超级列表框1.插入表项（）
如果真（取数组成员数（结果数组）=2）’加个如果以防数据内容错乱导致软件报错
超级列表框1.至标题（索引，0，结果数组[1]）
超级列表框1.至标题（索引，0，结果数组[2]）
计次循环尾
这个代码我给你敲了两遍，第一权遍网页无缘无故关闭了，纯手工。不懂请hi我。百度hi头像有我qq
个人建议：
1、建议选用数据库去完成你要的修改、添加、查询操作
2、添加一个超级列表框抄，可以轻松直观的处理数据
3、如果有使用Excel的需求，那就弄一知个导出按键
这样才能是一个完整的软件，你用Excel直接做，肯定没有用数据库来的快，来得稳定。具体代码没法提供，因为功能太道多，需要斟酌的地方也多，太花时间了。
个人建议希望对你有帮助