关于excel 导入超级列表相关问题大佬们在线等待

cpo0029 · 发表于 2019-11-13 13:45:49

导入到超级列表的时候格式都对应 QQ图片20191113133718.png

exlce 格式基本上不变

QQ截图20191113134200.png

请问大佬们 excel 在导入超级列表框的时候应该怎么去处理才能得到这样的的格式

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
工作簿对象	对象
范围	对象
行对象	对象
列对象	对象
单元格对象	对象
行	整数型
列	整数型
n1	整数型
A列	文本型
B列	文本型
C列	文本型
D列	文本型
E列	文本型
F列	文本型
索引	整数型

通用对话框1.类型＝ 0
通用对话框1.初始目录＝取运行目录 ()
通用对话框1.过滤器＝ “Excle文件（*.xlsx）丨*.xls”

如果真 (通用对话框1.打开 ())

编辑框1.内容＝通用对话框1.文件名

Excel程序1.创建 ()

Excel程序1.显示＝假

Excel工作簿1.置程序 (Excel程序1)

Excel工作簿1.打开 (通用对话框1.文件名)

Excel工作簿1.激活工作簿 ()

Excel工作簿1.激活表格 ()

Excel工作簿1.表格序号＝ 1

工作簿对象＝ Excel工作簿1.取表格对象 ()

范围＝工作簿对象.读对象型属性 (“UsedRange”, )

行对象＝范围.读对象型属性 (“Rows”, )

行＝行对象.读数值属性 (“Count”, )

列对象＝范围.读对象型属性 (“Columns”, )

列＝列对象.读数值属性 (“Count”, )

调试输出 (行)

调试输出 (列)

计次循环首 (行, n1)

Excel工作簿1.首单元格＝ “A” ＋到文本 (n1 ＋ 1)

Excel工作簿1.尾单元格＝ “A” ＋到文本 (n1 ＋ 1)

单元格对象＝ Excel工作簿1.取单元格对象 ()

A列＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “B” ＋到文本 (n1 ＋ 1)

Excel工作簿1.尾单元格＝ “B” ＋到文本 (n1 ＋ 1)

单元格对象＝ Excel工作簿1.取单元格对象 ()

B列＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “C” ＋到文本 (n1 ＋ 1)

Excel工作簿1.尾单元格＝ “C” ＋到文本 (n1 ＋ 1)

单元格对象＝ Excel工作簿1.取单元格对象 ()

' *** 缩略程序块 ***

' C列＝单元格对象.读文本属性 (“Value”, )

' Excel工作簿1.首单元格＝ “D” ＋到文本 (n1 ＋ 1)

' Excel工作簿1.尾单元格＝ “D” ＋到文本 (n1 ＋ 1)

' 单元格对象＝ Excel工作簿1.取单元格对象 ()

' D列＝单元格对象.读文本属性 (“Value”, )

' Excel工作簿1.首单元格＝ “E” ＋到文本 (n1 ＋ 1)

' Excel工作簿1.尾单元格＝ “E” ＋到文本 (n1 ＋ 1)

' 单元格对象＝ Excel工作簿1.取单元格对象 ()

' E列＝单元格对象.读文本属性 (“Value”, )

' Excel工作簿1.首单元格＝ “F” ＋到文本 (n1 ＋ 1)

' Excel工作簿1.尾单元格＝ “F” ＋到文本 (n1 ＋ 1)

' 单元格对象＝ Excel工作簿1.取单元格对象 ()

' F列＝单元格对象.读文本属性 (“Value”, )

索引＝窗口4.超级列表框1.插入表项 (, , , , , )

窗口4.超级列表框1.置标题 (索引, 0, A列)

窗口4.超级列表框1.置标题 (索引, 1, B列)

' *** 缩略程序块 ***

' 窗口3.超级列表框1.置标题 (索引, 2, C列)

' 窗口3.超级列表框1.置标题 (索引, 3, D列)

' 窗口3.超级列表框1.置标题 (索引, 4, E列)

