访问插入在Excel下面打开的查询在现有数据下面

Question

好的，所以我有一个带有数据的Excel文件。此数据来自已从Access数据库手动复制的查询。由于每天都必须完成，所以我们希望自动完成。

我已经在Access数据库内部有VBA代码，它打开查询并将它写入到右表的Excel文件中。 然而，它的工作原理当我把一个静态的范围插入所以它实际上只是覆盖我说的范围：

Dim rst As DAO.Recordset 
Dim ApXL As Object 
Dim xlWBk As Object 
Dim xlWSh As Object 

Set rst = CurrentDb.OpenRecordset("Query name") 

Set ApXL = CreateObject("Excel.Application") 

ApXL.Application.ScreenUpdating = False 
ApXL.Visible = True 

Set xlWBk = ApXL.Workbooks.Open("C:\blabla.xlsm", True, False) 
Set xlWSh = xlWBk.Worksheets(1) 

xlWSh.Activate 

xlWSh.range("A1341").CopyFromRecordset rst 

xlWBk.Save 
xlWBk.Close False 

ApXL.Quit 

rst.Close 

Set rst = Nothing 

通知的xlWSh.range（“A1341”）CopyFromRecordset RST。 它只是粘贴来自这一行的查询，因为我知道这是第一个空行。

我已经尝试过很多其他的代码，但我总是得到错误：

TheLastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 
=> Error 424: Object required 

Dim MyRange As range 
Dim lngLastRow As Long 
Set MyRange = xlWSh.range(strColum & "1") 
lngLastRow = xlWSh.Cells(65536, MyRange.Column).End(xlUp).Row 
=> Compilation-error on Dim MyRange As range: user-defined type not defined 

Dim MyRange As Object 
Dim lngLastRow As Long 
Set MyRange = xlWSh.range(strColum & "1") 
lngLastRow = xlWSh.Cells(65536, MyRange.Column).End(xlUp).Row 
=> Error 1004: Application-defined or object-defined error 

With xlWBk.Sheets("Sheetname") 
lastrow = .range("A" & .Rows.Count).End(xlUp).Row 
=> Error 1004: Application-defined or object-defined error 
End With 

With xlWSh 
lastrow = .Cells.Find(What:="*", After:=.range("A1"), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
=> Error 9: Subscript out of range 
End With 

所以我不知道了该怎么做。 唯一的其他选择是将整个工作表作为List或Array或Table读入Access数据库，然后执行.Count或其他操作，但插入到lastRow + 1或firstEmptyRow中应该更快，更易于编程。

在此先感谢！

Answer 1

问题是，Access不知道Excel常量的任何内容，如xlUp,xlByRows等等（直到您添加对excel库的引用）。

有2种方式给你：

1）进入TOOLS->参考并添加引用Microsoft Excel中1x.0对象库（版本可能会有所不同）

2）将所有excel常量更改为它们的值（例如，将SearchOrder:=xlByRows更改为SearchOrder:=1等等）：

• xlUp等于-4162
• xlByRows eqals到1
• xlPrevious eqals到2
• xlCellTypeLastCell等于11

这里是用Excel常量的值链接：xlConstants（或另一种方式来确定常量值 - 是在中使用此行EXCEL VBA： MsgBox xlCellTypeLastCell）