能否实现 excel 文件只预览，不打开

Question

Set xlApp = CreateObject("Excel.Application") '创建Excel对象
    Set XlBook = xlApp.Workbooks.Open("c:\white card.xls") '打开已经存在的Excel工作薄文件
'    xlApp.Visible = True '设置Excel对象可见(或不可见)
    Set xlSheet = XlBook.Worksheets("sheet1")    xlSheet.PrintPreview
    
    xlSheet.PrintOut '打印工作表
    XlBook.CloseTrue '关闭工作薄
    xlApp.Quit '结束Excel对象
    Set xlApp = Nothing '释放xlApp对象
如果把第三行不注释掉，就能打印预览。
如果把第三行注释掉，就不能预览，且程序无法结束。

Answer 1

另外，我想在预览前，给某个单元格的内容赋值。
请问如何为某个单元格赋‘条码’啊？