全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1810
推到 Plurk!
推到 Facebook!

如何把EXCEL中的SHEET換到另一個XLS檔中

答題得分者是:GrandRURU
alvin26
初階會員


發表:24
回覆:41
積分:28
註冊:2005-04-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-10-25 14:48:23 IP:118.163.xxx.xxx 訂閱
我有找過用DELPHI程式操作EXCEL的方法,基本上都沒問題,
但若是把 A.XLS裡的 SHEET1 搬到 B.XLS 中就沒辦法了,
不知哪位前輩大大知道如何做?感謝~
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。
P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-10-25 22:26:50 IP:118.160.xxx.xxx 未訂閱
不要想的太複雜了, 
把 a.xls 的 sheet1 讀進來,
然後 b.xls add 一個 sheet2,
再把 a.sheet1 寫入到 sheet2 就可以
這些在 excel的指令集中都有提供的
老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-10-25 23:01:22 IP:111.246.xxx.xxx 未訂閱
印象中...還可以這樣做...
依PD大大的方式再加工一下...
讀取a.xls的sheet1(當然~不是把全部資料讀進來)
算出用了哪些範圍內的資料並"選取"起來
複製!!
開啟b.xls 並新增sheet2
貼上...
關掉
結束



印象中...真的只是印象中...
好像有這樣做過的樣子...

===================引 用 P.D. 文 章===================
不要想的太複雜了,
把 a.xls 的 sheet1 讀進來,
然後 b.xls add 一個 sheet2,
再把 a.sheet1 寫入到 sheet2 就可以
這些在 excel的指令集中都有提供的
GrandRURU
站務副站長


發表:235
回覆:1655
積分:1753
註冊:2005-06-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2012-10-25 23:43:52 IP:111.249.xxx.xxx 訂閱
如果用的是ole Com來控制Excel的話
不仿參考vba的方式吧

Worksheets('SheetName').Move

http://forums.techguy.org/business-applications/900462-solved-excel-vba-move-worksheet.html
===================引 用 老大仔 文 章===================
印象中...還可以這樣做...
依PD大大的方式再加工一下...
讀取a.xls的sheet1(當然~不是把全部資料讀進來)
算出用了哪些範圍內的資料並"選取"起來
複製!!
開啟b.xls 並新增sheet2
貼上...
關掉
結束



印象中...真的只是印象中...
好像有這樣做過的樣子...

===================引 用 P.D. 文 章===================
不要想的太複雜了,
把 a.xls 的 sheet1 讀進來,
然後 b.xls add 一個 sheet2,
再把 a.sheet1 寫入到 sheet2 就可以
這些在 excel的指令集中都有提供的
alvin26
初階會員


發表:24
回覆:41
積分:28
註冊:2005-04-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2012-10-26 13:57:03 IP:118.163.xxx.xxx 訂閱
感謝各位大大的回覆,事實上我現在就是先用 Create ole 物件 複製再貼上的方式處理,只是若資料多的話怕會變慢,所以想比照手動操作的方式,把 sheet 搬到另一個檔案,覺得這樣是比較快且好的方式。
另,我試過 Move ,
它可以移到一個新的workbook中,
但我不知怎麼讓它移到指定的Workbook中
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。
編輯記錄
alvin26 重新編輯於 2012-10-25 23:57:28, 註解 無‧
GrandRURU
站務副站長


發表:235
回覆:1655
積分:1753
註冊:2005-06-21

發送簡訊給我
#6 引用回覆 回覆 發表時間:2012-10-26 14:03:53 IP:59.120.xxx.xxx 訂閱
我想,應該和這個作法一樣吧


===================引 用 alvin26 文 章===================
感謝各位大大的回覆,事實上我現在就是先用 Create ole 物件 複製再貼上的方式處理,只是若資料多的話怕會變慢,所以想比照手動操作的方式,把 sheet 搬到另一個檔案,覺得這樣是比較快且好的方式。
另,我試過 Move ,
它可以移到一個新的workbook中,
但我不知怎麼讓它移到指定的Workbook中
<style type="text/css"> qtl { position: absolute; border: 1px solid #cccccc; -moz-border-radius: 5px; opacity: 0.2; line-height: 100%; z-index: 999; direction: ltr; } qtl:hover,qtl.open { opacity: 1; } qtl,qtlbar { height: 22px; } qtlbar { display: block; width: 100%; background-color: #cccccc; cursor: move; } qtlbar img { border: 0; padding: 3px; height: 16px; width: 16px; cursor: pointer; } qtlbar img:hover { background-color: #aaaaff; } qtl>iframe { border: 0; height: 0; width: 0; } qtl.open { height: auto; } qtl.open>iframe { height: 200px; width: 300px; } </style><qtl > <iframe name="content"></iframe>
alvin26
初階會員


發表:24
回覆:41
積分:28
註冊:2005-04-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2012-10-26 14:45:22 IP:118.163.xxx.xxx 訂閱
第一、第二是指定在哪個sheet之前、之後,
第三個參數 lcid應該是第幾個位置,
看起來好像只是在同一個 workbook中移動耶
===================引 用 GrandRURU 文 章===================
我想,應該和這個作法一樣吧
Reference > IXLSWorksheet > Move
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。
編輯記錄
alvin26 重新編輯於 2012-10-26 00:46:44, 註解 無‧
alvin26 重新編輯於 2012-10-26 00:49:10, 註解 無‧
GrandRURU
站務副站長


發表:235
回覆:1655
積分:1753
註冊:2005-06-21

發送簡訊給我
#8 引用回覆 回覆 發表時間:2012-10-26 14:51:31 IP:59.120.xxx.xxx 訂閱
可以試著指到另一個Workbook的sheet前或後

===================引 用 alvin26 文 章===================
第一、第二是指定在哪個sheet之前、之後,
第三個參數 lcid應該是第幾個位置,
看起來好像只是在同一個 workbook中移動耶
===================引 用 GrandRURU 文 章===================
我想,應該和這個作法一樣吧
Reference > IXLSWorksheet > Move
<style type="text/css"> qtl { position: absolute; border: 1px solid #cccccc; -moz-border-radius: 5px; opacity: 0.2; line-height: 100%; z-index: 999; direction: ltr; } qtl:hover,qtl.open { opacity: 1; } qtl,qtlbar { height: 22px; } qtlbar { display: block; width: 100%; background-color: #cccccc; cursor: move; } qtlbar img { border: 0; padding: 3px; height: 16px; width: 16px; cursor: pointer; } qtlbar img:hover { background-color: #aaaaff; } qtl>iframe { border: 0; height: 0; width: 0; } qtl.open { height: auto; } qtl.open>iframe { height: 200px; width: 300px; } </style><qtl > <iframe name="content"></iframe>
alvin26
初階會員


發表:24
回覆:41
積分:28
註冊:2005-04-12

發送簡訊給我
#9 引用回覆 回覆 發表時間:2012-10-26 16:39:14 IP:118.163.xxx.xxx 訂閱
感謝GrandRURU大大,成功了!
我先在 VBA 試可以了,再到 Delphi 試,
先建立兩個 xls 檔:1.xls 和 2.xls
1.xls 裡有 sheet1 及 sheet2
2.xls 裡有 sheet2,
執行完後,1.xls 的 sheet1 會跑到 2.xls 裡。
程式碼如下:

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
vXSLApp, vXSLWorkBook, vXSLSheet:Variant;
begin
vXSLApp:=CreateOleObject('Excel.Appliction');
vXSLApp.WorkBooks.Open('i:\alvin\tmp\1.xls');
vXSLApp.WorkBooks.Open('i:\alvin\tmp\2.xls');
vXSLApp.Application.DisplayAlerts:=False;
try
vXSLApp.WorkBooks['1.xls'].WorkSheets['sheet1'].Move(vXSLApp.WorkBooks['2.xls'].WorkSheets['sheet2']);
vXSLApp.WorkBooks['1.xls'].save;
vXSLApp.WorkBooks['2.xls'].save;
finally
vXSLApp.WorkBooks['1.xls'].close;
vXSLApp.WorkBooks['2.xls'].close;
vXSLApp.Application.quit;
end;
end;
[/code]

===================引 用 GrandRURU 文 章===================
可以試著指到另一個Workbook的sheet前或後<style type="text/css"><br />qtl { position: absolute; border: 1px solid #cccccc; -moz-border-radius: 5px; opacity: 0.2; line-height: 100%; z-index: 999; direction: ltr;
} qtl:hover,qtl.open { opacity: 1;
} qtl,qtlbar { height: 22px;
} qtlbar { display: block; width: 100%; background-color: #cccccc; cursor: move;
} qtlbar img { border: 0; padding: 3px; height: 16px; width: 16px; cursor: pointer;
} qtlbar img:hover { background-color: #aaaaff;
} qtl>iframe { border: 0; height: 0; width: 0;
} qtl.open { height: auto; } qtl.open>iframe { height: 200px; width: 300px;
}
</style><qtl > <iframe name="content"></iframe>
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。
編輯記錄
alvin26 重新編輯於 2012-10-26 02:40:45, 註解 無‧
alvin26 重新編輯於 2012-10-26 02:44:16, 註解 無‧
alvin26 重新編輯於 2012-10-26 02:45:11, 註解 無‧
alvin26 重新編輯於 2012-10-26 02:46:08, 註解 無‧
alvin26 重新編輯於 2012-10-26 02:46:56, 註解 無‧
alvin26 重新編輯於 2012-10-26 02:48:04, 註解 程式碼好難排啊..都排不好‧
alvin26 重新編輯於 2012-10-26 02:50:30, 註解 怎麼都會出現
啊..@@‧
alvin26 重新編輯於 2012-10-26 02:52:22, 註解 怎麼都會出現 d i v 啊‧
系統時間:2017-12-15 4:52:15
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!