Dim str1 As String
str1 = Tables("调整数据").Current("年度")
Dim str2 As String
str2 = Tables("调整数据").Current("公司名称")
Dim str3 As String
str3 = Format(Date.Now, "yyyyMMddHHmmss")

Dim str4 As String
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    str4=dlg.SelectedPath

Dim ex1 As New Exporter
ex1.SourceTableName = "报表数据" \'指定导出表
ex1.filter = Tables("报表数据").Filter
ex1.filepath = str4 & "\\" & str1 & str2 & str3 & ".mdb" \'指定目标文件
ex1.Export() \'开始导出
Dim ex2 As New Exporter
ex2.SourceTableName = "调整数据" \'指定导出表
ex2.filter = Tables("调整数据").Filter
ex2.filepath = str4 & "\\" & str1 & str2 & str3 & ".mdb" \'指定目标文件
ex2.Export() \'开始导出

MessageBox.Show("数据已导出至:" & str4,"提示" )
End If

如上代码 导出的filter应该是正确的，但是始终导不出数据，导出的mdb文件中没有表，如果去掉filter参数就把表全部导出了。

贴出条件看看

msgbox(Tables("报表数据").Filter)

导出，建议直接用saveexcel更简单

http://www.foxtable.com/webhelp/scr/0559.htm