![](http://delphi.ktop.com.tw/loadfile.php?TOPICID=23225552&CC=519428)
請問大家EXCEL中的A B C...可以改成中文或英文嗎??
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString aa; //定義aa
if (OpenDialog1->Execute()) //直接打開檔案選擇視窗
{
aa=OpenDialog1->FileName; //指定檔名
ExcelApplication1->Connect(); //EXCEL APPLICATION 連接
ExcelApplication1->Workbooks->Open(aa);
ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook());
ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet());
//連接工作表
}
} void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant v5(1);
Variant v6(1);
Variant v7;
Variant KKK(String("ddd"));
v7=ExcelWorksheet1->Cells->get__default(v5,v6); //取列1欄1的值
//若要寫入值可用
ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd
}
以上是我用的程式
可以另存新EXCEL檔嗎???
不要覆蓋之前的EXCEL檔!!
謝謝大大