Foxtable(狐表)用户栏目专家坐堂 → Excel代码怎样写成指定一个表的内容?


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

主题:Excel代码怎样写成指定一个表的内容?

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


加好友 发短信
等级:一尾狐 帖子:423 积分:4231 威望:0 精华:0 注册:2009/5/16 21:42:00
Excel代码怎样写成指定一个表的内容?  发帖心情 Post By:2011/7/17 18:03:00 [只看该作者]

Dim st As String  ="修理冷气 换日本翻新冻cail一个 方哇呶 抽真空入环保雪种 入134a泵油"
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
For n As Integer = 0 To st.split(" ").Length-1 '向工作表的单元格中设置值
    Sheet(n, 0).Value = st.split(" ")(n)
   Next
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
 
己上Excel代码怎样写成指定一个表的内容?

 回到顶部