如何用dephi控制Excel，使粘贴格式呢？？就剩下5分了！！：（(5分)

M

magic_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #1

谢谢了，请给出代码

XlsAppS.WorkBooks.Cells.Select;
XlsAppS.WorkBooks.Selection.Copy;
XlsAppD.WorkBooks.Cells.Select;
XlsAppD.WorkBooks.Selection.???????????????????????????????????

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #2

作个宏看看

 

M

magic_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #3

bbs_delphi,

宏是这样写的，用不了！！
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False