COM方法快速导入EXCEL到超级列表框

System.喵

之前有位大神发过类似的源代码,下载地址找不到了,也不记得名字 以下是代码截图, 是转为csv文本,然后读文本导入的,用|作为分割符,但是文本中有逗号的话也会被分割.....    子程序名 返回值类型 公开 备 注 导入Excel 参数名 类 型 参考 可空 数组 备 注 文件名 文本型 超级列表框 超级列表框 变量名 类 型 静态 数组 备 注 excel 对象 workbooks 对象 temp 文本型 临时文件名 文件号 整数型 cnt 文本型 行文本 arr 文本型 0 行文本分割 i 整数型 已循环次数变量 index 整数型 表项数 int 整数型 调试获取耗时时间 如果真 (是否为调试版 ()) int ＝ 取启动时间 () 如果真 (文件是否存在 (文件名) ＝ 假) 调试输出 (“文件不存在”) 返回 () 如果真 (excel.创建 (“Excel.Application”, ) ＝ 假) 返回 () ' 置随机数种子 () ' temp ＝ 取运行目录 () ＋ “\temp-” ＋ 到文本 (取随机数 (100, 9999)) ＋ “.txt” temp ＝ 取临时文件名 () excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告 excel.写属性 (“ScreenUpdating”, 假)  ' 停止屏幕刷新 workbooks ＝ excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文件名) workbooks.方法 (“SaveAs”, temp, -4158)  ' XlFileFormat 枚举 (Excel) 参考地址https://msdn.microsoft.com/zh-cn/library/ff198017.aspx workbooks.方法 (“Close”, ) workbooks.清除 () excel.写属性 (“ScreenUpdating”, 真) excel.方法 (“Quit”, ) excel.清除 () 文件号 ＝ 打开文件 (temp, #读入, ) 如果真 (文件号 ＝ 0) 返回 () cnt ＝ 读入一行 (文件号) arr ＝ 分割文本 (cnt, 字符 (9), ) 判断循环首 (超级列表框.取�硐钍� () ＞ 0) 超级列表框.全部删除 () 判断循环尾 () 判断循环首 (超级列表框.取列数 () ＞ 0) 超级列表框.删除列 (0) 判断循环尾 () 计次循环首 (取数组成员数 (arr) ＋ 2, i) 超级列表框.插入列 (, 字符 (64 ＋ i), , , , ) 计次循环尾 () 移到文件首 (文件号) 判断循环首 (是否在文件尾 (文件号, ) ＝ 假) cnt ＝ 读入一行 (文件号) arr ＝ 分割文本 (cnt, 字符 (9), ) index ＝ 超级列表框.插入表项 (, , , , , ) 计次循环首 (取数组成员数 (arr), i) 超级列表框.置标题 (index, i － 1, arr [i) 计次循环尾 () 处理事件 () 判断循环尾 () ' 设置列宽为自适应 . ' 计次循环首 (超级列表框.取列数 (), i) ' 超级列表框.置列宽 (i － 1, -2) . ' 计次循环尾 () 关闭文件 (文件号) 删除文件 (temp) 如果真 (是否为调试版 ()) 调试输出 (文件名, 取文件尺寸 (文件名) ÷ 1024, 取文件尺寸 (文件名) ÷ 1024 ÷ 1024, “耗时>”, (取启动时间 () － int) ÷ 1000) i支持库列表    支持库注释    iext 扩展界面支持库一 spec 特殊功能支持库

上一篇：ExUI + MySql [登陆,注册,头像,VIP]
下一篇：2016年7月16日签到记录贴