請為各位前輩，在程式前面宣告的#pragma link "Excel_2K_SRVR" 和#pragma link "Excel_2K_SRVR"，是不是要依各電腦的環境不同而做改變的，如此要做一個各電腦通用的執行檔，是不是應該link各office的版本呢? 另外一個小小的問題，請問這個程式需要加入什麼的VCL元件進來嗎? 真的先謝謝各位的回答了^^ include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "Excel_2K_SRVR" #pragma link "Excel_2K_SRVR" #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()); //連接工作表 } }

Hi 你好
我正在試
使用OLE的方式
什麼元件都不需要放
include 的地方加上這兩行
#include "ComObj.hpp"
#include "Excel_2K_SRVR.h"

參考包子大大的文章
http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=54342

抱歉
若用您的方法要放office2K頁面的這幾個元件
TExcelApplication
TExcelWorksheet
TExcelWorkbook

既然是要做一個各電腦通用的執行檔, 那是不是要考慮沒有安裝 Office 的電腦(雖然好像很少, 至少我就碰到了)
拉元件來使用在系統中好像是要有安裝 Office 才能用

所以我最後是使用 ADO 的方式, 就是只要是 Excel 是類似 StringGrid 的型式, 那就可以把 Excel 當作 是一個 Database
而每一個 Sheet 就是一個 Table . 就樣就可以了

希望對你有用

===================引 用 starhua628 文 章===================
請為各位前輩，在程式前面宣告的#pragma link "Excel_2K_SRVR"
和#pragma link "Excel_2K_SRVR"，是不是要依各電腦的環境不同而做改變的，如此要做一個各電腦通用的執行檔，是不是應該link各office的版本呢?

另外一個小小的問題，請問這個程式需要加入什麼的VCL元件進來嗎?

真的先謝謝各位的回答了^^



include
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma link "Excel_2K_SRVR"
#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());
//連接工作表
}
}