从错误的单元格开始访问 VBA 导出到 Excel

Question

I've got a VBA script that exports data to a specific area in excel. I've used the same snippet of code to accomplish this and about halfway through, the data stops going where it's supposed to. If i tell it to start at BA4, it will starts at BA3. If I tell it to start at BD127, it will start at BD 3. I can have whatever field I want, provided it starts at row 3, and I have no idea why. Here is a section that works:

Set rec = db.OpenRecordset("SMG 6 AM-AR")

recCount = rec.Fields.Count
topLeft = "AM4"
botRight = "AR" & recCount
With objXL
    .Visible = False
    Set wb = .Workbooks.Open(mypath)
    On Error Resume Next
    Set ws = wb.Worksheets(2)
    Err.Clear
    On Error GoTo 0
    ws.Range(topLeft, botRight).CopyFromRecordset rec
  End With
  wb.Save

And here is a section that refuses to paste where I instruct it to:

Set rec = db.OpenRecordset("SMG 7 BL - BN 2")

recCount = rec.Fields.Count
topLeft = "BL4"
botRight = "BN" & recCount
With objXL
    .Visible = False
    Set wb = .Workbooks.Open(mypath)
    On Error Resume Next
    Set ws = wb.Worksheets(2)
    Err.Clear
    On Error GoTo 0
    ws.Range(topLeft, botRight).CopyFromRecordset rec
  End With
  wb.Save

Any suggestions are greatly appreciated.

Answer 1

I would create a generic sub that takes parameters. Then call this sub for each of your queries

Something like this - not tested!!!

public sub insertData(objXL as Excel.Application, _ 
                      myPath as String, QueryName as string, _
                      byval startAddress as string)

dim rec as Recordset
Set rec = db.OpenRecordset(QueryName)

dim wb as Excel.Workbook, ws as Excel.worksheet
With objXL
    Set wb = .Workbooks.Open(mypath)
    Set ws = wb.Worksheets(2)
    ws.Range(startAddress).CopyFromRecordset rec
  End With
  wb.Save
End with 

End Sub

Your main sub might look like

Sub InsertAll

....

insertData objXL, "c:\wb1.xlsx", "SMG 6 AM-AR", "AM4"
insertData objXL, "c:\wb2.xlsx", "SMG 7 BL - BN 2", "BL4"

....

End sub

This way you can be sure that every step is really working the same way. And it is much easier to spot errors within the parameter section of each sub-call.