北方佬
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:15 回覆:35 積分:10 註冊:2005-07-27
發送簡訊給我
|
請問如何使用BCB將圖貼到EXCEL中,並且貼在指定的sheet與格子中?
|
taishyang
站務副站長
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/462c1ab02cd1c_Pic.jpg) 發表:377 回覆:5490 積分:4563 註冊:2002-10-08
發送簡訊給我
|
|
北方佬
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:15 回覆:35 積分:10 註冊:2005-07-27
發送簡訊給我
|
Sorry!!實在是狗急跳牆才會在不同的版上發問!!非常抱歉!!
|
malanlk
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:20 回覆:694 積分:577 註冊:2004-04-19
發送簡訊給我
|
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 隨便找也有幾篇.... 用點心思哦...
|
北方佬
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:15 回覆:35 積分:10 註冊:2005-07-27
發送簡訊給我
|
請問小弟這程式有錯嗎?雖然可以開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
|
taishyang
站務副站長
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](http://delphi.ktop.com.tw/download.php?download=upload/462c1ab02cd1c_Pic.jpg) 發表:377 回覆:5490 積分:4563 註冊:2002-10-08
發送簡訊給我
|
您好: PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合
>
|
malanlk
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:20 回覆:694 積分:577 註冊:2004-04-19
發送簡訊給我
|
WorkSheet.OlePropertyGet("Pictures").OleFunction("Insert","d:\照片.bmp"); 試試看
|
北方佬
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:15 回覆:35 積分:10 註冊:2005-07-27
發送簡訊給我
|
將程式加入大大說的那一行會有錯誤發生,程式碼如下
#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'
|
malanlk
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:20 回覆:694 積分:577 註冊:2004-04-19
發送簡訊給我
|
Worksheet.OlePropertyGet("Pictures").OleFunction("Insert","d:\照片.bmp");
|
北方佬
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:15 回覆:35 積分:10 註冊:2005-07-27
發送簡訊給我
|
謝謝大大的指點,真是感激不盡。不過想請問大大你的BCB是哪裏學的?我在外面找補習班均沒有敎授BCB,目前我都是看書照表操課因此進步的速度有限才會在板上發問,也謝謝高手們不棄嫌小弟發問的問題耐心的指導。感激不盡。
|
malanlk
尊榮會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:20 回覆:694 積分:577 註冊:2004-04-19
發送簡訊給我
|
ㄧ本書通常是不夠的, 多看幾本, 如果有時間, Ktop 數以萬計的問答就是最佳教材.....我的 BCB DELPHI MFC 都是自修, 只是經驗比較多ㄧ點, 基本架構觀念比較清晰...像你這個問題基本上是 ole 物件的操作方法. OlePropertyGet("Pictures").... 取得 工作表上 Pictures 物件
OleFunction("Insert","d:\照片.bmp") 呼叫 Pictures 物件 的方法 這個答案是推測出來的, 我並沒有實際測試, 所以才會說 "試試看" 如何得知Excel有哪些物件及其方法呢? 錄製巨集來觀察 就是ㄧ個不錯的方式.
|