Word报告自动化从Excel中采集数字

Question

我需要通过从Excel中提取数字来自动报告单词。我搜索并遵循源代码http://www.makeuseof.com/tag/integrate-excel-data-word-document/

代码无法正常运行并遇到大量错误。 1. Excel未打开 2.遇到运行时错误'438'：对象不支持此属性或方法。

我已经使用了网站建议的“早期绑定”代码，不工作，研究使用“后期绑定”。仍然不起作用。我插入“Microsoft Excel 14.0对象库”并在Word文档中的“ActiveX控件”下插入“标签”

不知道出了什么问题。

当前VBA代码

Private Sub CommandButton1_Click() 

Dim objExcel As Object 
Set objExcel = CreateObject("Excel.Application") 

Set exWb = objExcel.Workbooks.Open("C:\Users\adong\Desktop\Reporting.xlsx") 

ThisDocument.DMY.Caption = exWb.Sheets("Summary").Cell(5, 4) 

exWb.Close 

Set exWb = Nothing 

End Sub 

以前的代码

Private Sub CommandButton1_Click() 
Dim objExcel As New Excel.Application 
Dim exWb As Excel.Workbook 

Set exWb = objExcel.Workbooks.Open("C:\Users\adong\Desktop\Reporting.xlsx") 

ThisDocument.DMY.Caption = exWb.Sheets("Summary").Cells(5, 4) 

exWb.Close 

Set exWb = Nothing 

End Sub 

Answer 1

适应代码：https://www.experts-exchange.com/questions/26874253/How-to-loop-with-VBA-on-all-controls-placed-in-a-Word-doc.html

您可以编写一个效用函数来得到一个ActiveX控件，它的名字和托管文件：

Private Sub CommandButton1_Click() 

    Dim con As Object 
    Dim objExcel As Object, exWb As Object 


    Set con = ActiveXControlByName(ThisDocument, "DMY") 
    If Not con Is Nothing Then 

     Set objExcel = CreateObject("Excel.Application") 
     Set exWb = objExcel.Workbooks.Open("C:\Users\adong\Desktop\Reporting.xlsx") 
     con.Caption = exWb.Sheets("Summary").Cell(5, 4).Value 
     exWb.Close False 
     Set exWb = Nothing 
     objExcel.Quit 

    End If 

End Sub 

Function ActiveXControlByName(doc As Document, theName As String) As Object 
    Dim ilsh As InlineShape 
    Dim sh As Shape, ob As Object 
    For Each ilsh In doc.InlineShapes 
     If ilsh.Type = wdInlineShapeOLEControlObject Then 
      Set ob = ilsh.OLEFormat.Object 
      If ob.Name = theName Then 
       Set ActiveXControlByName = ob 
       Exit Function 
      End If 
     End If 
    Next ilsh 
    For Each sh In ActiveDocument.Shapes 
     If sh.Type = msoOLEControlObject Then 
      Set ob = sh.OLEFormat.Object 
      If ob.Name = theName Then 
       Set ActiveXControlByName = ob 
       Exit Function 
      End If 
     End If 
    Next sh 
    'if got here then control was not found... 
    Set ActiveXControlByName = Nothing 
End Function