線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1211
推到 Plurk!
推到 Facebook!

開啟一個Excel檔案塞資料並存檔(只有簡短幾行)

 
ybmh
一般會員


發表:20
回覆:14
積分:6
註冊:2004-01-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-19 14:12:17 IP:210.202.xxx.xxx 未訂閱
看了很多大大及高手們的程式片段幫了我大忙 因為能理解新手的痛苦 所以整理出有一段能Run的程式碼後新手比較能理解 只要有以下10多行程式碼 就能有一個很基本絕對能Run的Excel程式 要其他的功能請參考其他大大高手們的程式片斷喔 以下這兩行一定要加入 #include "vcl\utilcls.h" //一定要include #include "excel_2k.h" //一定要include 以下10多行程式碼貼到適當的地方,例如:onclick事件裡 Variant Excel,Workbooks,Workbook,Cells,FColumns; //宣告變數 Variant Worksheets,Worksheet,Column,Cell; //宣告變數 Variant Item,PageSet,Range,Chart,Charts; //宣告變數 CoInitialize(NULL); //在引用Com元件前要加這行 Excel=CreateOleObject("Excel.Application"); Workbooks=Excel.OlePropertyGet("Workbooks") ; Workbook=Workbooks.OleFunction("Add"); //開啟新Workbooks Worksheets=Workbook.OlePropertyGet("Worksheets"); Worksheet=Worksheets.OlePropertyGet("Item",1); //跳至頁面第一頁 Cell=Worksheet.OlePropertyGet("Cells",1,1); //Excel的A1 Cell.OlePropertySet("Value",100); Cell=Worksheet.OlePropertyGet("Cells",1,2); //Excel的B1 Cell.OlePropertySet("Value",200); Workbook.OleFunction("SaveAs", "D:\\xlsfile.xls"); //另存新檔 Workbooks.OleFunction("Close"); Excel.OleFunction("Quit");
系統時間:2024-04-26 7:51:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!