假設我要抓 C,3 這個格子中的值,請問要如何下指令?

北方佬 您好：    請參考下列文章，看看是否能幫上忙？ C Builder 與 EXCEL 連結取值與存值 http://delphi.ktop.com.tw/topic.php?topic_id=29910 BCB 轉 EXCEL 大發現 http://delphi.ktop.com.tw/topic.php?topic_id=22668 怎樣用C Builder存取Excel http://delphi.ktop.com.tw/topic.php?topic_id=20138 7 天天敲鍵盤 v 時時按滑鼠 8

我將這網址中的範例直接COPY過來http://delphi.ktop.com.tw/topic.php?topic_id=29910 可是有無定義的錯誤訊息 [C++ Error] Unit1.cpp(28): E2451 Undefined symbol 'OpenDialog1' [C++ Error] Unit1.cpp(31): E2451 Undefined symbol 'ExcelApplication1' [C++ Error] Unit1.cpp(33): E2451 Undefined symbol 'ExcelWorkbook1' [C++ Error] Unit1.cpp(35): E2451 Undefined symbol 'ExcelWorksheet1' [C++ Error] Unit1.cpp(41): E2316 '_fastcall TForm1::Button2Click(TObject *)' is not a member of 'TForm1' 請問這些訊息是不是還要定義些什麼呢??    以下是我的完整的程式碼，請大大幫我指正錯誤的地方。感激不盡。  

 
#include 
#include 
#include "vcl\utilcls.h"
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure    #pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    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    }

那些沒有定義的VCL元件沒有放在Form上

我懂了!!謝謝大大!!

不好意思在請問一下Button2Click的疑問，最後ㄧ行將列1欄1的值填入"ddd" 可是爲什麼我執行出來所填入的值是空白呢?

我也跟妳一樣~田出來的值是空白的~可否請高手試驗一下
幫忙解惑~!!!
===================引 用 北方佬 文 章===================
不好意思在請問一下Button2Click的疑問，最後ㄧ行將列1欄1的值填入"ddd" 可是2什麼我執行出來所填入的值是空白呢?

[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

編輯記錄