Dim dt As Table = Tables("项目总表")
Dim dt1 As Table = Tables("项目总表.AA")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red '样式的背景颜色设为红色
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
CurrentTable.Position = r
book.Sheets.Add(dt.rows(r)(0))
Dim Sheet1 As XLS.Sheet = Book.Sheets(r+1) '循环引用工作簿的工作表
For c1 As Integer = 0 To dt1.Cols.Count -1
Sheet1(0, c1).Value = dt1.Cols(c1).Name
Next
For r1 As Integer = 0 To dt1.Rows.Count - 1
For c0 As Integer = 0 To dt1.Cols.Count -1
Sheet1(r1 +1, c0).Value = dt1.rows(r1)(c0)
Next
Next
For c As Integer = 0 To dt.Cols.Count -1
Sheet(r +1, c).Value = dt.rows(r)(c)
Next
Sheet(r+1,0).Hyperlink = Book.Sheets(r+1)（狐狸爸爸帮我看看这句代码该怎么改）
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
加好友 
发短信
Post By：2020/1/14 17:32:00 [只看该作者]
