Excel макрос сбрасывает форматы столбцов

Question

Я копирую некоторые данные из Access в Excel, используя макрос 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 

Что меняет форматы - Ясная команда в 1-й линии, или CopyFromRecordset? Как сохранить форматы ячеек?

Answer 1

Возможно использование ClearContents вместо Clear