Foxtable(狐表)用户栏目专家坐堂 → [求助]导出的数据可否追加到某个excel文件里?


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

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

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33957 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/2/1 23:31:00 [显示全部帖子]

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

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33957 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/2/1 23:40:00 [显示全部帖子]

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

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()

 回到顶部