水晶报表导出pdf

[feixiangzaici]

请先看一下这段代码：
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 块变量未设置”

请问是为什么？
请大家帮忙！！！！

[feixiangzaici]

奇怪，难道没有高手，我不信呀！！
在线等呀！！！

[feixiangzaici]

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

[feixiangzaici]

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

[clear_zero]

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

[feixiangzaici]

clear_zero(清晰)
谢谢你
接分