mdb导出到excel有时候只有表单！

121044246

$SaveExcel = FileSaveDialog("选择保存Excel路径", "", "Excel文件 (*.xls)", 2 + 16, "报价单.xls")
        If @error Then
        Else
                $addfld = ObjCreate("ADODB.Connection")
                $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
                $sQuery = "SELECT * FROM " & $tblname
                $RS = ObjCreate("ADODB.Recordset")
                $RS.ActiveConnection = $addfld
                $RS.open($sQuery)
                Local $intCount = $RS.Fields.Count
                $oExcel = _ExcelBookNew(1) ; Create an Excel Object
                $oExcel.WorkBooks.Add ; Add a new workbook
                For $i = 1 To $intCount Step +1
                        $oExcel.ActiveWorkBook.ActiveSheet.Cells(1, $i).value = $RS.Fields($i - 1).name
                Next
                $oExcel.ActiveWorkBook.ActiveSheet.Cells(2, 1).CopyFromRecordset($RS) ; Fill a cell
                $oExcel.Columns.AutoFit
                $oExcel.ActiveWorkBook.Saved = 1 ; Simulate a save of the Workbook
;~                 _ExcelColumnDelete($oExcel, 1, 1) ;删除第 1 列, 且仅删除 1 列
                _ExcelBookSaveAs($oExcel, $SaveExcel, "xls", 0, 1)
                _ExcelBookClose($oExcel)
                $oExcel = 0
                If MsgBox(64 + 1, "导出成功！", "是否打开报表？") = 1 Then ShellExecute($SaveExcel)
        EndIf

导出之后有时候正常，有时候就只有表单，如图

chzj589

$oExcel = _ExcelBookNew(1) ; Create an Excel Object
改为试试
$oExcel = _ExcelBookNew(0) ; Create an Excel Object

121044246

回复 2# chzj589


    一样的，这个试过了。现在解决了。。
$oExcel.WorkBooks.Add ; Add a new workbook
把这行删了。每次都成功