在VB程序中用代碼把水晶報表的查詢結果自動匯出成Excel,但在匯出過程中會彈出一個確認對話框,這樣還是要人工按一下，請高手解答

     在VB程序中用代碼把水晶報表的查詢結果自動匯出成Excel,但在匯出過程中會彈出一個Excel的參數設置確認對話框，但參數都己在Code里設置好了，請問各位高手如何把該確認框去掉，直接匯出Excel?

解决方案 »

  1.   

    这个对话框是Excel弹出来的，好像不好去。
    以前我用过的做法是开一个进程来监视有没有Excel弹出窗口，一旦发现的话就Sendkeys把它关掉。看大家还有没有更好的办法吧。
      

  2.   

    Dim x As New CRAXDRT.Application
    Dim y As New CRAXDRT.Report
        
    Set y = x.OpenReport(App.Path & "\001.rpt")
    '设置导出格式
    y.ExportOptions.FormatType = crEFTTabSeparatedValues
    '设置导出路径
    y.ExportOptions.DiskFileName = "c:\xxx.xls"
    '开始导出，true有提示，false无提示
    y.Export True前提是你的水晶报表安装时不要选择默认安装，要自定义，把（几乎）所有的组件全部装尚
      

  3.   

       謝謝，我將crEFTExcel97換成crEFTTabSeparatedValues后是可以直接匯出，但匯出的格式為excel的值格式,但我需要匯出的excel保留原來報表上呈現的格式，所以FormatType選為crEFTExcel97卻會彈出設置對話框，不知是否還有別的辦法?謝謝!
      

  4.   

    那你直接用 crEFTExcel97 不就可以了吗？？当然了，这样的导出格式是有了，但是不会带格线，是个白色底版