Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim strDestination As String
    Dim strSource As String
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
                    strSource = App.Path + "\rijiaoyan.xlsx" '确定模板
                    strDestination = "d:\rijiaoyan.xlsx" '要保存到的位置
                    FileCopy strSource, strDestination '保持一个干净的模板
                    Set xlBook = xlApp.Workbooks.Open(strDestination)
                    Set xlSheet = xlBook.Worksheets(1)
         xlSheet.Cells(5, 2).Value = Me.Text2(0).Text
         xlSheet.Cells(6, 2).Value = Me.Text2(1).Text '
         xlSheet.Cells(7, 2).Value = Me.Text2(2).Text  ''         
xlBook.SaveAs "D:\shuju\" + CStr(Me.Text4.Text) + ".xlsx"'此处是将表格保存到D盘shuju文件夹里，格式还是.xlsx
请问怎么转成PDF，或者是图片格式也可以只要不能再编辑既可以。

每一位新手，都能提出一个高难度的问题。我主要是用vfp编程语言，很少使用vb6，所以对此问题没有解决方法。这里很冷清。共同努力！

不要另存，采用打印方式输出PDF

我也只会打印方式生成 PDF 。程序写给自己用的，可以考虑使用这种方法 。
最早我是使用的 PDFCreator ，然后再能生成 PDF 的 免费虚拟打印机 软件太多了，随便挑一个吧，重点是选择能自动生成文件名自动保存的虚拟打印机。