我爱vb编程，但是基础差，学习了一段时间了，也没有长劲，现在要用了，上不了台面，只好再学了。
问一：哪里有关于vb6中操作Excel详解，这方面的学习材料也行，请指点。
问二：在窗口中有二个按钮，一个“预览”，一个“打印”，有三个文本框，在三个文本框中输入数字，能写入到Excel表中，单击“预览”，实现表格打印的原样，单击“打印”，实现在打印机输出，表有表头为“收费任证”，三行为“第一项”，“第二项”，“第三项”，两列为一列是项目，二列为费用，最下面有“收费员：”。如果写出程序和详细解说更好，我能学会并能修改，本人十分感谢！

先谢谢！我来试试，有问题再请教。

昨天我上机实习，按三楼老师指点，做了一遍效果很好，问题解决了，谢谢三楼老师！

二楼老师该给我们初学者多鼓励，多指点，多扶持，谢了。

请问三楼老师 在上个程序中如何实现输入的信息（比入一天的数据）在窗体上增加一个列表查看？

把前几天的学习结果向老师汇报如下：
原程序：
Private Sub Com1_Click()
Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open(App.Path & "\lian01.xls")
Set sht = WB.Application.Worksheets("sheet1")
sht.Range("A2") = Text1.Text
sht.Range("C2") = CStr(Date)
sht.Range("B3") = Text2.Text
sht.Range("B4") = Text3.Text '写入方式
sht.Range("B5") = Text4.Text
sht.Range("C" & 6) = "姜  欢" '写入方式二
EXAPP.Visible = False
sht.PrintPreview            '打印预览
EXAPP.Worksheets("sheet1").PrintOut
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

语句Worksheets("sheet1")中sheet1试着用我的文件名代替为什么不行呢？

请问老师 在上个程序中(13楼程序)如何实现输入的所有信息（如:一天的数据）在窗体上加“查看查询”钮 ，增加一个列表能够查看查询？

我再试试吧，但愿能成功！