导出为excel文件时货币的设置问题

hgxly

我在将子窗体的数据导出为excel文件时，对excel表的宽度进行了设置，还对其中一列的单元格式设置成货币型（并小数点2位）。运行到“设置成货币型”一行代码就出现了“错误号为438 错误说明：对象不支持该属性或方法”的提示。请教高手这一行的源码应该怎样写？

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()
For I = 0 To Me.完成工单联合查询_子窗体.Form.Recordset.Fields.Count - 1 'excel表的标题设置
     oBook.Worksheets(1).Cells(1, I + 1).Value = Me.完成工单联合查询_子窗体.Form.Recordset.Fields(I).name
   Next
     oBook.Worksheets(1).Columns("B:B").ColumnWidth = 33.38
     oBook.Worksheets(1).Columns("E:E").ColumnWidth = 12.7
     oBook.Worksheets(1).Columns("H:H").Select
    oBook.Worksheets(1).Selection.NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
             '出错在上面一行
   oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.完成工单联合查询_子窗体.Form.Recordset

~~~~~~~~这里先谢过了。