参考：
http://www.foxtable.com/webhelp/topics/1144.htm
比如
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
dim idx as integer = 0
dim r as row
For i As Integer = 0 To 7
if idx > tables("表A").rows.count - 1 then exit for
For j As Integer = 0 To 5
if idx > tables("表A").rows.count - 1 then exit for
r = tables("表A").rows(idx)
Sheet(i, j).Value = r("第一列")
idx = idx + 1
Next
Next
Book.Save("c:\reports\test.xls")
加好友 
发短信
Post By：2022/3/10 11:11:00 [显示全部帖子]
