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
...全文
153 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
UltraBejing 2008-05-01
  • 打赏
  • 举报
回复
什么呀
舉杯邀明月 2008-04-01
  • 打赏
  • 举报
回复
既然是在内存,又不保存到磁盘上,更改名称有什么意义?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