I use the following code to save file in Excel 5.
lcx = Getfile('xls')
lcfname = JUSTFNAME(lcx)
lcsave = FULLPATH(CURDIR()) +lcfname + '_5.xls'
loExcel = CREATEOBJECT("Excel.Application")
lowb = loExcel.Workbooks.Open(lcx)
lowb.SaveAs(lcsave, 39)
loexcel.Quit()
loexcel = null
No comments:
Post a Comment