要如何將將程式中資料數值5,6,7..more 直接存取到excel欄位中的"完整範例"??? 不甚感激...

jiew您好:    您參考看看下面連結的方式可不可以    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29910 【轉貼】C Builder 與 EXCEL 連結取值與存值 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

// 轉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);資料來源:計算機世界日報 http://www2.ccw.com.cn/tips/2k02/022504_03.asp ---- C Builder是Borland公司繼Delphi之後又一成功的產品, 她集VB、VC 及 Delphi 的優點於一體而深得C語言愛好者的青睞。 由於多數操作者愛用 MicroSoft公司的Excel組織數據， 為此本文介紹了用C Builder存取Excel 文件的兩種方法。 ---- 一.用OLE技術操縱Excel ---- OLE(對象鏈接與嵌入)是微軟提出的標準， 是應用程序間交換數據、相互操作的一種方式， MS OFFICE 提供了很強的 OLE 服務功能， VB、Delphi 及C Builder等語言都可以以客戶方式向Excel提交命令, 以存取其數據,其中VB和Delphi最為簡單，在語法上就採用類VBA的語句, 本報九九年第48期的《在Delphi中操作Excel》一文曾介紹了Delphi的做法。 我們原以為C Builder照搬Delphi，結果語法編譯都未能通過， 查不到這方面具體介紹的資料。 經反復試驗方知：原來C Builder採用間接的辦法， 利用變體類Variant所提供的四個“方法”向OLE服務程序提交操縱命令： Variant Variant::OlePropertyGet(屬性名,參數….); // 取對象屬性 Void Variant::OlePropertySet(屬性名,參數….); // 設置對象屬性 Variant Variant::OleFunction(函數名，參數….); // 運行對象的函數 void Variant::OleProcedure(過程名，參數….); // 運行對象的過程 其頭文件“vcl\utilcls.h”必須嵌在用戶程序中， 對於這四個長長的方法名可在程序中用宏語句重新定義一下： #define PG OlePropertyGet #define PS OlePropertySet #define FN OleFunction #define PR OleProcedure 例如對於VB的提交語句: Ex.ActiveWorkBook.ActiveSheet.Cells(1,2).Value=3 為便於理解在C Builder對應的語句可分解為如下四句： Variant t1=Ex.OlePropertyGet("ActiveWorkBook"); Variant t2=t1.OlePropertyGet("ActiveSheet"); Variant t3=t2.OlePropertyGet("Cells,1,2); t3.OlePropertySet("Value",3); 可去掉中間變量將這四句合為一句，就是: Ex.PG("ActiveWorkBook").PG("ActiveSheet"). PG("Cells",1,2).PS("Value",3); 我們將下面的VB程序片段改成對應的C Builder程序以供參考: Private Sub Command1_Click() ' Visual Basic程序片段 Dim Ex As Object,Wb As Object, Sh1 As Object Set Ex = CreateObject("Excel.Application") Ex.WorkBooks.Open("c:\book1.xls") Set Wb = Ex.Activeworkbook Set Sh1 = Wb.ActiveSheet Text1.Text = Sh1.Cells(1, 1).Value For i = 1 To 10: For j = 1 To 10 Sh1.Cells(i, j).Value = i * 100 j Next j: Next i Wb.save: Wb.Close: Ex.Quit End Sub ' - - - - - -- - - - - - - - - - - #include "Unit1.h" // C Builder程序片段 #include "vcl\utilcls.h" // util classes實用類說明 // …省寫此處原一段代碼 // 請在此處插入上面提及的四個宏定義語句 void __fastcall TForm1::Button1Click(TObject *Sender) { Variant Ex,Wb,Sh1; Ex=Variant::CreateObject("Excel.Application"); Ex.PG("WorkBooks").PR("Open","c:\\book1.xls"); Wb=Ex.PG("ActiveWorkBook"); Sh1=Wb.PG("ActiveSheet"); Edit1->Text=Sh1.PG("Cells",1,1).PG("Value"); for (int i=1;i<=10;i ) for (int j=1;j<=10;j ) Sh1.PG("Cells",i,j).PS("Value",i*100 j); Wb.PR("Save"); Wb.PR("Close"); } ---- 使用這種方法的程序運行時，必須保證系統中同時有MS OFFICE﹔ 下面我們再介紹另一種脫離MS OFFICE也能存取Excel表格的方法。 ---- 二.用ODBC數據庫技術存取Excel ---- ODBC就是開放式數據庫鏈接標準，不同種類的數據庫只需提供各自的ODBC 驅動程序就可按相同的命令操縱， 微軟同樣為Excel提供了ODBC驅動程序，我們可在程序中象數據庫一樣存取Excel表格。 定義好ODBC數據源後，實際試驗中並沒有如想象的那樣簡單， 在控件Table的屬性TableName中總是檢索不到 表名，同樣也沒有相關的資料可供查閱。 通過對Excel的分析，終於發現了問 題的關鍵所在：ODBC的表名並不就是Excel的工作表名(如Sheet1), 在Excel 表格中必須對要求操作的行列區域定義一個“名稱”作為數據庫的表名， 該區 域的首行各列必須是字段名(否則首行數據會當成字段名),可以定義多個表名。 具體操作步驟如下： ---- 1.在Excel上定義“表名”: ---- 運行Excel程序，打開或新建一表格，按下鼠標左鍵選擇一片區域（起始 行先填上字段名）， 再將鼠標位置點到左上角的地址欄，輸入一表名如ABC,或 者在菜單上選:“插入(I)”-“名稱(N)”-“定義(D)”， 再輸入表名（若已定義, 可在此處刪除掉）,存盤退出（假定文件名取為c:\Book.xls）， 若嫌字段名行 多餘，存盤前可隱藏掉﹔ ---- 2.定義ODBC數據源: ---- 從Windows桌面“我的電腦"進入“控制面板”，雙擊“32位ODBC”圖標，運 行“用戶DSN” 中的“添加(D)"後選“Excel Driver(*.xls)",再點“完成”便彈出 對話框， 在“數據源名(N)"右邊填一名稱，如：excel01,在“版本(V)"上選“Excel97", 點中“選項”取消“只讀”，在“選定工作目錄”中， 選定Excel文件名(本例 c:\Book1.xls)，再點“確定”直至退出﹔ ---- 3.設置Database控件避免登錄檢查： ---- 運行C Builder，在Form1中加上Data Access的三個控件：Database1、 DataSource1、Table1, 加入Database1的目的是為了避免打開數據庫時出 現登錄框， 為此雙擊此控件彈出一對話框，在Alias name中選ODBC數據源名(本 例為Excel01), 在Name中填上一新的別名(本例取Excel02)，再點“Defaults” 出現一批參數缺省值， 最後取消Options中的兩項“Login prompt"與"Keep inactive connect”,點OK退出﹔ ---- 4.設置其它控件屬性: ---- 將Table1的屬性DatabaseName選為步驟3中的新別名Excel02,再將另一 屬性TableName選為步驟1的表名(本例為ABC); 將控件DataSource1的屬性 DataSet選為Table1﹔ 雙擊Form1,在FormCreate事件子程序內加上一句 Table1- >Open( )﹔ ---- 5．查看數據庫內容： ---- 為了直接看到Excel數據，在Form1中再加上Data Controls的控件DBGrid1 和DBNavigator1， 將兩者的屬性DataSource都選為DataSource1,雙擊Table1 的屬性Active將值改為true, 等待數秒就可看到DBGrid1中出現數據,最後恢 復Tabel1- >Active為false﹔ ---- 注意：程序編譯前,必須將剛打開的表關閉,即:使Table1- >Active為false, 否則程序運行時報告出錯，因為Excel表總是被ODBC以“獨佔”方式打開﹔ ---- 我們使用的是C Builder 4.0專業版，電子表格為Excel 97。 為必免著作權問題, 以上為轉貼其他網友的文章,特此聲明

感謝2位大大提供... 仍然出現許多錯誤問題 是編譯軟體不合嗎(BCB4.0) 或者事先要先宣告,定義什麼??? 不曉得哪可以下載完整存取execl基本範例(完整範例函宣告...more) (僅需將數值存入excel指定欄位即可) 懇請各位大大幫忙,感激不盡... Thanks N & Best Regards

import type library [project]->[import type library]->Microsoft EXCEL 9.0 Object Library

用denise大大發表的 "BCB轉EXCEL大發現" 成功了!!! 感謝各位大大的幫忙!!! Best Regards