计次循环尾 ()

Excel工作簿1.关闭 ()

Excel工作簿1.释放 ()

Excel程序1.退出 ()

Excel程序1.释放 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br />
.支持库 eExcel2000<br />
.支持库 spec<br />
.支持库 iext<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 工作簿对象, 对象<br />
.局部变量 范围, 对象<br />
.局部变量 行对象, 对象<br />
.局部变量 列对象, 对象<br />
.局部变量 单元格对象, 对象<br />
.局部变量 行, 整数型<br />
.局部变量 列, 整数型<br />
.局部变量 n1, 整数型<br />
.局部变量 A列, 文本型<br />
.局部变量 B列, 文本型<br />
.局部变量 C列, 文本型<br />
.局部变量 D列, 文本型<br />
.局部变量 E列, 文本型<br />
.局部变量 F列, 文本型<br />
.局部变量 索引, 整数型<br />
<br />
通用对话框1.类型 ＝ 0<br />
通用对话框1.初始目录 ＝ 取运行目录 ()<br />
通用对话框1.过滤器 ＝ “Excle文件（*.xlsx）丨*.xls”<br />
.如果真 (通用对话框1.打开 ())<br />
    编辑框1.内容 ＝ 通用对话框1.文件名<br />
    Excel程序1.创建 ()<br />
    Excel程序1.显示 ＝ 假<br />
    Excel工作簿1.置程序 (Excel程序1)<br />
    Excel工作簿1.打开 (通用对话框1.文件名)<br />
    Excel工作簿1.激活工作簿 ()<br />
    Excel工作簿1.激活表格 ()<br />
    Excel工作簿1.表格序号 ＝ 1<br />
    工作簿对象 ＝ Excel工作簿1.取表格对象 ()<br />
    范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )<br />
    行对象 ＝ 范围.读对象型属性 (“Rows”, )<br />
    行 ＝ 行对象.读数值属性 (“Count”, )<br />
    列对象 ＝ 范围.读对象型属性 (“Columns”, )<br />
    列 ＝ 列对象.读数值属性 (“Count”, )<br />
    调试输出 (行)<br />
    调试输出 (列)<br />
<br />
    .计次循环首 (行, n1)<br />
        Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (n1 ＋ 1)<br />
        Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (n1 ＋ 1)<br />
        单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
        A列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        Excel工作簿1.首单元格 ＝ “B” ＋ 到文本 (n1 ＋ 1)<br />
        Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (n1 ＋ 1)<br />
        单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
        B列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (n1 ＋ 1)<br />
        Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本 (n1 ＋ 1)<br />
        单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
<br />
        ' *** 缩略程序块 ***<br />
        ' C列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        ' Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (n1 ＋ 1)<br />
        ' Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (n1 ＋ 1)<br />
        ' 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
        ' D列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        ' Excel工作簿1.首单元格 ＝ “E” ＋ 到文本 (n1 ＋ 1)<br />
        ' Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (n1 ＋ 1)<br />
        ' 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
        ' E列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        ' Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (n1 ＋ 1)<br />
        ' Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (n1 ＋ 1)<br />
        ' 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />
        ' F列 ＝ 单元格对象.读文本属性 (“Value”, )<br />
        索引 ＝ 窗口4.超级列表框1.插入表项 (, , , , , )<br />
<br />
        窗口4.超级列表框1.置标题 (索引, 0, A列)<br />
        窗口4.超级列表框1.置标题 (索引, 1, B列)<br />
        ' *** 缩略程序块 ***<br />
        ' 窗口3.超级列表框1.置标题 (索引, 2, C列)<br />
        ' 窗口3.超级列表框1.置标题 (索引, 3, D列)<br />
        ' 窗口3.超级列表框1.置标题 (索引, 4, E列)<br />
    .计次循环尾 ()<br />
<br />
    Excel工作簿1.关闭 ()<br />
    Excel工作簿1.释放 ()<br />
    Excel程序1.退出 ()<br />
    Excel程序1.释放 ()