VB输出到EXCEL中遇到的问题！！

--------------------编程问答-------------------- 本人有个简单的保存为excel表格的办法：
当作文本文件写入，每列之间加chr(9)，每行之间加vbcrlf，文件名为*.xls --------------------编程问答-------------------- 看不到图片。

1.将 xlapp xlbook xlsheet 设为全局变量
2.用 Set xlbook = xlapp.Workbooks.Open "beifen.xls" 打开
3.设 iLine 变量计行数
 iLine = xlsheet.Range("A10000").End(XlUp).Row + 1
 xlsheet.Cells(iLine, 1) = Label1.Caption
 xlsheet.Cells(iLine, 2) = Label2.Caption
 xlsheet.Cells(iLine, 3) = Label4.Caption
 xlsheet.Cells(iLine, 4) = Label3.Caption
 xlsheet.Cells(iLine, 5) = Label5.Caption
 xlsheet.Cells(iLine, 6) = Label6.Caption --------------------编程问答-------------------- 写循环都不会

补充：VB ,  数据库(包含打印，安装，报表)