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


  共有1552人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
ljh29206
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1361 积分:12049 威望: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)
        Next
    Next
[此贴子已经被作者于2016/9/6 17:05:13编辑过]

 回到顶部