Foxtable(狐表)用户栏目专家坐堂 → 请教删除表的代码


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

主题:请教删除表的代码

美女呀,离线,留言给我吧!
xrz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:111 积分:712 威望:0 精华:0 注册:2015/3/12 15:35:00
请教删除表的代码  发帖心情 Post By:2015/3/27 22:04:00 [只看该作者]

老师:在用下面的代码导出表A和表B后,要把A、B、C 三个 删除的话,后面要加什么代码呀?表A和B同时导出后,只能保存在同一个文件里并用sheet1和sheet2分开吗?不能分开保存为两个文件吗?

 

Dim tnames() As String = {"表A", "表B"}
Dim dlg As new SaveFileDialog
dlg.Filter = "Excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    For Each tname As String In tnames
        Dim ex As New Exporter
        ex.FilePath = dlg.FileName
        ex.SourceTableName = tname
        ex.Format = "Excel"
        ex.Fields = "日期,客户,数量,单价"
        ex.Export()
    Next
End If


 回到顶部