Office中国论坛/Access中国论坛

标题: 导出到excel的问题！ [打印本页]

作者: lijiawy 时间: 2002-10-15 06:10
标题: 导出到excel的问题！
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 时间: 2002-10-16 14:57
对,相对路径是不行的(微软较蠢).可以用currentproject.path & "\book1.xls"
不能访问EXCEL可能是因为没有正确释放EXCEL对象变量. 你怎么调用的子程序? 给多一点代码看看.

作者: lijiawy 时间: 2002-10-17 02:45
我就是用上面这段代码调用的，只是在引用里选取了excel9.0对象

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)