如何在WORD中引用EXCEL表格中某一单元格的数值

鑫碎鸟无痕

因为工作需要，我的WORD文档里需要更新很多数据，而数据的来源又是EXCEL文档，只需要某一个单元格里的数值，所以寻求大神帮助  能不能在WORD文档里利用什么办法自动更新那些数据。 谢谢       具体就是WORD文档也就是图1里的 XX 人数  引用 图 2里的数值  且我更新图2的EXCEL表格后  希望WORD能自动更新。。。。。。。。。不知道能否办到

gwjkkkkk

Option Explicit
Sub TEST()
    Dim xlApp As Object, Items As FileDialogSelectedItems, strPath$
    Dim ar, br, i&, j&, r&, strJoin$
   
    strPath = ThisDocument.Path & "\"
    With Application.FileDialog(1)
        With .Filters
            .Clear
            .Add "Word文档(doc?)", "*.xls"
        End With
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show Then Set Items = .SelectedItems Else Exit Sub
    End With
'
    Application.ScreenUpdating = False
   
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err <> 0 Then
        Set xlApp = CreateObject("Excel.Application")
    End If
   
    With xlApp.Workbooks.Open(Items(1))
        With .Sheets(1)
            r = .Cells(.Rows.Count, "A").End(xlUp).Row
            ar = .Range("A5:i" & r).Value
            ReDim br(1 To UBound(ar) - 1)
            For i = 2 To UBound(ar)
                strJoin = ""
                For j = 2 To UBound(ar, 2)
                    If InStr(ar(1, j), "率") Then
                        strJoin = strJoin & "," & ar(1, j) & Format(ar(i, j), "0.00%")
                    Else
                        strJoin = strJoin & "," & ar(1, j) & ar(i, j)
                    End If
                Next j
                br(i - 1) = ar(i, 1) & " " & Mid(strJoin, 2)
            Next i
        End With
        .Close False
    End With
   
    ActiveDocument.Content.Text = Join(br, vbCr)
   
    If Err <> 0 Then xlApp.Quit
    Set xlApp = Nothing
    Set Items = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

运行doc文件。。。

zds0616

如果数据量少，直接复制后粘贴为链接就可以，如果数量量多，用插件吧，也不是很难的功能。