請問一下~EXCEL存取問題 |
|
答題得分者是：boss.tw
|
|
jenwe
一般會員   發表：34 回覆：38 積分：24 註冊：2007-03-23 發送簡訊給我 |
|
|
boss.tw
高階會員  發表：15 回覆：109 積分：194 註冊：2005-05-17 發送簡訊給我 |
[code cpp] //--------------------------------------------------------------------------- // 寫入某值到 Excel 的某格中. void __fastcall TForm1::ButtonSetValueClick(TObject *Sender) { // 將該Excel 檔的 Worksheets 設給變數 Worksheets. Worksheets=Workbook.OlePropertyGet("Worksheets"); // 將 Worksheets 的第2 個 worksheet 設給變數 Worksheet. Worksheet=Worksheets.OlePropertyGet("Item", 2); // 取得第 (2,3) 個 cell. Cell=Worksheet.OlePropertyGet("Cells", 2, 3); Cell.OlePropertySet("Value", "CrazyStar"); // 設定它的文字內容為 "CrazyStar". } //--------------------------------------------------------------------------- // 讀取Excel 某格的值到程式中. void __fastcall TForm1::ButtonGetValueClick(TObject *Sender) { Variant Var; int A; float B; String C; // 將該Excel 檔的 Worksheets 設給變數 Worksheets. Worksheets=Workbook.OlePropertyGet("Worksheets"); // 將 Worksheets 的第2 個 worksheet 設給變數 Worksheet. Worksheet=Worksheets.OlePropertyGet("Item", 2); // 取得第 (2,3) 個 cell. Cell=Worksheet.OlePropertyGet("Cells", 2, 3); // 讀取該 cell 的值到變數 Var 中 Var=Cell.OlePropertyGet("Value"); // 轉換取得的資料. if (String(Var)!="") { A=StrToInt(Var); B=StrTofloat(Var); C=String(Var); } } [/code] 請參考 http://www.programmer-club.com/pc2020v5/forum/ShowSameTitleN.asp?URL=N&board_pc2020=cb&id=13074
編輯記錄
boss.tw 重新編輯於 2009-01-25 23:30:18， 註解 無‧
|
|
jenwe
一般會員 發表：34 回覆：38 積分：24 註冊：2007-03-23 發送簡訊給我 |
不好意思問一下
可是我用你這種方法~ 都會有這行錯誤 [C Error] Unit1.cpp(84): E2015 Ambiguity between 'Worksheets' and 'Excel_2k::Worksheets' 可否解答一下 ===================引 用 boss.tw 文 章=================== [code cpp] //--------------------------------------------------------------------------- // 寫入某值到 Excel 的某格中. void __fastcall TForm1::ButtonSetValueClick(TObject *Sender) { // 將該Excel 檔的 Worksheets 設給變數 Worksheets. Worksheets=Workbook.OlePropertyGet("Worksheets"); // 將 Worksheets 的第2 個 worksheet 設給變數 Worksheet. Worksheet=Worksheets.OlePropertyGet("Item", 2); // 取得第 (2,3) 個 cell. Cell=Worksheet.OlePropertyGet("Cells", 2, 3); Cell.OlePropertySet("Value", "CrazyStar"); // 設定它的文字內容為 "CrazyStar". } //--------------------------------------------------------------------------- // 讀取Excel 某格的值到程式中. void __fastcall TForm1::ButtonGetValueClick(TObject *Sender) { Variant Var; int A; float B; String C; // 將該Excel 檔的 Worksheets 設給變數 Worksheets. Worksheets=Workbook.OlePropertyGet("Worksheets"); // 將 Worksheets 的第2 個 worksheet 設給變數 Worksheet. Worksheet=Worksheets.OlePropertyGet("Item", 2); // 取得第 (2,3) 個 cell. Cell=Worksheet.OlePropertyGet("Cells", 2, 3); // 讀取該 cell 的值到變數 Var 中 Var=Cell.OlePropertyGet("Value"); // 轉換取得的資料. if (String(Var)!="") { A=StrToInt(Var); B=StrTofloat(Var); C=String(Var); } } [/code] 請參考 http://www.programmer-club.com/pc2020v5/forum/ShowSameTitleN.asp?URL=N&board_pc2020=cb&id=13074 |
|
boss.tw
高階會員 發表：15 回覆：109 積分：194 註冊：2005-05-17 發送簡訊給我 |
發表時間：2009-01-25 18:29:47
IP:218.168.xxx.xxx 訂閱
系統時間：2024-04-25 0:28:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |