Hi All, I am trying to transfer a table with more than 20,000 records from Access 2003 to Excel 2003, The code I'm using within VB goes like this:
Private Sub Allstock_excel_Click()
Dim filename As String
filename = "D:Automotive_RaporeArchivesAllstockReportAllstock_" & Format(Now, "DD-MM-YYYY-HH-MM-00") & ".xls"
DoCmd.TransferSpreadsheet acExport, 5, "tblAllstock", filename
If MsgBox("Transfer Complete." & vbCrLf & vbCrLf & "Would you like to open the file now?", vbYesNo) = vbNo Then Exit Sub
Set obj = CreateObject("Excel.Application")
Set obook = obj.workbooks.Open(filename)
obj.Visible = True
The issue i am facing is that it wont let me transfer more than 16384 records into excel. Is there any coding or modifying the existing coding so I can transfer over that mark? Thanks for your help.
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!