如何把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;">
------
弟子規，聖人訓，首孝悌，次謹信，泛愛眾，而親仁，有餘力，則學文。
編輯記錄
|
發表時間：2012-10-25 14:48:23
IP:118.163.xxx.xxx 訂閱
系統時間：2024-04-26 8:31:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |