以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据导出问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69469)
--  作者：q2649295605
--  发布时间：2015/6/5 16:27:00
--  数据导出问题？
Dim ex As New Exporter
ex.SourceTableName = "维修" \'指定导出表
ex.FilePath = "d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Filter = "[_Identify]= " & Tables("维修").Current("_Identify") \'指定导出当前表的当前行
ex.Export() \'开始导出

另外我想：d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls  已经存在！

再次运行的时候，能把想要导出的数据添加到已存在的售后记录.xls 中去！


好不好弄啊
--  作者：Bin
--  发布时间：2015/6/5 16:30:00
--  
那就只有编码导出了
结合
--  作者：q2649295605
--  发布时间：2015/6/5 16:45:00
--  我理解下！
您的意思是：先把已存在的售后记录.xls合并到我的表中！之后再导出？


如果这样的话，之前存在的售后记录.xls是不是就消失了！ 如果还在的话是不是还不好导出！提示：“表 \'维修\' 已存在。
[此贴子已经被作者于2015/6/5 16:44:52编辑过]
--  作者：Bin
--  发布时间：2015/6/5 16:47:00
--  
我的意思是.直接编码导出. 

然后下次导出.先读取上次导出的文件.接着往后面追加内容
--  作者：q2649295605
--  发布时间：2015/6/5 16:55:00
--  
哦！！！！忒难了！方便帮我改下吗？
--  作者：大红袍
--  发布时间：2015/6/5 16:59:00
--  

是添加到后面，还是重新生成一个？

 

Dim ex As New Exporter
ex.SourceTableName = "维修" \'指定导出表
ex.FilePath = "d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls" \'指定目标文件
If FileSys.FileExists(ex.FilePath) Then
    FileSys.DeleteFile(ex.FilePath, 2, 2)
End If
ex.Format = "Excel" \'导出格式为Excel
ex.Filter = "[_Identify]= " & Tables("维修").Current("_Identify") \'指定导出当前表的当前行
ex.Export() \'开始导出
--  作者：q2649295605
--  发布时间：2015/6/5 17:01:00
--  
添加到后排
--  作者：q2649295605
--  发布时间：2015/6/5 17:03:00
--  谢谢先
先 谢谢了！

添加到后面
--  作者：q2649295605
--  发布时间：2015/6/5 17:19:00
--  。。。
大哥，帮帮忙噻！
--  作者：大红袍
--  发布时间：2015/6/5 17:45:00
--  

Dim Book As XLS.Book
Dim sheet As XLS.Sheet
Dim fname As String = "d:\\表A.xls"
Dim t As Table = Tables("表A")
If FileSys.FileExists(fname)
    book = new XLS.Book(fname)
    sheet = book.Sheets("表A")
Else
    book = new XLS.Book
    sheet = book.Sheets(0)
    sheet.Name = "表A"
    For i As Integer = 0 To t.Cols.Count - 1
        sheet(0,i).Value = t.Cols(i).Name
    Next
End If

For i As Integer = 0 To t.Cols.Count - 1
    sheet(sheet.Rows.Count, i).Value = t.Current(i)
Next

book.Save(fname)