Question

请易语言高手都进来看下

请各位高手帮莱鸟解决一下问题。是Excel的导出问题。我怎样写都不可以导出啊。是不是代码那里写错了还是什么原因。请高手们指点。
.版本 2
.支持库 iext
.支持库 spec
.子程序 _导出_被单击
.局部变量 局部_循环记录, 整数型
.局部变量 局部_语句, 文本型
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “EXCEL文件|*.xls”
通用对话框1.默认文件后缀 ＝ “xls”
.如果真 (通用对话框1.打开 () ＝ 假)
返回 ()
.如果真结束
写到文件 (通用对话框1.文件名, #图片1)
.如果真 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 通用对话框1.文件名 ＋ “;DefaultDir=” ＋ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假)) ＋ “;Driver={Driver do Microsoft Excel(*.xls)};DriverId=790;FIL=excel 8.0;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\111.dsn;MaxBufferSize=2048;MaxScanRows=8ageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;”, , ) ＝ 假)
信息框 (“打开数据库失败请检查”, 0, )
返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), 局部_循环记录)
局部_语句 ＝ “insert into [sheet1$]([赛事时间],[月/日/时],[],[主场球队],[比分],[客场球队]) values ('” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 0) ＋ “','” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 1) ＋ “','” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 2) ＋ “','” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 3) ＋ “','” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 4) ＋ “','” ＋ 超级列表框1.取标题 (局部_循环记录 － 1, 5) ＋ “'” ＋ “)”
调试输出 (局部_语句)
.如果真 (外部数据库1.执行 (局部_语句, ) ＝ 假)
信息框 (“导出失败”, 0, )
返回 ()
.如果真结束
.计次循环尾 ()
外部数据库1.关闭 ()
信息框 (“导出成功”, 0, )

需要看源码的可以留个邮箱给我我可以发给你看看。

这个是界面

Answer 1

试试打开数据库的时候 用以下方式
外部数据库.打开 (“ODBC;DBQ=” ＋保存路径＋ “\” ＋ 文件名＋保存类型＋ “;DefaultDir=” ＋文件名＋ “;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=0;SafeTransactions=0;Threads=3;UID=suntechli;UserCommitSync=Yes;”, , )

在写数据的时候可调试输出sql语句是否正确及是否执行成功

Answer 2

我没看到有写出Excel文件的命令