水晶报表导出pdf

Question

请先看一下这段代码：
Dim Report As New CrystalReport_user
Dim wjfilesys As FileSystemObject 'FSO 对象，用于文件操作
Dim capp As New CRAXDDRT.Application '报表集合对象
Dim carp As New CRAXDRT.Report  '报表集合中的报表对象
Dim carsubp As New CRAXDRT.Report   '报表集合对象中的子报表对象
Dim Pic2 As OLEObject  '报表对象中的Ole对象
Dim mytxt As CRAXDRT.TextObject  '报表对象中的Textbox对
Private Sub Cmd_Click()
  Dim myExportFile As String
   myExportFile = App.Path + "\temp.pdf"
  If wjfilesys.FileExists(myExportFile) Then
     wjfilesys.DeleteFile (myExportFile)
  End If
  Report.ExportOptions.DiskFileName = myExportFile
  Report.ExportOptions.FormatType = crEFTPortableDocFormat
  Report.ExportOptions.DestinationType = crEDTDiskFile
  Report.ExportOptions.PDFExportAllPages = True
  Report.Export (False)
End Sub
当程序执行到  If wjfilesys.FileExists(myExportFile) Then  时，
报错：“实时错误‘91’，对象变量或with 块变量未设置”请问是为什么？
请大家帮忙！！！！

Answer 1

难道大家没有遇见过吗？
就是 If wjfilesys.FileExists(myExportFile) Then  
这一句呀，是不是看到代码就头疼了？？？
我在顶！！！

Answer 2

朋友，路过了就进来吧，我回给你们一个惊喜的：
想多了解水晶报表方面的知识。请你们点击：
http://blog.csdn.net/feixiangzaici/archive/2007/04/10/1558832.aspx

Answer 3

Dim wjfilesys As new  FileSystemObject 'FSO 对象，用于文件操作

Answer 4

clear_zero(清晰) 
谢谢你
接分