助Access调用Excel表格输出的问题。

nbabn

我用Access调用Excel，将Access里的数据输出到Excel的表格中，再打印出来，问题如下：
有一命令，代码如下：
Private Sub 命令8_Click()
　　Dim oapp As Excel.Application, oappwork As Excel.Workbook, oappwork_Sheet1 As Excel.Worksheet
　　Set oapp = CreateObject("Excel.Application")
　　oapp.Visible = True
　　Set oappwork = oapp.Workbooks.Open("c:\book1.xls")
　　Set oappwork_Sheet1 = oappwork.Worksheets("Sheet1")
　　oappwork_Sheet1.Cells(2, 1) = "AAA"
　　oappwork_Sheet1.Cells(2, 2) = "BBB"
　　Range("A2:B2").Select
　　…………（给单元格加边框代码）
　　oappwork_Sheet1.PrintOut
　　oappwork.Close (False)
　　oapp.Quit
　　Set oappwork_Sheet1 = Nothing
　　Set oappwork = Nothing
　　Set oapp = Nothing
End Sub
此代码第一次执行没有问题，但运行后Excel并没有完全退出，系统中还存在一个Excel的进程，如果不退出Access再次执行此代码，就会出现如下错误：
运行时错误'1004',方法'Range'作用于对象'_Global'时失败
代码停在Range("A2:B2").Select这一行，这是在Excel中选定单元格的，然后再给选定单元格加边框，代码在此未给出。
请问这个错误是由于什么引起的，为什么oapp.Quit并没有结束Excel进程，用Set oapp = Nothing释放变量也不能结束Excel进程，直到Access关闭Excel进程才终止。

goodidea

Private Sub 命令8_Click()
on error goto err_proc
　　Dim oapp As Excel.Application, oappwork As Excel.Workbook, oappwork_Sheet1 As Excel.Worksheet
　　Set oapp = CreateObject("Excel.Application")
　　oapp.Visible = True
　　Set oappwork = oapp.Workbooks.Open("c:\book1.xls")
　　Set oappwork_Sheet1 = oappwork.Worksheets("Sheet1")
　　oappwork_Sheet1.Cells(2, 1) = "AAA"
　　oappwork_Sheet1.Cells(2, 2) = "BBB"
　　oappwork_Sheet1.Range("A2:B2").Select
　　…………（给单元格加边框代码）
　　oappwork_Sheet1.PrintOut
err_proc:
      on error resume next
　　oappwork.Close (False)
　　oapp.Quit
　　Set oappwork_Sheet1 = Nothing
　　Set oappwork = Nothing
　　Set oapp = Nothing
End Sub

nbabn

刚才试了一下，没有再提示出错，但还存在一个问题
Range("A2:B2").Select这一行为了让代码简单，定成了固定的单元格，但实际应用中是根据数据库记录多少来选定的。如：Range(a & ":" & b).Select，选定单元格在变动，但如果用了on error resume next就会跳过这一行，要加边框的单元格就会选错。
请问大大还有没有更好的办法。

[此贴子已经被作者于2003-9-3 0:07:16编辑过]

NeilChen

activesheet.Usedrange.select

aperyxwang

range{"a2:b2").select  '數據起始行
selection.end(xldown).select

nbabn

activesheet.Usedrange.select
这个不行，会提示错误，而且好象选定的是所有的所用单元格，但有些单元格是不要选的，比喻标题行。
range("a2:b2").select  '數據起始行
selection.end(xldown).select
这个和oappwork_Sheet1.Range("A2:B2").Select是一样的，同样是这一行出错。
第一次执行都没问题，关键是那个EXCEL进程并没有退出，再次调用单元格选定方法就会出错。

cnwang

http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&id=6568&replyID=33241&star=1&skin=0

nbabn

问题己解决，原因就在那个选定单元格的位置上，后面的退出程序和释放变量怎么写都没问题，主要是这一行要改：Range("A2:B2").Select，改成oappwork_Sheet1.Range("A2:B2").Select就行了。

goodidea己经在回复的代码里改了，只是当时没注意到。 ： ）


谢谢各位的帮助。

[此贴子已经被作者于2003-9-4 19:53:56编辑过]