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

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 --------------------编程问答-------------------- 既然是在内存，又不保存到磁盘上，更改名称有什么意义？ --------------------编程问答-------------------- 什么呀

补充：VB ,  基础类