5楼和9楼的意思是:希望把5楼的“一月”工作表界面显现在“图片框”中。

[ 本帖最后由 HVB6 于 2015-1-23 08:46 编辑 ]

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

把前几天的学习结果向老师汇报如下：
原程序：
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楼程序)如何实现输入的所有信息（如:一天的数据）在窗体上加“查看查询”钮 ，增加一个列表能够查看查询？

操作excel，要用到VBA。VBA是VB面向应用程序的接口！据说微软的所有产品均支持VBA，使之自动化……。

本人开发有一个“多薄多表合并mergebooks.dll”,就是用VBA开发、VB封装的，可自动对excel表格进行汇总，可从网上搜索、下载、安装、使用；
另外开发有一个“DBMS_lx数据库查询暨管理系统”，是用VBA自动化操作access的！

VBA代码可以直接编写在excel中，叫做“宏”。也可以制作成excel插件，做成工具按钮、菜单、或功能区按钮，还可用VB封装。

我用画线和打字的方法是为了制作满足打印样式的单据。excel文件作为源文件，提取到自己画的单据中打印出来。如果要打印原本的excel文件，不用这样做。

谢谢回复。

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

要得能查询的话,就能当个袖珍版的数据库来用了