如何從EXCEL儲存格中取出字串

發文回覆瀏覽次數：2842

推到 Plurk!

推到 Facebook!

如何從EXCEL儲存格中取出字串

尚未結案

daniel015501
一般會員

發表：2
回覆：2
積分：0
註冊：2006-07-09

發送簡訊給我

#1 引用回覆回覆

發表時間：2006-07-12 10:23:50

IP:218.169.xxx.xxx 未訂閱

各位大大小弟問了一個基本的問題
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(2);
Variant KKK(String("ddd"));
v7=ExcelWorksheet1->Cells->get__Default(v5,v6)
Edit1->Text=v7;
//取列1欄1的值 //若要寫入值可用 ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd}
}

這是之前小弟看到的文章
但是get__Deault取出來的似乎是值
如果我要以字串顯示在Edit1->Text裡要怎麼作?
譬如說要顯示011這樣的字串?

daniel015501
一般會員

發表：2
回覆：2
積分：0
註冊：2006-07-09

發送簡訊給我

#2 引用回覆回覆

發表時間：2006-07-12 11:02:53

IP:218.169.xxx.xxx 未訂閱

少了一個v7
===================引用文章===================

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant v5(1);
Variant v6(2);Variant v7;
Variant KKK(String("ddd"));
v7=ExcelWorksheet1->Cells->get__Default(v5,v6)
Edit1->Text=v7;
//取列1欄1的值 //若要寫入值可用 ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd}
}

這是之前小弟看到的文章
但是get__Deault取出來的似乎是值
如果我要以字串顯示在Edit1->Text裡要怎麼作?
譬如說要顯示011這樣的字串?

系統時間：2024-06-26 8:32:27

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！