你的过滤代码在哪里,报什么错?
我测试下面的代码没有问题:
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" '设置筛选器If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 Tables("表A").Filter = "第一列 = '1'" Tables("表A").SaveExcel(dlg.FileName, "订单") '保存文件End If