If FileSys.FileExists("E:\\期末成绩统计\\初中语数外分校統计表.xls") Then \'如果指定的文件存在
    FileSys.DeleteFile("E:\\期末成绩统计\\初中语数外分校統计表.xls",2,2) \'则彻底删除之
    Dim Values() As String = {"语文","数学","英语"}
    For Each Value As String In Values
        If  Value <> "成绩库" Then
            Dim ex As New Exporter
            ex.SourceTableName = Value & "层次" \'指定导出表
            ex.FilePath = "E:\\期末成绩统计\\初中语数外分校統计表.xls" \'指定目标文件
            ex.Format = "Excel" \'导出格式为Excel
            ex.Export() \'开始导出
        e.Form.Controls("Label1").Text = "正在导出统计统计表,请稍后……"
       End If
    Next
Else
    Dim Values() As String = {"语文","数学","英语"}
    For Each Value As String In Values
        If  Value <> "成绩库" Then
            Dim ex As New Exporter
            ex.SourceTableName = Value & "层次" \'指定导出表
            ex.FilePath = "E:\\期末成绩统计\\初中语数外分校統计表.xls" \'指定目标文件
            ex.Format = "Excel" \'导出格式为Excel
            ex.Export() \'开始导出
        End If
    Next
End If
e.Form.Controls("Label1").Text = "统计表已导出,位置:E:\\期末成绩统计\\… 请修改表名!"

这是将“初中语数外分校統计表”导出到“E:\\期末成绩统计\\”根目录下的代码。

请教能否将此表导出到动态的（临时指定的）目录下？谢谢！

谢谢！

用这得行了：

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  \'保存文件
End If