Excel导入超级列表，根据列数创建数据库

cbh888

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
数据库字段数	整数型

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

通用对话框_公用.类型 ＝ 0
如果真 (通用对话框_公用.打开 () ＝ 假)
返回 ()
' _按钮1_被单击 ()
返回 ()

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

变量名	类 型	静态	数组	备 注
列数	整数型
m	整数型
取行数	整数型
n	整数型
列计次	整数型
行计次	整数型
行	整数型

_启动窗口.Excel程序1.创建 ()
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
_启动窗口.Excel工作簿1.激活工作簿 ()
_启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框_公用.文件名)
_启动窗口.Excel工作簿1.表格序号 ＝ 1
计次循环首 (取文本长度 ( #字母表 ), 列数)
_启动窗口.Excel工作簿1.首单元格 ＝ 取文本中间 ( #字母表, 列数, 1) ＋ “1”
_启动窗口.Excel工作簿1.尾单元格 ＝ 取文本中间 ( #字母表, 列数, 1) ＋ “1”
如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)
m ＝ 超级列表框.插入列 (, , 100, , , )
超级列表框.置列标题 (m, _启动窗口.Excel工作簿1.内容)
跳出循环 ()

计次循环尾 ()
调试输出 (m, 列数)
' ----------以上取出要创建的数据库的字段数----------
数据库字段数 ＝ 列数 － 1
计次循环首 (500, 取行数)
_启动窗口.Excel工作簿1.首单元格 ＝ “a” ＋ 到文本 (取行数 ＋ 1) ' Excel有列标题所以这里加1
_启动窗口.Excel工作簿1.尾单元格 ＝ _启动窗口.Excel工作簿1.首单元格
如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)
n ＝ 超级列表框.插入表项 (, _启动窗口.Excel工作簿1.内容, , , , )
超级列表框.保证显示 (n)
跳出循环 ()

计次循环尾 ()
' ---------以上取要创建的数据库的记录数------------
调试输出 (n, 取行数)
n ＝ 取行数
m ＝ 数据库字段数
计次循环首 (n, 行计次)
计次循环首 (m, 列计次)
Excel工作簿1.首单元格 ＝ 取文本中间 ( #字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1) ' Excel有列标题所以这里加1
Excel工作簿1.尾单元格 ＝ 取文本中间 ( #字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1)
超级列表框.置标题 (行计次 － 1, 列计次 － 1, Excel工作簿1.内容)
计次循环尾 ()
计次循环尾 ()
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
返回 ()

子程序名	返回值类型	公开	备 注
_创建数据库导入按钮_被单击

变量名	类 型	静态	数组	备 注
数据库名	文本型
试验数据库	字段信息		100	这里可以取足够用的字段
计次	整数型
名称	文本型		0
大计次	整数型

计次循环首 (超级列表框.取列数 (), 计次)
加入成员 (名称, 超级列表框.取列标题 (计次 － 1))
计次循环尾 ()
计次循环首 (取数组成员数 (名称), 计次)
试验数据库 [计次].名称 ＝ 名称 [计次]
试验数据库 [计次].类型 ＝ #文本型
试验数据库 [计次].最大文本长度 ＝ 80
计次循环尾 ()
调试输出 (创建 (取运行目录 () ＋ “试验888”, 试验数据库))
如果 (打开 (取运行目录 () ＋ “试验888”, , , , , , , ) ＝ 真)
调试输出 (取字段数 ())
计次循环首 (超级列表框.取表项数 (), 大计次)
加记录 ()
计次循环首 (取字段数 (), 计次)
调试输出 (写 (计次, 超级列表框.取标题 (大计次 － 1, 计次 － 1)))
计次循环尾 ()
跳过 ()
计次循环尾 ()
关闭 ()


返回 ()

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

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 数据库字段数, 整数型<br /> <br /> .子程序 _打开按钮_被单击<br /> <br /> 通用对话框_公用.类型 ＝ 0<br /> .如果真 (通用对话框_公用.打开 () ＝ 假)<br /> 返回 ()<br /> .如果真结束<br /> ' _按钮1_被单击 ()<br /> <br /> 返回 ()<br /> <br /> <br /> .子程序 _导入按钮_被单击<br /> .局部变量 列数, 整数型<br /> .局部变量 m, 整数型<br /> .局部变量 取行数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 列计次, 整数型<br /> .局部变量 行计次, 整数型<br /> .局部变量 行, 整数型<br /> <br /> _启动窗口.Excel程序1.创建 ()<br /> _启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)<br /> _启动窗口.Excel工作簿1.激活工作簿 ()<br /> _启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框_公用.文件名)<br /> _启动窗口.Excel工作簿1.表格序号 ＝ 1<br /> .计次循环首 (取文本长度 (#字母表), 列数)<br /> _启动窗口.Excel工作簿1.首单元格 ＝ 取文本中间 (#字母表, 列数, 1) ＋ “1”<br /> _启动窗口.Excel工作簿1.尾单元格 ＝ 取文本中间 (#字母表, 列数, 1) ＋ “1”<br /> .如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)<br /> m ＝ 超级列表框.插入列 (, , 100, , , )<br /> 超级列表框.置列标题 (m, _启动窗口.Excel工作簿1.内容)<br /> .否则<br /> 跳出循环 ()<br /> <br /> .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (m, 列数)<br /> ' ----------以上取出要创建的数据库的字段数----------<br /> 数据库字段数 ＝ 列数 － 1<br /> <br /> .计次循环首 (500, 取行数)<br /> _启动窗口.Excel工作簿1.首单元格 ＝ “a” ＋ 到文本 (取行数 ＋ 1) ' Excel有列标题所以这里加1<br /> <br /> _启动窗口.Excel工作簿1.尾单元格 ＝ _启动窗口.Excel工作簿1.首单元格<br /> <br /> .如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)<br /> n ＝ 超级列表框.插入表项 (, _启动窗口.Excel工作簿1.内容, , , , )<br /> 超级列表框.保证显示 (n)<br /> .否则<br /> 跳出循环 ()<br /> <br /> .如果结束<br /> <br /> .计次循环尾 ()<br /> ' ---------以上取要创建的数据库的记录数------------<br /> 调试输出 (n, 取行数)<br /> <br /> <br /> <br /> n ＝ 取行数<br /> <br /> m ＝ 数据库字段数<br /> .计次循环首 (n, 行计次)<br /> <br /> .计次循环首 (m, 列计次)<br /> <br /> Excel工作簿1.首单元格 ＝ 取文本中间 (#字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1) ' Excel有列标题所以这里加1<br /> Excel工作簿1.尾单元格 ＝ 取文本中间 (#字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1)<br /> 超级列表框.置标题 (行计次 － 1, 列计次 － 1, Excel工作簿1.内容)<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> Excel工作簿1.关闭 ()<br /> Excel工作簿1.释放 ()<br /> <br /> Excel程序1.退出 ()<br /> Excel程序1.释放 ()<br /> 返回 ()<br /> <br /> <br /> .子程序 _创建数据库导入按钮_被单击<br /> .局部变量 数据库名, 文本型<br /> .局部变量 试验数据库, 字段信息, , "100", 这里可以取足够用的字段<br /> .局部变量 计次, 整数型<br /> .局部变量 名称, 文本型, , "0"<br /> .局部变量 大计次, 整数型<br /> <br /> <br /> .计次循环首 (超级列表框.取列数 (), 计次)<br /> 加入成员 (名称, 超级列表框.取列标题 (计次 － 1))<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (名称), 计次)<br /> 试验数据库 [计次].名称 ＝ 名称 [计次]<br /> 试验数据库 [计次].类型 ＝ #文本型<br /> 试验数据库 [计次].最大文本长度 ＝ 80<br /> .计次循环尾 ()<br /> 调试输出 (创建 (取运行目录 () ＋ “试验888”, 试验数据库))<br /> .如果 (打开 (取运行目录 () ＋ “试验888”, , , , , , , ) ＝ 真)<br /> 调试输出 (取字段数 ())<br /> .计次循环首 (超级列表框.取表项数 (), 大计次)<br /> 加记录 ()<br /> .计次循环首 (取字段数 (), 计次)<br /> 调试输出 (写 (计次, 超级列表框.取标题 (大计次 － 1, 计次 － 1)))<br /> .计次循环尾 ()<br /> 跳过 ()<br /> .计次循环尾 ()<br /> 关闭 ()<br /> .否则<br /> <br /> .如果结束<br /> 返回 ()

excl完全自主导入-4.rar (2.5 KB, 下载次数: 181)

2014-10-11 23:11 上传

点击文件名下载附件
阅读权限: 10
下载积分: 精币 -2 枚

996939439

学习，谢谢楼主分享

262818815

打开文件破损

流星雨季

学习了，谢谢楼主分享

gsjjlm

看看怎么使用

ZPC930726

看看怎么使用

王健0324

正在学习中啊.!

lqylbh

正需要这些个，学习一下

zhuihun

正需要这些个，学习一下

倾风听雨声

正需要这些个，学习一下

xi1516

下来用用