请大神解决一下

llalla · 发表于 2023-2-20 10:17:39

我在这里电脑编译出来的软件，导入Excel格式正常，发到其他电脑，导入不进格式，没有显示，而且还卡死，我自己电脑正常也不卡
.版本 2
.支持库 iext
.支持库 eExcel2000
.支持库 spec

超级列表框1.全部删除 ()
通用对话框1.类型＝ 0
通用对话框1.初始目录＝取运行目录 ()
通用对话框1.过滤器＝ “excel表格（*.xlsx*.xls）|*|excel表格（*.xls）|*.xls”
.如果真 (通用对话框1.打开 ())
' 编辑框100.内容＝通用对话框1.文件名
Excel程序1.创建 ()
Excel程序1.显示＝假
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (通用对话框1.文件名)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号＝ 0
工作簿对象＝ Excel工作簿1.取表格对象 ()
范围＝工作簿对象.读对象型属性 (“UsedRange”, )
行对象＝范围.读对象型属性 (“Rows”, )
行＝行对象.读数值属性 (“Count”, )
列对像＝范围.读对象型属性 (“Columns”, )
列＝列对像.读数值属性 (“Count”, )
调试输出 (行)
调试输出 (列)
.如果真结束

.计次循环首 (行, n1)
Excel工作簿1.首单元格＝ “A” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “A” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
手机号＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “B” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “B” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
姓名＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “C” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “C” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
卡尾数＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “D” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “D” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
D列＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “E” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “E” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
E列＝单元格对象.读文本属性 (“Value”, )

Excel工作簿1.首单元格＝ “F” ＋到文本 (n1)
Excel工作簿1.尾单元格＝ “F” ＋到文本 (n1)
单元格对象＝ Excel工作簿1.取单元格对象 ()
F列＝单元格对象.读文本属性 (“Value”, )

索引＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引＋ 1))
超级列表框1.置标题 (索引, 1, A列)
超级列表框1.置标题 (索引, 2, B列)
超级列表框1.置标题 (索引, 3, C列)
超级列表框1.置标题 (索引, 4, D列)
超级列表框1.置标题 (索引, 5, E列)
.计次循环尾 ()

Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()