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

怎麼讀取EXCEL中滑鼠所在的欄位

缺席
Mich
一般會員


發表:8
回覆:10
積分:8
註冊:2003-09-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-04-15 22:32:18 IP:125.231.xxx.xxx 訂閱
問題如標題:怎麼讀取EXCEL中滑鼠所在的欄位
因為我要將資料寫入滑鼠選取的欄位,爬文後都是將資料寫入指定的欄位,但是我不曉得如何獲得滑鼠選取的欄位,所以不知要將資料寫入的欄位值;或是有那一位前輩知道如何直接將資料寫入滑鼠選取的欄位??
PS:我是用OLE的方式來讀取EXCEL檔案
Mich
一般會員


發表:8
回覆:10
積分:8
註冊:2003-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-04-20 20:08:16 IP:125.231.xxx.xxx 訂閱
問題已經解決了,將解決的方法與各位分享,也希望各位大大能分享其它的方法。
相關設定請參考http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=22668
Variant vExcelAp,vWorkBooks,vWorkBook,vSheets,vSheet;
AnsiString Vac;
vExcelAp=CreateOleObject("Excel.Application");

Vac=VarToStr(vExcelAp.OlePropertyGet("ActiveCell").OlePropertyGet("AddressLocal")); //假設滑鼠選在A2, 則Vac="$A$2"
//ActiveCell是取出滑鼠所在的欄位值,AddressLocal是顯示的方法,"$A$2","$A2"…等等的顯示方法。
//當然也可以用vExcelAp.OlePropertyGet("ActiveCell").OlePropertyGet("Value")等 方法,直接將值取出或寫入。
我是從EXCEL的說明-->目錄-->Visual Basic中找到的,也謝謝前輩幫我把它成bcb。
希望這篇能幫助有與我相同困擾的人。
系統時間:2017-10-22 5:31:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!