Error when opening a 2007 template saved in 2003 format from a mac

[Mover10]

Okay, I will try and explain this as well as I can. I create reports for
dealerships and until last week, I was using Office 2003. My office has
recently upgraded, but most of the field dealerships are still using office
2003. I created my Macro to create the report and then save the file as an
..xls file, thinking it would be compatible. It unfortunately corrupts the
file when trying to read it on an office 03 machine. I have tried setting
the template up as an 03 document as well, but that failed epically. The
compatibility patch, while a WONDERFUL idea, is not an option as I have NO
pull in these dealerships and in no way control their actions (Also, most of
them can't even spell compatibility, much less install the patch). So I need
to know if it is even POSSABLE to save a file in 03 readable formats from a
macro. Anybody know?

 

[Pesach Shelnitz]

Hi,

With the following Excel 2007 macro saved in the module of an Excel 2007
macro-enabled file, I can convert Excel 2007 workbooks to functional Excel
97-2003 workbooks. It may give you what you need, or at least demonstrate
that this conversion can be done in VBA.

Sub SaveAsOldExcel()
Const Error_ActionCanceled = 1004
Dim fullName As String
Dim k As Integer

With Application.FileDialog(msoFileDialogFilePicker)
If .Show Then
fullName = .SelectedItems(1)
Else
MsgBox "You didn't select a file to open."
Exit Sub
End If
End With
k = InStr(1, fullName, ".xlsx", vbTextCompare)
If k = 0 Then
MsgBox "The file selected does not have the .xlsx extension."
Exit Sub
End If
Workbooks.Open fullName
fullName = Left(fullName, Len(fullName) - 1)
With Workbooks(Workbooks.Count)
On Error Resume Next
.SaveAs Filename:=fullName, FileFormat:=xlExcel8, _
ReadOnlyRecommended:=False, _
CreateBackup:=False
If Err.Number = Error_ActionCanceled Then
MsgBox "Saving the file was canceled."
End If
On Error GoTo 0
.Close
End With
End Sub

 

[Mover10]

Thanks Pesach!

It wasn't EXACTLY what I was looking for, but it gave me the direction I
needed to go to get there and fix the problem. Thanks a million.