高分相送100,有關excel報表問題！高手邦邦忙

[bloodghost]

程序的主要功能是由用戶輸入行列值後，自動產生excel報表，下面是列值的判斷代碼，c代表列值
For b = 1 To c
If b > 9 Then
f = Val(Left$(Str$(b), 1))

ObjExcelSheet.Cells(6, 3 + b).Value = Chr$(48 + f) + Chr$(48 + b - f * 10)這一句是在某單元格中產生10,11,12,.......數值判斷條件有誤，怎麼修改

Else
ObjExcelSheet.Cells(6, 3 + b).Value = Chr$(48 + b)
這一句是在單元格中填入1,2,3,.....9數值
End If

Next b

[自由之眼]

x1sheet.Cells(2, 8) = Text1(4).Text
x1sheet.Cells(2, 10) = Text1(5).Text
我是这样写的，没有问题