请教如何用2位数组形式写入 excel - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教如何用2位数组形式写入 excel

共有2053人关注过本帖树形打印复制链接主题：请教如何用2位数组形式写入 excel

ljh29206

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

请教如何用2位数组形式写入 excel 发帖心情

Post By：2016/9/6 15:41:00 [只看该作者]

For i As Integer = 0 To Tables("xr").Rows.Count - 1

ws.cells(32,4+i).value = Tables("xr").Rows(i)("测量时间")

ws.cells(33,4+i).value = Tables("xr").Rows(i)("测量者")

For x As Integer = 1 To clgs '测量个数

ws.cells(33+x,4+i).value = Tables("xr").Rows(i)("测量值" & x)

[此贴子已经被作者于2016/9/6 17:05:13编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/9/6 16:21:00 [只看该作者]

代码没有问题，具体想什么，截图说明

ljh29206

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1368 积分：12189 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2016/9/6 17:04:00 [只看该作者]

Dim x,y,k,l As Integer

x = 2 + clgs - 1

y = Tables("xr").Rows.Count

Dim arr(0 To x,0 To y) As Object '定义二维数组

For l = 0 To x

For k = 0 To Tables("xr").Rows.Count - 1

If l = 0 Then

arr(l,k) = Tables("xr").Rows(k)("测量时间")'

ElseIf l = 1 Then

arr(l,k) = Tables("xr").Rows(k)("测量者")

Else

arr(l,k) = Tables("xr").Rows(k)("测量值" & l - 1)

End If

Dim Rg2 As MSExcel.Range

Rg2 = Ws.Range(ws.cells(32,4),ws.cells(32+x,4+y))

Rg2.Value = arr

用数组录入速度快了很多

[此贴子已经被作者于2016/9/6 17:05:27编辑过]

主题：请教如何用2位数组形式写入 excel