EXCEL数据如何自动引用到WORD文件里

ych9999

EXCEL数据如何自动引用到WORD文件里

沈默00

去VBA版块问下，，，应该没问题，，，

ych9999

有没有比较便捷高效的办法

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, wdApp As Word.Application, strFileName$, strPath$
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "WORD文件.docx"
    If Dir(strFileName) = "" Then MsgBox "WORD文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
    ar = [A1].CurrentRegion.Value
   
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = New Word.Application
        'wdApp.Visible = True
    End If
   
    With wdApp.documents.Open(strFileName)
        With .Content.Find
            .ClearFormatting
            .Text = Chr(32)
            .Replacement.ClearFormatting
            .Replacement.Text = ""
            .Forward = True
            .Execute Replace:=wdReplaceAll
        End With
        For i = 2 To UBound(ar)
            With .Content.Find
                .ClearFormatting
                .Text = ar(i, 1)
                .Forward = True
                .Execute
                If .Found = True Then .Parent.InsertAfter ar(i, 2)
            End With
        Next i
        .SaveAs2 strPath & "TEST"
    End With
   
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

ych9999

如何是这种情况，该怎么做？

ych9999

gwjkkkkk 发表于 2024-8-16 19:54
请参考附件。。。

如果是这种情况，该怎么办呢？

ych9999

gwjkkkkk 发表于 2024-8-16 19:53
Option Explicit
Sub test()
    Dim ar, i&, wdApp As Word.Application, strFileName$, strPath$

如果一个指标出现二次，公式如何改。如再次出现煤炭开采和洗选业增长