导出到 Excel的 未解决

xo37

前因：直接复制了 老程序的 Excel工作簿1 和 Excel程序1，粘贴到了新程序；
后果：连控件名称、代码都一样的，结果，死活导不出数据；甚至，连最基本的  Excel工作簿1.内容 ＝ 到文本 (i) 都不行；
于是，删除了前因中的两个控件，重新拖了新的进来，就只能导出一次，第二次死活导不出了…… 下次想成功导出，需要在进程里把Microsoft Excel 进程结束掉，然后看运气才能再导出……
正在想 有啥 能试的……
当然，之前的老程序，无论怎样，都是好好的，能导出来……

xo37

  

Excel程序_out.创建 ()
' Excel程序_out.显示 ＝ 假
Excel工作簿_out.置程序 (Excel程序_out)
Excel工作簿_out.打开 (path ＋ “Report\” ＋ cap)
Excel工作簿_out.激活工作簿 ()
Excel工作簿_out.表格序号 ＝ 1
' 程序_延时 (1, 1)
计次循环首 (20, i)
Excel工作簿_out.首单元格 ＝ “A” ＋ 到文本 (i)
Excel工作簿_out.尾单元格 ＝ “A” ＋ 到文本 (i)
Excel工作簿_out.内容 ＝ 到文本 (i)
处理事件 ()
调试输出 (i)
计次循环尾 ()
处理事件 ()
Excel程序_out.显示 ＝ 真
处理事件 ()
Excel工作簿_out.释放 ()
Excel工作簿_out.关闭 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 spec<br /> <br />     Excel程序_out.创建 ()<br />     ' Excel程序_out.显示 ＝ 假<br />     Excel工作簿_out.置程序 (Excel程序_out)<br />     Excel工作簿_out.打开 (path ＋ “Report\” ＋ cap)<br />     Excel工作簿_out.激活工作簿 ()<br />     Excel工作簿_out.表格序号 ＝ 1<br />     ' 程序_延时 (1, 1)<br />     .计次循环首 (20, i)<br />         Excel工作簿_out.首单元格 ＝ “A” ＋ 到文本 (i)<br />         Excel工作簿_out.尾单元格 ＝ “A” ＋ 到文本 (i)<br />         Excel工作簿_out.内容 ＝ 到文本 (i)<br />         处理事件 ()<br />         调试输出 (i)<br />     .计次循环尾 ()<br />     处理事件 ()<br />     Excel程序_out.显示 ＝ 真<br />     处理事件 ()<br />     Excel工作簿_out.释放 ()<br />     Excel工作簿_out.关闭 ()

这个，算玄学不？同一台电脑，老程序，源码，调试，怎么弄怎么行；新程序，看运气。。。

xo37

调试输出 i 的值，会 随机卡在某个值，然后，卡死了……

菜鸟路过

用libxl.dll 试试，不需要环境

菜鸟路过

用libxl.dll 试试，不需要环境

xo37

嗯，实在不行，也只能这样了……