俺是看TR老大早在2004年就提出的快速匯出Execel的方法。http://borland.mblogger.cn/tr/posts/5722.aspx
但是執行的時候會報錯,說“不支持此介面。。。”等等
請問這是為啥子嘛?
void __fastcall TForm1::Button5Click(TObject *Sender)
{
String ConStr;
String SQL;
int STick, ETick;
RangePtr R;
ExcelWorksheet2->Activate();
ConStr="ODBC;DSN=test;UID='sa';PWD='sa'";
SQL="select top 1000 * from test";
R=ExcelWorksheet2->get_Range(Variant("a1"),Variant("a1")); //這里用Variant轉換過
STick=GetTickCount();
ExcelQueryTable1->ConnectTo(ExcelWorksheet2->QueryTables->Add(Variant(ConStr), R, Variant(SQL)));
ExcelQueryTable1->Refresh();
ETick=GetTickCount();
ShowMessage(FloatToStr((ETick-STick)/1000.0)+" seconds");
}
uj5u.com熱心網友回復:
或者給個bcb6.0能用的XLSReadWrite也好呀。。。為啥www.ccrun.com上的東西都下載不動能。。轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/156878.html
標籤:VCL組件使用和開發
上一篇:求高手解答 求代碼 。。使用哈希表技術判別兩個源程式的相似性
下一篇:問個小問題
