word-VBA를 사용하여 Excel에서 Word로 Excel에 붙여 넣기

Question

Excel에 내 DB가 있고 Word에서 보고서를 만들려면 해당 데이터베이스를 참조하고 싶습니다. 나는 수색하고 다른 선택권을 시도했다 그러나 아무도는 작동하게 보이지 않는다. 어떤 제안이라도 큰 도움이 될 것입니다. 필자는 기본적으로 두 번째 메시지 상자의 내용을 Word 문서에 붙여 넣기를 원합니다.

Dim ctl As Control 
Dim some As String 
Dim objExcel As Object 
Dim objWord As Object 
On Error Resume Next 

    Set objExcel = GetObject(, "Excel.Application") 
    If objExcel Is Nothing Then 
     Set objExcel = CreateObject("Excel.Application") 
    End If 

    Set objWord = GetObject(, "Word.Application") 
    If objWord Is Nothing Then 
     Set objWord = CreateObject("Word.Application") 
    End If 

    On Error GoTo 0 

    objExcel.Workbooks.Open ("File_Dir") 
    objExcel.Visible = False 
    objWord.Documents.Open ("File_Dir") 
    objWord.Visible = True 

    For Each ctl In Me.Controls 
     Select Case TypeName(ctl) 
      Case "CheckBox" 
       If ctl.Value = True Then 
        MsgBox ctl.Name 
        MsgBox objExcel.Names(ctl.Name).RefersToRange.Value 
        some = objExcel.Names(ctl.Name).RefersToRange.Value 

       End If 
     End Select 
     Next ctl 
    objExcel.Quit 
    Set objExcel = Nothing 
    MsgBox "complete" 

Answer 1

interop을 사용하고 있습니까?

Dim ctl As Control 
    Dim some As String 
    Dim objExcel As Object 
    Dim objWord As Object 
    On Error Resume Next 

    Set objExcel = GetObject(, "Excel.Application") 
    If objExcel Is Nothing Then 
      Set objExcel = CreateObject("Excel.Application") 
    End If 

    Set objWord = GetObject(, "Word.Application") 
    If objWord Is Nothing Then 
      Set objWord = CreateObject("Word.Application") 
    End If 

    On Error GoTo 0 

    objExcel.Workbooks.Open ("File_Dir") 
    objExcel.Visible = False 
    objWord.Documents.Open ("File_Dir") 
    objWord.Visible = True 

    'give a counter for paragraph 
    Dim ctr as Integer = 1 

    For Each ctl In Me.Controls 
     Select Case TypeName(ctl) 
      Case "CheckBox" 
       If ctl.Value = True Then 
        MsgBox ctl.Name 
        some = objExcel.Names(ctl.Name).RefersToRange.Value 
        MsgBox some 

        'You can write data to Word document here 
        'You must add paragraph 
        objWord.Documents.addParagraph() 
        objWord.Documents.Paragraph(ctr).Range(ctl.Name) 
        ctr = ctr + 1 

       End If 
     End Select 
    Next ctl 
    objExcel.Quit 
    Set objExcel = Nothing 
    MsgBox "complete"