set inFile to choose file with prompt "Please select an Excel workbook file:"
tell application "Finder"
	set theWorkbookFolder to (container of (inFile)) as string
	set theWorkbookFile to (name of (inFile)) as string
end tell
set destinationPath to theWorkbookFolder & theWorkbookFile
display alert destinationPath


tell application "Microsoft Excel"
	open inFile
	tell active workbook
		save active workbook as Excel98to2004 file format in destinationPath
	end tell
end tell