主题：[求助]能否将单一表导出到动态的路径？

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