- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 填充表格 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175573)
-- 发布时间：2022/3/10 10:58:00
-- 填充表格
如图，请教老师：
表A一列35行，依次填入8行5列的sheet表格，再把此sheet复制到sheet2并清空原sheet内容
此主题相关图片如下：无标题.png
-- 发布时间：2022/3/10 11:11:00
--
参考：http://www.foxtable.com/webhelp/topics/1144.htm
比如
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
dim idx as integer = 0
dim r as row
For i As Integer = 0 To 7
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("第一列")
Sheet(i, j).Value = r("第一列")
idx = idx + 1
Next
Next
Next
Book.Save("c:\\reports\\test.xls")
Book.Save("c:\\reports\\test.xls")
-- 发布时间：2022/3/10 12:08:00
--
我写的时候绕在三层循环里面了…for i ...
for j....
for each r ...