Excel宏正在重置列格式

Question

我正在使用Excel宏将一些数据从Access复制到Excel。它工作正常，但在此过程中正在更改某些列格式。填写工作表的代码部分是

ActiveSheet.UsedRange.Clear
'Add the data (note blank line between headers & data
Cells(Crow + 2, CColumn).CopyFromRecordset RS
'Add the field headers
For Each Item In RS.Fields
    Cells(Crow, CColumn) = Item.Name
    CColumn = CColumn + 1
    Next Item

哪种格式正在改变 - 第一行中的清除命令，还是CopyFromRecordset？如何保留单元格格式？

Answer 1

也许使用ClearContents而不是Clear