请wwwwb高手帮忙～～，现在写不到excel里了，不知道那有问题，可否帮看一下，多谢

[xwt799023]

请wwwwb高手帮忙～～，现在写不到excel里了，不知道那有问题，可否帮看一下，多谢
oExcel = Create("Excel.Application")
oExcel.Workbooks.Open("C:\dtgj\岗位收入分析表2009.xls")
oExcel.Worksheets("发电企业学生").Activate
OPEN DATABASE A
tishi='数据正在计算中．．'

DIMENSION Ability(9) && 岗位层次
Ability(1) = "01" && 01单位正职

DIMENSION Years(6) && 定义年份
Years(1) = 2004 && 2004年

DIMENSION ExcelRC(2) && 定义EXCEL坐标
ExcelRC(1) = 7 && 第7行开始
ExcelRC(2) = 5 && 第5列开始
&& 循环平均人数（人）年份
FOR n = 1 TO 1

SELECT * FROM 2009srtz WHERE YEAR(hscheday)=Years(n) INTO CURS D1
FOR i=1 TO reccount()
IF !ISBLANK(WORKCODE) AND !ISBLANK(ABILITY) THEN
MESSAGEBOX(TRIM(name)+"的岗位代码与岗位层次不能同时存在，请重新修改数据!",1,"ok")
ELSE
IF !ISBLANK(Ability) THEN && 岗位代码不空
FOR m = 1 TO 1
SELECT * FROM 2009srtz WHERE YEAR(hscheday)=Years(n) AND Ability=Ability(m) INTO CURS D2
FOR J=1 TO reccount()
oExcel.Cells(ExcelRC(1),ExcelRC(2)).Value="'900"
oExcel.Cells(9,9).Value="'900000"
SELE D2
SKIP 1
ENDFOR
ENDFOR
ENDIF

ENDIF && 判断岗位代码与岗位层次不能同时存在结束
SELE D1
SKIP 1
ENDFOR && 循环求数结束
ENDFOR && 循环平均人数（人）年份完毕
CLOSE ALL
@ 1,60 say tishi
oExcel.ActiveWorkbook.Save
oExcel.Workbooks.Close
oExcel.activeworkbook.Close(.F.)
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭

[十豆三]

[Quote=引用 10 楼 acmain_chm 的回复:]
oExcel.ActiveWorkbook.Save
oExcel.Workbooks.Close    这儿你已经把这个工作薄 close 掉了。下一个当然会报错。 去掉下一句。
oExcel.activeworkbook.Close(.F.)
oExcel.Quit
[/Quote]

同意

[wwwwb]

1、你要达到什么目的；；
2、在什么地方出问题。

[xwt799023]

我是要把查出来的数写到excel模板里，现在写不进去，我写个固定值，也写不进去，为什么？

[wwwwb]

贴些记录，举个例子吧

[xwt799023]

oExcel.activeworkbook.Close(.F.) 行报错

总提示：member activeworkbook does not evaluate to an object

[xwt799023]

首先感谢wwwwb非常热心

而且进程里总有excel进程，是不是没有关闭？？

[xwt799023]

还有个对我来说是高级问题：就是有多个相同库，如何合并成一个库，如说下有如下：
文件夹1\a.dbf ,
文件夹2\a.dbf,
文件夹3\a.dbf,
文件夹4\a.dbf,
a.dbf结构是一样的，如何用程序全并成一个与a.dbf相同结构的b.dbf里

[wwwwb]

oExcel.activeworkbook.Close(.F.) 行报错
可以不用这句

oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭
这两句应该可以了，因为止句有问题，没有退出EXCEL，你试试

[xwt799023]

wwwwb 这个问题可以帮我解决下吗？
还有个对我来说是高级问题：就是有多个相同库，如何合并成一个库，如说下有如下：
文件夹1\a.dbf ,
文件夹2\a.dbf,
文件夹3\a.dbf,
文件夹4\a.dbf,
a.dbf结构是一样的，如何用程序全并成一个与a.dbf相同结构的b.dbf里

[wwwwb]

select * into dbf newtt from (
select * from 文件夹1\a.dbf
union all
select * from 文件夹2\a.dbf
union all
select * from 文件夹3\a.dbf
union all
select * from 文件夹4\a.dbf) A

如果一行写不完，注意结尾加；
or
select * into dbf newtt from a.dbf;
union all;
select * from a.dbf;
union all;
select * from a.dbf;
union all;
select * from a.dbf

[ACMAIN_CHM]

oExcel.ActiveWorkbook.Save
oExcel.Workbooks.Close 这儿你已经把这个工作薄 close 掉了。下一个当然会报错。 去掉下一句。
oExcel.activeworkbook.Close(.F.)
oExcel.Quit