以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11398)
--  作者：tungwun
--  发布时间：2011/7/20 21:28: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代码怎样写成指定一个表的内容?
--  作者：don
--  发布时间：2011/7/20 22:59:00
--  

Dim Ls As New List(Of String)

For Each r as DataRow In DataTables("XXX").Select("XX Is Not Null")

    Ls.AddRange(r("X").split(" "))

Next


Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For n As Integer = 0 To Ls.Count-1 \'向工作表的单元格中设置值
    Sheet(n, 0).Value = Ls(n)
   Next
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
--  作者：tungwun
--  发布时间：2011/7/20 23:24:00
--  请问指定表内一行内容的代码? 谢谢!

请问指定打印表内一行内容的代码? 谢谢!



 Dim Ls As New List(Of String)

For Each r as DataRow In DataTables("XXX").Select("XX Is Not Null")

    Ls.AddRange(r("X").split(" "))

Next


Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For n As Integer = 0 To Ls.Count-1 \'向工作表的单元格中设置值
    Sheet(n, 0).Value = Ls(n)
   Next
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
[此贴子已经被作者于2011-7-20 23:24:04编辑过]