請問如何使用BCB將圖貼到EXCEL中，並且貼在指定的sheet與格子中?

您好: 請勿重複發問 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=76945">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=76945 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=76989 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=76998

Sorry!!實在是狗急跳牆才會在不同的版上發問!!非常抱歉!!

http://delphi.ktop.com.tw/topic.php?topic_id=29495 http://delphi.ktop.com.tw/topic.php?topic_id=22668 http://delphi.ktop.com.tw/topic.php?topic_id=58675 隨便找也有幾篇.... 用點心思哦...

請問小弟這程式有錯嗎?雖然可以開excel檔案但是無法貼圖?  

 
#include 
#include 
#pragma hdrstop
#include "Unit1.h"
#include "vcl\utilcls.h"
#define PG OlepropertyGet
#define PS OlepropertySet
#define FN OleFunction
#define PG OleProcdure
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
// 轉EXCEL
Variant Excel,Workbooks,Workbook;
Variant Worksheets,Worksheet,Range,Cell,FColumns,Item;
int i,j;    // 新增一worksheet
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible",true);
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add");
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OlePropertyGet("Item",1);
Worksheet=Worksheets.OleFunction("Add"); // 新增一worksheet
Worksheet.OlePropertySet("Name","test2") ;
Worksheet=Worksheets.OleFunction("Add"); // 再新增一worksheet
Worksheet.OlePropertySet("Name","test1") ;
WorkSheet.Pictures.Insert('d:\照片.bmp');    }    

可是最後ㄧ行是Delphi的指令，因此我到現在還是不能貼圖在excel中!! 請問各位大大要下什麼指令才能貼圖?感激不盡!! 發表人 - 北方佬 於 2005/08/30 20:00:28

您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >

WorkSheet.OlePropertyGet("Pictures").OleFunction("Insert","d:\照片.bmp"); 試試看

將程式加入大大說的那一行會有錯誤發生，程式碼如下  

 
#include 
#include 
#pragma hdrstop
#include "Unit1.h"
#include "vcl\utilcls.h"
#define PG OlepropertyGet
#define PS OlepropertySet
#define FN OleFunction
#define PG OleProcdure    //---------------------------------------------------------------------------    #include 
#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)
{
 // 轉EXCEL
Variant Excel,Workbooks,Workbook;
Variant Worksheets,Worksheet,Range,Cell,FColumns,Item;
int i,j;    // 新增一worksheet
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible",true);
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add");
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OlePropertyGet("Item",1);
Worksheet=Worksheets.OleFunction("Add"); // 新增一worksheet
Worksheet.OlePropertySet("Name","test2") ;
Worksheet=Worksheets.OleFunction("Add"); // 再新增一worksheet
Worksheet.OlePropertySet("Name","test1") ;    WorkSheet.OlePropertyGet("Pictures").OleFunction("Insert","d:\照片.bmp");
}

錯誤訊息如下共有兩行，可否請先進們指點一下： [C Warning] Unit1.cpp(10): W8017 Redefinition of 'PG' is not identical [C Error] Unit1.cpp(48): E2451 Undefined symbol 'WorkSheet'

Worksheet.OlePropertyGet("Pictures").OleFunction("Insert","d:\照片.bmp");

謝謝大大的指點，真是感激不盡。不過想請問大大你的BCB是哪裏學的?我在外面找補習班均沒有敎授BCB，目前我都是看書照表操課因此進步的速度有限才會在板上發問，也謝謝高手們不棄嫌小弟發問的問題耐心的指導。感激不盡。

ㄧ本書通常是不夠的, 多看幾本, 如果有時間, Ktop 數以萬計的問答就是最佳教材.....我的 BCB DELPHI MFC 都是自修, 只是經驗比較多ㄧ點, 基本架構觀念比較清晰...像你這個問題基本上是 ole 物件的操作方法. OlePropertyGet("Pictures").... 取得 工作表上 Pictures 物件 OleFunction("Insert","d:\照片.bmp") 呼叫 Pictures 物件 的方法 這個答案是推測出來的, 我並沒有實際測試, 所以才會說 "試試看" 如何得知Excel有哪些物件及其方法呢? 錄製巨集來觀察 就是ㄧ個不錯的方式.