S
Skip Bisconer
I have tried all the code I understand from this newsgroup and nothing seems
to work for me. I am wanting to transfer a select query to Excel format then
open the file in Excel from access. I have a command button that does the
spreadsheet transfer but I don't know enough about the code I see on this
site to open the file in Excel. Could some give me the code to follow this
statement?
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Skip-Customer
Monitor By Quarters", _
"C:\Documents and Settings\Milo E Bisconer\My Documents\Ben's
Business\TestExport24MonthHistory.xls"
Exit_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub
to work for me. I am wanting to transfer a select query to Excel format then
open the file in Excel from access. I have a command button that does the
spreadsheet transfer but I don't know enough about the code I see on this
site to open the file in Excel. Could some give me the code to follow this
statement?
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Skip-Customer
Monitor By Quarters", _
"C:\Documents and Settings\Milo E Bisconer\My Documents\Ben's
Business\TestExport24MonthHistory.xls"
Exit_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub