VB操作Excel--Selection.Font.Color报错

[peter82]

用VB导出EXCEL时有下面一句改变存储格字体颜色，我有多个EXCEL，导第一个没问题，但第二个时到这段就报错，错误指向Selection.Font.Color = vbRed这行，提示是run-time error "91":object variable or with block variable not set。请高手告知如何处理？ XlsSheet.Cells(I, 2)是可以得到值的

Do While XlsSheet.Cells(I, 2) <> ""
DoEvents
DoEvents
XlsSheet.Cells(I, J).Select
Selection.Font.Color = vbRed
I = I + 23
Loop

[yinweihong]

Selection没有实例


XlsSheet.Cells(I, J).Select →set Selection = XlsSheet.Cells(I, J).Select

[莫情莫钱]

xlsSheet.Cells(1, 1).Value = strtemp
    xlsSheet.Cells(1, 1).Font.Size = 16
    xlsSheet.Cells(1, 1).Font.Color = &HFF00FF