以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  请教如何用2位数组形式写入 excel  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90143)

--  作者：ljh29206 --  发布时间：2016/9/6 15:41:00 --  请教如何用2位数组形式写入 excel   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)         Next     Next [此贴子已经被作者于2016/9/6 17:05:13编辑过]

--  作者：有点蓝 --  发布时间：2016/9/6 16:21:00 --   代码没有问题，具体想什么，截图说明

--  作者：ljh29206 --  发布时间：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         Next     Next     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编辑过]