- 博客(5)
- 收藏
- 关注
RSS订阅原创 VBA多条EXCEL记录写入到WORD文档中
d.tables(1).Cell(14, 2) = myWS.Cells(i, 67).Text + myWS.Cells(i, 68).Text + myWS.Cells(i, 69).Text '选举结果。Set d = wd.documents.Open(p & "生成的文件/" & myWS.Cells(i, 1).Text & myWS.Cells(i, 2).Text & ".doc") '打开新文档。
2023-01-05 17:23:06
4687
1
原创 VBA多个WORD文档表格数据写入到EXCEL中
Brr(m, 4) = "'" + Application.Clean(.Cell(1, 6).Range) '出生年月将word表格第1行第6列民族的数据存入当前工作表的D列。Worksheets("Sheet1").Range("A5").Resize(m, UBound(Brr, 2)) = Brr 'Sheet1 A列4行单位格开始写入数据。Brr(m, 18) = "'" + Application.Clean(.Cell(6, 4).Range) '身份证号码。
2023-01-05 17:15:31
3684
3
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人