asked on

Export Multiple Queries to excel and append to one sheet

access 2003
excel 2003
vba function needed
workbook name : C:\Program Files\MyWork\MyResults.xls
I have about 15 queries to append to a worksheet("ResultData")

All with various Names:
Export Status Codes
Export Red Codes
Export Resgualr Codes
etc..

But these names I could put in a text file
to loop through?

I need a VBA routine to append each query and its field headers to append to each other.

Thanks
fordraiders

Rey Obrero (Capricorn1)

are the queries returning different number of columns?

you can start with these codes

Dim db As DAO.Database, rs As DAO.Recordset
Dim i As Integer, j As Integer
Dim ssql As String, xlFile As String
Dim xlObj As Object
Dim Sheet As Object, rowCnt as integer

Set db = DBEngine.Workspaces(0).Databases(0)

Set xlObj = CreateObject("Excel.Application")
        xlObj.workbooks.Open ("C:\Program Files\MyWork\MyResults.xls")
        Set rs = db.OpenRecordset("Export Status Codes")
    
Set Sheet = xlObj.ActiveWorkbook.Sheets("ResultData")
xlObj.Visible = True
'copy the headers
Dim iRow, iCol
iRow = 1
    For iCol = 0 To rs.Fields.Count - 1
        Sheet.cells(iRow, iCol + 1).Value = rs.Fields(iCol).Name
    Next

Sheet.range("A2").CopyFromRecordset rs  'this copy just the data



'check how many rows where  populated
rowCnt=Sheet.usedrange.rows.count
 
 Set rs = db.OpenRecordset("Export Red Codes")

iRow = rowCnt + 1
 
    For iCol = 0 To rs.Fields.Count - 1
        Sheet.cells(iRow, iCol + 1).Value = rs.Fields(iCol).Name
    Next

Sheet.range("A" & iRow + 1).CopyFromRecordset rs  'this copy just the data

'and so on



rs.Close
Set Sheet = Nothing
Set xlObj = Nothing

Open in new window

* Note : you can place the names of the queries in an Array or in a table

Rey Obrero (Capricorn1)

* save the name of the queries in a table "tblQueries" with Field Name "QueryName"
use this code

Dim db As DAO.Database, rs As DAO.Recordset, rsQ As DAO.Recordset
Dim strQry As String
Dim xlObj As Object
Dim Sheet As Object, rowCnt As Integer
Dim iRow, iCol

Set db = DBEngine.Workspaces(0).Databases(0)

Set xlObj = CreateObject("Excel.Application")
    xlObj.Workbooks.Open ("C:\Program Files\MyWork\MyResults.xls")
    
    Set Sheet = xlObj.ActiveWorkbook.Sheets("ResultData")
    rowCnt = 0
    
    
    Set rsQ = db.OpenRecordset("tblQueries")
    rsQ.MoveFirst
    
    Do Until rsQ.EOF
        iRow = rowCnt + 1
        strQry = rsQ!queryName
        
        Set rs = db.OpenRecordset(strQry)
 
 'copy the headers
        
            For iCol = 0 To rs.Fields.Count - 1
                Sheet.cells(iRow, iCol + 1).Value = rs.Fields(iCol).Name
            Next
  'this copy just the data
            Sheet.range("A" & iRow + 1).CopyFromRecordset rs

'check how many rows where  populated
            rowCnt = Sheet.usedrange.rows.Count
        
        rsQ.MoveNext
    Loop

'save the file
    xlObj.ActiveWorkbook.Save
    
rsQ.Close
rs.Close
Set Sheet = Nothing
xlObj.Quit
Set xlObj = Nothing

Open in new window

Fordraiders

ASKER

no, its the same fields

Rey Obrero (Capricorn1)

you can use a union query then export the result, but i'll prefer using the vba codes posted at http:#a36500453

did you try it?

Fordraiders

ASKER

gonna try now...Thanks the second piece of code http:#a36500453

Fordraiders

ASKER

cap, Error here

Do Until rsQ.EOF
iRow = rowCnt + 1
strQry = rsQ!queryName

Set rs = db.OpenRecordset(strQry) <--- name not available error 3265 Item not found in this collection.
I have 4 querynames in the table
but strQry = ""

Rey Obrero (Capricorn1)

what is the name of the field in your table "tblQueries"

Fordraiders

ASKER

"UnsolicatedQueries"

Rey Obrero (Capricorn1)

can you upload a copy of the db (.mdb version )

Fordraiders

ASKER

it has links to network tables..?

Fordraiders

ASKER