作者：乔山办公网日期：
返回目录：excel表格制作
数据导入xls：可以利用组件“外部数据库7a686964616fe59b9ee7ad94337”，做一个按钮，在点击按钮子程序中输入下面的代码（提示：以下方法看似复杂，只需要整一遍，写成子程序，以后所有程序均可直接调用）:
外部数据库1.打开()
调试输出(外部数据库.取连接文本())
1、运行程序，点击按钮；2、选择数据源，在DNS名称位置选择“新建”；3、创建的新的数据源，选择Microsoft Excel Driver(*.xls,*.xlsx,*.xlsb)，点击下一步；4、点击浏览—桌面，文件名写123，点击保存，点击下一步，点击完成；5、在ODBC Microsoft Excel安装窗口点击“选择工作簿”，找到你想打开的excel表，点击确定；6、在ODBC Microsoft Excel安装窗口点击确定；7、在选择数据源窗口点击确定，剩下全部点击确定；8、你会发现会出现调试文本，是“ODBC;DBQ=C:\USERS\ADMINISTRATOR\DESKTOP\户籍地关联.xlsx;DefaultDir=C:\USERS\ADMINISTRATOR\DESKTOP;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;FILEDSN=C:\Users\Administrator\Desktop\123.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”
这就是以数据库方式连接excel的方法，这个文本就是连接使用的信息，我已经将上述文本写成了子程序，直接写入参数excel文件路径即可连接，写入方式需要用sql语言（外部数据库1.执行(sql插入语句)）：
.版本 2
.子程序 连接Excel, 逻辑型
.参数 excel路径, 文本型
.判断开始 (外部数据库_Excel.打开 (“ODBC;DBQ=” ＋ excel路径 ＋ “;DefaultDir=” ＋ 取文本左边 (excel路径, 倒找文本 (excel路径, “\”, , 假)) ＋ “;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)
返回 (假)
.默认
返回 (真)
请参zhidao阅以下版文章权
http://jingyan.baidu.com/article/656db91898516de381249cb7.html
你少了1条命令：Excel工作簿1.激活表格 ()
给你看一个例子：
.版本 2
.支持库 eExcel2000
.子程序copy _按钮取A1_被单击
.如果真 (通用对话框1.打开 ())
Excel程序1.创建 ()
Excel工作簿百1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (通用对话框1.文件名)
Excel工作簿1.表格序号 ＝ 2 ' 即sheet2
Excel工作簿1.激活表格 ()
Excel程序1.显示 ＝ 真
Excel工作簿1.首单元格 ＝ “A1”
Excel工作簿1.尾单元格 ＝ “A1”
编辑框取出的内容度.内容 ＝ Excel工作簿1.内容
.如果真结束