主题：各位老师，指点一下吧！谢谢

Dim dlg As New FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then

    Dim ex As New Exporter

    ex.SourceTableName = "原始名单" '指定导出表

    ex.FilePath = "" & dlg.SelectedPath & "\" & Tables("展会信息").Current("展会简称") & ".xls"

    ex.Format = "Excel" '导出格式为Excel

    ex.Fields = "邮箱" '指定导出字段

    ex.Filter = "[展会简称] = '" & Tables("展会信息").Current("展会简称") & "'"

    ex.Header = True

    ex.Export() 

End If

运行后提示，“至少一个参数没有被指定值。”