贴吧助手web版

 找回密码
 
搜索
查看: 1441|回复: 0

[易语言] COM方法快速导入EXCEL到超级列表框

[复制链接]
     紫钻仅向指定用户开放  
  • TA的每日心情
    不屑
    昨天 10:44
  • 签到天数: 1102 天

    [LV.10]以坛为家III

    685

    主题

    1505

    帖子

    1529

    积分

    管理员

    Rank: 15Rank: 15Rank: 15Rank: 15

    金币
    3559

    接口达人工具作者土豪之星

    发表于 2016-7-15 23:51:28 | 显示全部楼层 |阅读模式
    之前有位大神发过类似的源代码,下载地址找不到了,也不记得名字
    以下是代码截图,
    103732llse1wx4h2ihhs11.jpg


    104200eifwsfg4dc8d0g4c.jpg



    是转为csv文本,然后读文本导入的,用|作为分割符,但是文本中有逗号的话也会被分割.....



      
    子程序名返回值类型公开备 注
    导入Excel
    参数名类 型参考可空数组备 注
    文件名文本型
    超级列表框超级列表框
    变量名类 型静态数组备 注
    excel对象
    workbooks对象
    temp文本型
    临时文件名
    文件号整数型
    cnt文本型
    行文本
    arr文本型
    0行文本分割
    i整数型
    已循环次数变量
    index整数型
    表项数
    int整数型
    调试获取耗时时间
    07.png 如果真 (是否为调试版 ())
    03.png int = 取启动时间 ()
    01.png
    如果真 (文件是否存在 (文件名))
    调试输出 (“文件不存在”)
    返回 ()
    17.png 如果真 (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), )
    13.png 判断循环首 (超级列表框.取�硐钍� () > 0)
    超级列表框.全部删除 ()
    12.png 判断循环尾 ()
    判断循环首 (超级列表框.取列数 () > 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特殊功能支持库





    103805vbukl9bvlm3u5cwz.jpg




    上一篇:ExUI + MySql [登陆,注册,头像,VIP]
    下一篇:2016年7月16日签到记录贴
    07.png
    03.png
    07.png
    03.png
    喵星人贴吧助手你值得拥有
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 |

    本版积分规则

    快速回复 返回顶部 返回列表