excel的格式复制问题 |
|
尚未結案
|
|
luowy651
高階會員   發表：257 回覆：313 積分：114 註冊：2003-04-09 發送簡訊給我 |
比如说，我有一个excel 的book1,我用以下code得到了sheet3,
adoquery2.sql.add('Select [sheet1$].*,[sheet2$].产量 into [sheet3] From [sheet1$] left join [sheet2$]');
adoquery2.sql.add('on [sheet1$].产品代码=[sheet2$].产品代码');
adoquery2.sql.add('order by [sheet2$].产品代码 desc');
adoquery2.execsql;
adoquery2.close;
adoquery2.sql.clear;
这一部分能通过，
然后我想把sheet1中的格式用格式刷复制并paste到sheet3中去，我用录制巨集的方法得到如下vb代码：
Sheets("Sheet1").Select;
Cells.Select;
Selection.Copy;
Sheets("sheet3").Select;
Cells.Select;
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False;
Application.CutCopyMode = False;
并改成delphi格式，如下：
MyExcel.WorkSheets[ 'Sheet1' ].Activate;
MyExcel.WorkSheets[ 'Sheet1' ].Select;
MyExcel.Cells.Select;
MyExcel.Selection.Copy;
MyExcel.WorkSheets[ 'Sheet3' ].Select;
MyExcel.Cells.Select;
MyExcel.Selection.PasteSpecial;
MyExcel.Selection.PasteSpecial Paste:=xlFormats;
MyExcel.Paste:=xlFormats;
MyExcel.Operation:=xlNone;
MyExcel.SkipBlanks:=False;
MyExcel.Transpose:=False;
Application.CutCopyMode = False;
但不通过，请问错在哪里？ 谢谢！ 發表人 - luowy651 於 2004/08/03 11:35:44 發表人 - luowy651 於 2004/08/03 11:42:27
|
|
luowy651
高階會員 發表：257 回覆：313 積分：114 註冊：2003-04-09 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
參考這篇試試: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&selm=VA.00001d06.00ba80df%40blueyonder.co.not-this-bit.uk
begin WS.Range['A54', 'T94'].PasteSpecial(xlFormats, xlPasteSpecialOperationNone, EmptyParam, EmptyParam); end;-- 向 KTop 的弟兄們致敬! 
|
|
luowy651
高階會員 發表：257 回覆：313 積分：114 註冊：2003-04-09 發送簡訊給我 |
引言: 參考這篇試試: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&selm=VA.00001d06.00ba80df%40blueyonder.co.not-this-bit.uk谢谢hagar大大的回应，小弟万分感激，但我在run时发现如下错误： "undeclared identifier 'EmptyParam'"，不知怎么回事？code如下： MyExcel.WorkSheets[ 'Sheet1' ].Activate; MyExcel.WorkSheets[ 'Sheet1' ].Select; MyExcel.Cells.Select; MyExcel.Selection.Copy; MyExcel.WorkSheets[ 'Sheet3' ].Select; MyExcel.Cells.Select; MyExcel.Range['A54', 'T94'].PasteSpecial(xlFormats, xlPasteSpecialOperationNone,EmptyParam,EmptyParam); MyExcel.Application.CutCopyMode:= False; 發表人 - luowy651 於 2004/08/04 10:20:15begin WS.Range['A54', 'T94'].PasteSpecial(xlFormats, xlPasteSpecialOperationNone, EmptyParam, EmptyParam); end;-- 向 KTop 的弟兄們致敬! |
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
luowy651
高階會員 發表：257 回覆：313 積分：114 註冊：2003-04-09 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
發表時間：2004-08-03 10:41:50
IP:218.74.xxx.xxx 未訂閱
系統時間：2024-09-12 7:10:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |