如何把EXCEL中的SHEET換到另一個XLS檔中 |
答題得分者是:GrandRURU
|
alvin26
初階會員 ![]() ![]() 發表:24 回覆:41 積分:28 註冊:2005-04-12 發送簡訊給我 |
|
P.D.
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
老大仔
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
印象中...還可以這樣做...
依PD大大的方式再加工一下... 讀取a.xls的sheet1(當然~不是把全部資料讀進來) 算出用了哪些範圍內的資料並"選取"起來 複製!! 開啟b.xls 並新增sheet2 貼上... 關掉 結束 印象中...真的只是印象中... 好像有這樣做過的樣子... ===================引 用 P.D. 文 章=================== 不要想的太複雜了, 把 a.xls 的 sheet1 讀進來, 然後 b.xls add 一個 sheet2, 再把 a.sheet1 寫入到 sheet2 就可以 這些在 excel的指令集中都有提供的 |
GrandRURU
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
如果用的是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 發送簡訊給我 |
|
GrandRURU
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
我想,應該和這個作法一樣吧
===================引 用 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 none; left: 365px; top: 106px;"> ![]() |
alvin26
初階會員 ![]() ![]() 發表:24 回覆:41 積分:28 註冊:2005-04-12 發送簡訊給我 |
第一、第二是指定在哪個sheet之前、之後, 第三個參數 lcid應該是第幾個位置, 看起來好像只是在同一個 workbook中移動耶 ===================引 用 GrandRURU 文 章=================== 我想,應該和這個作法一樣吧 Reference > IXLSWorksheet > Move
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。 |
GrandRURU
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
可以試著指到另一個Workbook的sheet前或後
===================引 用 alvin26 文 章=================== 第一、第二是指定在哪個sheet之前、之後, 第三個參數 lcid應該是第幾個位置, 看起來好像只是在同一個 workbook中移動耶 ===================引 用 GrandRURU 文 章=================== 我想,應該和這個作法一樣吧 Reference > IXLSWorksheet > Move ![]() |
alvin26
初階會員 ![]() ![]() 發表:24 回覆:41 積分:28 註冊:2005-04-12 發送簡訊給我 |
感謝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 none; left: 440px; top: 31px;"> ![]()
------
弟子規,聖人訓,首孝悌,次謹信,泛愛眾,而親仁,有餘力,則學文。
編輯記錄
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |