VB 导出EXCEL循环问题

VB+SQL做报表 导出EXCEL
目的： C
    500.28
    500.25
    550.23  且要求导出EXCEL中单元格数据和编辑栏数据保留位数一至
rsDetailData.Open "SELECT EmployeeCode,EmployeeName,WorkDay,BasePay,OvertimeDay,... FROM ReportTemp WHERE Team=N'" & rsReportData("Team").Value & "' ORDER BY EmployeeCode"
.Range("A" & Trim(Str(intCurrentRow))).CopyFromRecordset rsDetailData
方法1：   .Range("C" & Trim(Str(intCurrentRow))) = Format(rsDetailData("WorkDay"), "0.00")     
结果： C
    500.28
    500.25431
    550.23424  只能实现一个单元格格式化
方法2   .Range("C" & Trim(Str(intCurrentRow)) & ":C" & Trim(Str(intCurrentRow + rsDetailData.RecordCount))) = Format(rsDetailData("WorkDay"), "0.00")
结果： C
    500.28  
    500.28  
    500.28   能实现循环但数据都是一样的
困惑以久了``