Word 中如何提取 Excel 中相关信息

ANDA2000

求救各位大神：
想要在Word 表格中 number 列输入信息后在Excel sheet1 中相应列查找并将对应的 Name，startdate，enddate 写入word 表格中的 name，start，end列，如附件，谢谢高手们了。

ggmmlol

在EXCEL中把表格做好，最后整体复制到WORD中去。

jiangxiaoyun

Sub 从excel中提取数据()
    Dim Wb As Workbook
    Dim ARR, r&, i&, j&
    Dim ipath As String
    ipath = ActiveDocument.Path & "\"
    Set Wb = GetObject(ipath & "AAA.XLSX")
    ARR = Wb.Sheets("sheet1").[a1].CurrentRegion
    Wb.Close False
    With ActiveDocument.Tables(1)
        r = .Rows.Count
        For i = 2 To r
            For j = 2 To UBound(ARR)
                s = Left(.Cell(i, 1).Range, Len(.Cell(i, 1).Range) - 2)
                If s = ARR(j, 1) Then
                    .Cell(i, 3).Range.Text = ARR(j, 3)
                    .Cell(i, 4).Range.Text = ARR(j, 4)
                End If
            Next
        Next
    End With
End Sub

word中插入模块，粘贴上面代码。
先要在根据--引用，中引用Excel对象
工具--引用--勾选 Microsoft Excel x.x Object Library..

jiangxiaoyun

dsdsd.zip (52.35 KB, 下载次数: 6)

2018-12-29 09:22 上传

点击文件名下载附件

ANDA2000

jiangxiaoyun 发表于 2018-12-29 09:17
Sub 从excel中提取数据()
    Dim Wb As Workbook
    Dim ARR, r&, i&, j&

新年好， 非常感谢您的回复， 脚本运行的结果是输入 “Name” 列 脚本填充 StartDate 和 EndDate 列，由于前面问题没有写清楚，
实际需要解决的是在 word 中输入 “Number“ 列 脚本填充表格中的 Name， StartDate， EndDate 三列信息。

不好意思,图片上传没成功
C:\Users\HE\Desktop\新建文件夹\新建文件夹