export a large file to excel

[Swifey]

I currently use the subsequent code to export all our queries in an Excel format to a directory which works perfectly.
My problem is that this time my file contains 25404 rows and when I run my code I get a message “too many rows to output” – How can I get around this problem?

Option Compare Database

'------------------------------------------------------------
' Run Code
'
'------------------------------------------------------------
Function RunCode()
On Error GoTo RunCode_Err

    DoCmd.OutputTo acQuery, "Q6_Final Now SoldTo", "MicrosoftExcelBiff8(*.xls)", "\\cmq0134\\Customer Relationship Management\Prospects\Data\Upgraded.xls", False, "", 0
    
    '
RunCode_Exit:
    Exit Function

RunCode_Err:
    MsgBox Error$
    Resume RunCode_Exit

End Function

Many Thanks

 

[Norie]

My problem is that this time my file contains 25404 rows and when I run my code I get a message “too many rows to output” – How can I get around this problem?

What version of Excel do you have? AFAIK from at least XL97 on the limit of rows is 65536.

Why not try the TransferSpreadsheet method rather than OutputTo?

 

[Swifey]

I am using XP. Thank you I will try your suggestion

Regards