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

问度娘

问题是不是可以转化为VB从EXCEL文件中读数据,然后再按格式打印?
在EXCEL中的用脚本也可以试试.

Private Sub Command1_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("文件路径及文件名")
Set sht = WB.Worksheets("Sheet1")
sht.Cells(1, 1) = 6 '写入方式一
sht.Range("A2") = 7 '写入方式二
Form1.Caption = sht.Range("B5").Value '从表格取值
'WB.Save'保存编辑后的文件
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

以上是用VB打开EXCEL文件，读/写单元格的例子。
可以在图片框中设定你想要的表格样式，再填入从EXCEL读取来的数据或文本框来的数据。
自己用打印机试试打印图片框的效果。根据打印效果可用图片框做打印预览界面。


[ 本帖最后由 lianyicq 于 2015-1-20 11:15 编辑 ]

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

敬请3楼高手做个例子。谢谢。附件放在E盘下。

不知道要什么样的例子。如果只是对excel单元格的读写，例子代码就够用了。
注意要引用microsoft excel 12.0 object library

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

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

以上是用VB打开EXCEL文件，读/写单元格的例子。
可以在图片框中设定你想要的表格样式，再填入从EXCEL读取来的数据或文本框来的数据。
红色的方法如何做？

在图片框中写字用print的方法
picture1.prinf "ok"
定位用currentx,currenty属性
picture1.currentx=200
picture1.currenty=200
表格的线当然用line方法了
picture1.line(x1,y1)-(x2,y2)