VB调用excel关于工作薄名称的问题

scorpionc 2008-04-01 10:39:48
Dim xlsapp As New Excel.Application
Dim xlsbook As New Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set xlsbook = xlsapp.Workbooks.Add

Set xlssheet = xlsbook.Worksheets("sheet1")

MsgBox xlsbook.Name '注能够显示名称为book1等的信息,但是不能改变,我想改为其他名称,不知怎么做。
'注整过是在内存中完成,我不需要保存为一个文件,所以无需调用saveas方法,打印完毕后就自动消失.
'但我用ADOBE PDF打印机时,提示的文件名为book1.xls"

xlssheet.Cells(1, 1) = "hello"
xlsapp.DisplayAlerts = False
xlssheet.PrintOut , , 1, , ComboPrt.List(ComboPrt.ListIndex)
xlsbook.Close

xlsapp.Quit
Set xlssheet = Nothing
Set xlsbook = Nothing
Set xlsapp = Nothing
...全文
109 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
UltraBejing 2008-05-01
什么呀
回复
舉杯邀明月 2008-04-01
既然是在内存,又不保存到磁盘上,更改名称有什么意义?
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7522

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-01 10:39
社区公告
暂无公告