oExcel = CreateObject("Excel.Application")
WITH oExcel
.Workbooks.Open(SYS(5)+SYS(2003)+"\export.MHTML")
.ActiveSheet.UsedRange.Select
.Selection.Columns.AutoFit
.DisplayAlerts = .F.
.ActiveWorkbook.Saveas(SYS(5) + SYS(2003) + "\export.DBF", 11) && 另存为DBF格式文件
.ActiveWorkbook.Close
.DisplayAlerts = .T.
.Quit
ENDWITH
RELEASE oExcel