为啥打开xls表格可以，xlsx的打不开。。。

yzw011

  

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

变量名	类 型	静态	数组	备 注
表名数组	文本型		0
字段名数组	文本型		0
数据开始行	整数型
n	整数型
n1	整数型
索引	整数型
临时文本	文本型

通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “Excel文件|*.xlsx;.xls”
' 通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.文件名 ＝ “”
如果真 (通用对话框1.打开 () ＝ 假)
返回 ()
输入框 (“请输入EXCEL数据开始的行号,行号从1开始。”, “输入行号”, “2”, 数据开始行, 2)
取excel表名 (通用对话框1.文件名, 表名数组)
取excel字段名 (数据库连接1, 记录集1, 通用对话框1.文件名, 表名数组 [1], 字段名数组)
初始化列表 (超级列表框1, 字段名数组)
记录集1.打开 (“select * from [” ＋ 表名数组 [1] ＋ “$]”, #SQL语句 )
计次循环首 (记录集1.记录数量, n)
处理事件 ()
如果真 (n ≥ 数据开始行)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (取数组成员数 (字段名数组), n1)
记录集1.读文本 (n1 － 1, 临时文本)
超级列表框1.置标题 (索引, n1 － 1, 临时文本)
计次循环尾 ()
记录集1.到下一条 ()
计次循环尾 ()
记录集1.关闭 ()
数据库连接1.关闭 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 表名数组, 文本型, , "0"<br /> .局部变量 字段名数组, 文本型, , "0"<br /> .局部变量 数据开始行, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.过滤器 ＝ “Excel文件|*.xlsx;.xls”<br /> ' 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.文件名 ＝ “”<br /> .如果真 (通用对话框1.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 输入框 (“请输入EXCEL数据开始的行号,行号从1开始。”, “输入行号”, “2”, 数据开始行, 2)<br /> 取excel表名 (通用对话框1.文件名, 表名数组)<br /> 取excel字段名 (数据库连接1, 记录集1, 通用对话框1.文件名, 表名数组 [1], 字段名数组)<br /> 初始化列表 (超级列表框1, 字段名数组)<br /> 记录集1.打开 (“select * from [” ＋ 表名数组 [1] ＋ “$]”, #SQL语句)<br /> .计次循环首 (记录集1.记录数量, n)<br />     处理事件 ()<br />     .如果真 (n ≥ 数据开始行)<br />         索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         .计次循环首 (取数组成员数 (字段名数组), n1)<br />             记录集1.读文本 (n1 － 1, 临时文本)<br />             超级列表框1.置标题 (索引, n1 － 1, 临时文本)<br />         .计次循环尾 ()<br />     .如果真结束<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> 记录集1.关闭 ()<br /> 数据库连接1.关闭 ()

为啥打开xls表格可以，xlsx的打不开。。。

dc244399752

.版本 2

.子程序 _按钮4_被单击
.局部变量 表名数组, 文本型, , "0"
.局部变量 字段名数组, 文本型, , "0"
.局部变量 数据开始行, 整数型
.局部变量 n, 整数型
.局部变量 n1, 整数型
.局部变量 索引, 整数型
.局部变量 临时文本, 文本型

通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “Excel文件|*.xlsx;.xls”
' 通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.文件名 ＝ “”
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束

.如果真 (窗口_取句柄_模糊 (文件_取文件名 (通用对话框1.文件名, 真), “XLMAIN”) ＝ 0)
    打开指定网址 (通用对话框1.文件名)
    程序_延时 (5, 1)
.如果真结束

输入框 (“请输入EXCEL数据开始的行号,行号从1开始。”, “输入行号”, “2”, 数据开始行, 2, )
取excel表名 (通用对话框1.文件名, 表名数组)
取excel字段名 (数据库连接1, 记录集1, 通用对话框1.文件名, 表名数组 [1], 字段名数组)
初始化列表 (超级列表框1, 字段名数组)
记录集1.打开 (“select * from [” ＋ 表名数组 [1] ＋ “$]”, #SQL语句)
.计次循环首 (记录集1.记录数量, n)
    处理事件 ()
    .如果真 (n ≥ 数据开始行)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        .计次循环首 (取数组成员数 (字段名数组), n1)
            记录集1.读文本 (n1 － 1, 临时文本)
            超级列表框1.置标题 (索引, n1 － 1, 临时文本)
        .计次循环尾 ()
    .如果真结束
    记录集1.到下一条 ()
.计次循环尾 ()
记录集1.关闭 ()
数据库连接1.关闭 ()

yzw011

额~~~~！！不打开表格不行吗，，，