Access 2003 to 2010

[billmark]

Hi
I've the following statements in access 2003 and now converted to access 2010. When running this, it prompts the error message (also I've changed excel 2003 to 2010)
'Excel cannot open the file because the file format or file extension is not valid'

Please advise how to fix.

QUOTE
Private Sub selected_clents_by_10_Combinedbyn_Click()
If Me.Xlsxreport = False Then
DoCmd.OpenReport "selected clients by 10 Combined", acViewPreview

Else
DoCmd.OutputTo acOutputReport, "selected clients by 10 Combined", "Microsoft Excel", "C:\Fndsby10Combined.xlsx", True

End If
End Sub
UNQUOTE
Regards
Bill

 

[strive4peace]

perhaps you need to install Service Packs

 

[HiTechCoach]

Hi
I've the following statements in access 2003 and now converted to access 2010. When running this, it prompts the error message (also I've changed excel 2003 to 2010)
'Excel cannot open the file because the file format or file extension is not valid'

Please advise how to fix.

Private Sub selected_clents_by_10_Combinedbyn_Click()
If Me.Xlsxreport = False Then
   DoCmd.OpenReport "selected clients by 10 Combined", acViewPreview
  
Else
   DoCmd.OutputTo acOutputReport, "selected clients by 10 Combined", "Microsoft Excel", "C:\Fndsby10Combined.xlsx", True
 
End If
End Sub

Regards
Bill

Bill,

TIP: To add tha code tag click the # button on the left side of the Quote button.


"Microsoft Excel" is the older format. I find it better to use the constant acFormatXLSX . If you must you the text then use "Microsoft Excel Workbook (*.xlsx)"


To upgrade the code to the new XLS foramt try:

Private Sub selected_clents_by_10_Combinedbyn_Click()
If Me.Xlsxreport = False Then
   DoCmd.OpenReport "selected clients by 10 Combined", acViewPreview
  
Else
   DoCmd.OutputTo acOutputReport, "selected clients by 10 Combined", acFormatXLSX, "C:\Fndsby10Combined.xlsx", True
 
End If
End Sub