主题：[求助]导出的数据可否追加到某个excel文件里？

由foxtable中的表导出的数据可否追加到已经存在的excel文件里（不是覆盖）或者access里的某个表？

如果要达到这种效果有什么办法实现。

如果要将用sql查询出的数据追加到已经存在的excel里要怎做。

看了帮助文件就知道了，access可以的，excel比较困难吧。

自己写代码是可以解决的。

请问要怎么写代码，给一些思路和提示。谢谢！

这是帮助中的一段示例代码：

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i, 0).Value = (i + 1) * 10
    Sheet(i, 1).Value = (i + 1) * 100
    Sheet(i, 2).Value = (i + 1) * 1000
Next
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

假设Excel中已经存在了上面代码执行后的数据，那么可以参考下面的代码来追加数据。

Dim Book As New XLS.Book("c:\reports\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim r As Integer = Sheet.Rows.Count '获取Excel中已经存在的总行
For i As Integer = 0 To 9 '向工作表的单元格中设置值
    Sheet(i+r, 0).Value = (i + 1) * 10
    Sheet(i+r, 1).Value = (i + 1) * 100
    Sheet(i+r, 2).Value = (i + 1) * 1000
Next
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()

楼主要看懂foxtalbe自带的关于外部数据源的例子，数据从sql 经狐表 到 access，应分别建立两个外部数据源，从sql库里fill过来临时数据表1，从Access库里fill过来一个空表2（和sql的表结构一致的），再将表1数据导到表2中，save一下就可以了。

我自己试试改一下代码，谢谢啦！

导出的数据有foxtable内部表和用sql语句从access里查询过来的数据，导出追加到已存在的excel文件 czy 已经给我示例代码了，现在还有的疑问是如何导出追加到access里已经存在的表里。

http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&Id=5895

Insert Into 语句

用于向表中添加行。
本语句不能用于内部数据表，只能向外部数据表添加行。

yang版： 以后贴上连接 http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&Id=5895
 时，多加一个空格，就可以直接点击打开连接了 如：http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&Id=5895