主题：请教，如何解决导出时出现错误提示

Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    ss = dlg.FileName
   If FileSys.FileExists("& ss &") = True Then
      FileSys.DeleteFile("& ss &",2,2) '则彻底删
   End If
   Dim cn As String
   For Each cl As Col In Tables("S运输合同查询_Table1").Cols
       Dim p As String = cl.Name
       If  Tables("S运输合同查询_Table1").Cols(p).Visible Then
           cn = cn & p & ","
       End If     
   Next
    cn = cn.TrimEnd(",","")
    Dim ex As New Exporter
    ex.SourceTableName = "S运输合同查询_Table1" '指定导出表
    ex.FilePath = ss  '指定目标文件
    ex.Format = "Excel" '导出格式为Excel
    ex.Fields = cn '指定导出字段
    ex.Export() '开始导出
End If

此主题相关图片如下：未命名.jpg

 用最简代码，看是否可以正常导出，然后逐步分析问题。

老兄，每次回复问题热情我喜欢。但没有分析到错误原因，没有回复到关键点上哦。估计是我没有说清楚。

有些电脑导出是没有问题的，也就是代码没有问题的。基本原因肯定会自己先排查的。

 

 既然分析了问题，那就定位到机子上去呗。对于某些深度改造的操作系统，有些windows的功能都是被削减掉了的，导致出错。

系统问题，MDAC不正常。

 

自己编码导出吧：

 

http://www.foxtable.com/help/topics/1148.htm