提取word表格数据到Excel的vba程序代码
需积分: 0 67 浏览量
2023-04-13
23:33:44
上传
评论
收藏 15KB DOC 举报
Private Sub CommandButton1_Click()
Set wdcx = CreateObject("Word.Application") '创建 word 应用程序进程
wddz = Dir(ThisWorkbook.Path & "\*.docx") '在当前路径下搜索扩展名为 docx 的文档
Cells(1, 1) = "姓名" '
Cells(1, 2) = "家庭人口数"
Cells(1, 3) = "地址"
Cells(1, 4) = "关系" '
Cells(1, 5) = "身份证"
Cells(1, 6) = "健康状况"
Cells(1, 7) = "婚姻状况"
Cells(1, 11) = "教育程度"
Cells(1, 10) = "家庭困难综合情况"
Range("A1:I1").Interior.Color = vbGreen '红色 red，黄色 yellow，绿色 green，蓝色 blue
T = 2 '作为 excel 单元格行的变量从第二行开始
Do While wddz <> ""
Set wdwd = wdcx.Documents.Open(ThisWorkbook.Path & "\" & wddz) '打开搜索到的文档
N = wdcx.ActiveDocument.Tables.Count '将每个 word 文档中表格的数量赋值给 N
For i = 1 To N
With wdcx.ActiveDocument.Tables(i) '对于第 I 张表执行以下命令
Cells(T, 1) = Left(.cell(2, 2), Len(.cell(2, 2)) - 2) '姓名
Cells(T, 2) = Left(.cell(2, 4), Len(.cell(2, 4)) - 2) '家庭人口数
Cells(T, 3) = Left(.cell(3, 2), Len(.cell(3, 2)) - 2) '地址
Cells(T, 4) = Left(.cell(12, 2), Len(.cell(12, 2)) - 2) '关系
Cells(T, 5) = Left(.cell(12, 12), Len(.cell(12, 12)) - 2) '身份证
Cells(T, 6) = Left(.cell(12, 6), Len(.cell(12, 6)) - 2) '健康状况
Cells(T, 7) = Left(.cell(12, 5), Len(.cell(12, 5)) - 2) '婚姻状况
Cells(T, 11) = Left(.cell(12, 8), Len(.cell(12, 8)) - 2) '教育程度
Cells(T, 10) = Left(.cell(22, 2), Len(.cell(22, 2)) - 2) '家庭困难综合情况
If Left(.cell(22, 1), Len(.cell(22, 1)) - 2) = "家庭困难综合情况" Then
Cells(T, 12) = Left(.cell(22, 2), Len(.cell(22, 2)) - 2) '家庭困难综合情况，此处多个判断镶嵌可直
接少动脑
Else
End If
T = T + 1
End With
Next i
wddz = Dir
Loop
资源评论
