导出到excel的问题！

lijiawy

Private Sub cmdDaoru_Click()
     Workbooks.Open "book1.xls"
       ActiveSheet.Range("A1").Value = "lijiawy"
       Workbooks("book1.XLS").Close SaveChanges:=True
End sub

上述代码没有得到应有的结果，但不出错，如果把第一行改为
Workbooks.Open "c:\my documents\book1.xls"
也就是把相对路径改为绝对路径后就能把数据导出到excel，为什么相对路径不行呢？
（数据库和excel文件在同一目录c:
\my documents下）

还有一个问题，就是执行了上述代码后必须关掉access才能正常访问excel，有没有办法不
关掉access还能正确访问excel


谢谢各位大侠了

teddibear

对,相对路径是不行的(微软较蠢).可以用currentproject.path & "\book1.xls"
不能访问EXCEL可能是因为没有正确释放EXCEL对象变量. 你怎么调用的子程序? 给多一点代码看看.

lijiawy

我就是用上面这段代码调用的，只是在引用里选取了excel9.0对象

teddibear

我试了一下，打开excel没有问题啊？xp+2000.  不过如果要输出很多数据到excel,最好创建excel对象变量。吴斑竹在楼上有一个很好的帖子，找找看吧。