VB 用excel控件创建了一个excel表，设置了格式，怎样给控件创建的excel的单元格赋值

xlsheet.Cells(1, 4) = "a11" '给单元格1行驶列赋值
意思是 给 第一行 第4列赋予数值 a11

xlsheet.Cells(2, 5) = Text1 '给单元格1行驶列赋值
意思是 给 第一行 第4列赋予数值 = 当前TEXT1里面的数值

例子如下：
首先 建立文件：C:\123\123.xls

拷贝一下代码到新的VB工程内：

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

Private Sub Command1_Click() '打开EXCEL过程
If Dir("C:\123\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL不可见
Set xlBook = xlApp.Workbooks.Open("C:\123\123.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 2) = "a11" '给单元格1行驶列赋值
xlsheet.Cells(1, 3) = "a11" '给单元格1行驶列赋值
xlsheet.Cells(1, 4) = "a11" '给单元格1行驶列赋值
xlsheet.Cells(2, 5) = Text1 '给单元格1行驶列赋值
'xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

Private Sub Command2_Click()
If Dir("C:\123\123.xls"<> "" Then '由VB关闭EXCEL
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub