如何在copy excel单元的时候将格式也copy过去?

[Amphibian]

XlApp.Sheets(1).UsedRange.Copy
XlApp.Sheets.Add
XlApp.Sheets(1).Paste

我是这么做的,可是copy过去后,内容不变,所有的列宽都不是原来的,怎么样才能将列宽也copy过去???

[lvcoffee]

同样的困扰，急，帮你顶！

[高高兴兴的晶晶]

用 Clipboard 对象 试试，记得这个好像就不用丢失格式了。

[leolan]

XlApp.Sheets(1).PasteSpecial Paste:=xlColumnWidths '先Copy欄寬
XlApp.Sheets(1).PasteSpecial Paste:=xlValues 'Copy值

[leolan]

Sub Macro1()
'將Sheets(1)的全部Copy到Sheet(2)
' Macro1 巨集表
' user 在 2004/4/19 錄製的巨集
'

'
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End Sub

[nik_Amis]

楼上的应该可以，我以前做过很复杂的模板复制，就是录制宏录出来的

你自己录制一点宏看看