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

maomi369 · 发表于 2016-7-10 10:43:41

之前有位大神发过类似的源代码,下载地址找不到了,也不记得名字
以下是代码截图,
QQ截图20160710103156.png

是转为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	特殊功能支持库

.版本 2<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.子程序 导入Excel<br />
.参数 文件名, 文本型<br />
.参数 超级列表框, 超级列表框<br />
.局部变量 excel, 对象<br />
.局部变量 workbooks, 对象<br />
.局部变量 temp, 文本型, , , 临时文件名<br />
.局部变量 文件号, 整数型<br />
.局部变量 cnt, 文本型, , , 行文本<br />
.局部变量 arr, 文本型, , "0", 行文本分割<br />
.局部变量 i, 整数型, , , 已循环次数变量<br />
.局部变量 index, 整数型, , , 表项数<br />
.局部变量 int, 整数型, , , 调试获取耗时时间<br />
<br />
.如果真 (是否为调试版 ())<br />
    int ＝ 取启动时间 ()<br />
.如果真结束<br />
<br />
.如果真 (文件是否存在 (文件名) ＝ 假)<br />
    调试输出 (“文件不存在”)<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (excel.创建 (“Excel.Application”, ) ＝ 假)<br />
    返回 ()<br />
.如果真结束<br />
' 置随机数种子 ()<br />
' temp ＝ 取运行目录 () ＋ “\temp-” ＋ 到文本 (取随机数 (100, 9999)) ＋ “.txt”<br />
temp ＝ 取临时文件名 ()<br />
excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告<br />
excel.写属性 (“ScreenUpdating”, 假)  ' 停止屏幕刷新<br />
workbooks ＝ excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 文件名)<br />
workbooks.方法 (“SaveAs”, temp, -4158)  ' XlFileFormat 枚举 (Excel) 参考地址https://msdn.microsoft.com/zh-cn/library/ff198017.aspx<br />
workbooks.方法 (“Close”, )<br />
workbooks.清除 ()<br />
excel.写属性 (“ScreenUpdating”, 真)<br />
excel.方法 (“Quit”, )<br />
excel.清除 ()<br />
<br />
文件号 ＝ 打开文件 (temp, #读入, )<br />
<br />
.如果真 (文件号 ＝ 0)<br />
    返回 ()<br />
.如果真结束<br />
cnt ＝ 读入一行 (文件号)<br />
arr ＝ 分割文本 (cnt, 字符 (9), )<br />
<br />
.判断循环首 (超级列表框.取表项数 () ＞ 0)<br />
    超级列表框.全部删除 ()<br />
.判断循环尾 ()<br />
.判断循环首 (超级列表框.取列数 () ＞ 0)<br />
    超级列表框.删除列 (0)<br />
.判断循环尾 ()<br />
<br />
.计次循环首 (取数组成员数 (arr) ＋ 2, i)<br />
    超级列表框.插入列 (, 字符 (64 ＋ i), , , , )<br />
.计次循环尾 ()<br />
<br />
移到文件首 (文件号)<br />
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />
    cnt ＝ 读入一行 (文件号)<br />
    arr ＝ 分割文本 (cnt, 字符 (9), )<br />
    index ＝ 超级列表框.插入表项 (, , , , , )<br />
<br />
    .计次循环首 (取数组成员数 (arr), i)<br />
        超级列表框.置标题 (index, i － 1, arr <i>)<br />
    .计次循环尾 ()<br />
<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
<br />
' 设置列宽为自适应<br />
.' 计次循环首 (超级列表框.取列数 (), i)<br />
    ' 超级列表框.置列宽 (i － 1, -2)<br />
.' 计次循环尾 ()<br />
<br />
关闭文件 (文件号)<br />
删除文件 (temp)<br />
<br />
.如果真 (是否为调试版 ())<br />
    调试输出 (文件名, 取文件尺寸 (文件名) ÷ 1024, 取文件尺寸 (文件名) ÷ 1024 ÷ 1024, “耗时>”, (取启动时间 () － int) ÷ 1000)