Foxtable(狐表)用户栏目专家坐堂 → [求助]能否将单一表导出到动态的路径?


  共有8631人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
cqlpjks
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:3194 威望:0 精华:0 注册:2011/2/28 11:57:00
[求助]能否将单一表导出到动态的路径?  发帖心情 Post By:2012/11/28 16:47:00 [只看该作者]

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:\期末成绩统计\”根目录下的代码。

请教能否将此表导出到动态的(临时指定的)目录下?谢谢!


 回到顶部