刚学VB6.0
买了本：Visual Basic从入门到实践
请问为什么光碟里的“本书教学视频”和“本书源代码运行视频演示”在播放中老是会自动停止？
顺便请教一个问题
下面15行中
1. Dim xlApp As Excel.Application
2. Dim xlBook As Excel.Workbook
3. Dim xlSheet As Excel.Worksheet
4. Set xlApp = CreateObject("Excel.application")
5. '创建新工作薄
6. Set xlBook = xlApp.Workbooks.Add
7. Set xlSheet = xlBook.Worksheets("sheet2")
8. '向当前工作表的第一行第一列的单元格输出数据
9. xlSheet.Cells(5, 5) = " & Text2.Text & "
10. '将工作薄文件保存为d:\服装样品管理\cfg_xlt\ksxxsc\ " & Text2.Text & ".xls"
11. xlBook.SaveAs FileName:="d:\服装样品管理\cfg_xlt\ksxxsc\ " & Text2.Text & ".xls"
12. xlBook.Close '关闭工作薄文件
13. xlApp.Quit '结束Excel对象
14. Set xlApp = Nothing '释放xlApp对象的内存空间
15. MsgBox " 信息 “" & Text2.Text & ".xls”导出成功", 64, " 提示 "
第6行的 Set xlBook = xlApp.Workbooks.Add '创建新工作薄语句。是否可以调用已经创建好的模板文件？
第9行的 xlSheet.Cells(5, 5) = " & Text2.Text & "语句。是否可以连接窗体中的Text控件中Text做为单元格5行5列中的文字？
在第15行后怎样写才能让刚创建好的工作薄自动打开？
谢谢！ |
