如題，bcb通過ole匯出xls，電腦安裝的是excel2007，怎么樣匯出excel2000-2003的格式？
uj5u.com熱心網友回復：
上代碼Variant Exout,Wbout,Shout1;
Variant Rangeout;
Exout=Variant::CreateObject("Excel.Application");
Exout.PG("workbooks").FN("add",1);
Wbout=Exout.PG("ActiveWorkBook");
Shout1=Wbout.PG("ActiveSheet");
Shout1.PG("Cells",1,1).PS("Value",t1.c_str() );
Shout1.PG("Cells",1,2).PS("Value",t2.c_str() );
Shout1.FN("SaveAs","c:\\test.xls" );
Wbout.PR("Close");
Exout.OleFunction("Quit");
可以匯出xls檔案，excel2007也能打開，但后面的應用只能支持excel97-2003版本的xls格式，識別不了。如果在安裝excel2003的電腦上匯出的xls就沒問題。
我在excel2007下記錄了“另存為excel97-2003”時的宏如下：
Exout.PG("ActiveWorkbook.SaveAs Filename="C:\Users\pkgd3\Documents\Book2.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
里面有一個輸出格式的引數“FileFormat:=xlExcel8”，
但在BCB6下如何實作呢？
uj5u.com熱心網友回復：
呼叫妖哥
uj5u.com熱心網友回復：
OLE專業戶來也!!! 你保存的時候指定一下檔案格式就行了.String strFileName = "C:\\Users\\pkgd3\\Documents\\Book2.xls";
Exout.PG("ActiveWorkbook").FN("SaveAs",
WideString(strFileName),
56, // FileFormat:=xlExcel8,
"", // Password:="",
"", // WriteResPassword:="", _
false, // ReadOnlyRecommended:=False,
false // CreateBackup:=False
);
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/143406.html
標籤：基礎類
上一篇：mfc 函式呼叫報錯問題
下一篇：硬碟的ATA Command操作