D5 ADO Excel copy issue 請教 |
|
尚未結案
|
|
water
初階會員   發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
程式碼:
Ms_ExcelR2 :=Ms_Dir + '\'+M_BB_File; // 基本格式檔 唯讀 bb.xls
Ms_ExcelAP2 := CreateOleObject('Excel.Application');
Ms_ExcelWB2 := Ms_ExcelAP2.WorkBooks.OPEN(Ms_ExcelR2,ReadOnly := True);
Ms_ExcelAP2.Worksheets[1].select; Ms_ExcelW3 :=Ms_Dir + '\'+M_CC_File; // 轉出資料檔 讀寫 cc.xls
Ms_ExcelAP3 := CreateOleObject('Excel.Application');
Ms_ExcelWB3 := Ms_ExcelAP3.WorkBooks.OPEN(Ms_ExcelW3);
Ms_ExcelAP3.Worksheets[1].select; ..
.. Ms_ExcelAP2.ActiveSheet.Rows['1:35'].Select; // 選取 1-35
Ms_ExcelAP2.Selection.Copy;
Ms_ExcelAP3.ActiveSheet.Rows['1:35'].Select; // 貼上
Ms_ExcelAP3.ActiveSheet.Paste;
..
..
結果:
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
1. 若要欄寬一樣, 則不能用 copy 達成, 得用設定欄寬的方式達成
Ms_ExcelAP3.ActiveSheet.Columns[1].ColumnWidth := Ms_ExcelAP2.ActiveSheet.Columns[1].ColumnWidth; Ms_ExcelAP3.ActiveSheet.Columns[2].ColumnWidth := Ms_ExcelAP2.ActiveSheet.Columns[2].ColumnWidth;2. 請參考 http://delphi.ktop.com.tw/topic.php?topic_id=51149
// press enter
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
請教:
問題1:你的意思是指先設定欄寬,再copy ??
如果是得話,我可以設loop處理.
問題2:
A.如何知道有視窗跑出來??
我想寫成:(怕會影響後面程式)
if(有視窗跑出來) then
begin
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
end; B.keybd_event(a,b,c,d)中:
a= Key 值
b,c,d=? 不好意思.我是 Delphi 菜鳥.
一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中 |
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
發表時間：2004-10-18 21:40:34
IP:61.235.xxx.xxx 未訂閱
系統時間：2024-11-24 17:27:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |