Foxtable(狐表)用户栏目专家坐堂 → 导出


  共有1677人关注过本帖树形打印复制链接

主题:导出

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
导出  发帖心情 Post By:2017/3/11 19:53:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    For Each c As String In DataTables("学生信息").GetValues("班级")
        Dim ex As new Exporter
       ex.SourceTableName = "学生信息"
        ex.FilePath = dlg.SelectedPath & c & "基本信息核对表.xlsx"
        ex.Format = "Excel2007"
             ex.Fields ="班级,学生姓名,身份证件号"
        ex.filter = "班级 = '" & c & "'"
        If filesys.fileexists(ex.filepath) Then
            filesys.deletefile(ex.filepath)
        End If
        ex.Export()
    Next
End If

 

 

老师,请问上面代码是想将学生信息分班导出文件保存到选择的目录里,现在是存在了上一次目录里,并且文件名前面也加了所选目录名称,是什么原因,怎么改,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/3/12 17:07:00 [显示全部帖子]

请问老师这是什么原因


 回到顶部