자동화를 통해 Microsoft Word에서 Excel로 테이블 만 전송

Microsoft Word 테이블에서 Microsoft Excel 테이블로 정보를 복사 할 수있는 방법이 있습니까?

microsoft-excel microsoft-word automated-builds

— Tuck Couhig
소스

너 무슨 뜻이야? Excel에서 변경된 사항이 Word에서 업데이트되기를 원하는 테이블이 있습니까?

— James Mertz

예, 이것은 매우 가능합니다. 나는 시연 된 어제, VBScript를 통해 Word 및 Excel 자동화를 사용하여 VBA가 지원하는 모든 작업을 수행 할 수 있습니다. 다음 VBS 스크립트를 사용해보십시오.

Option Explicit

Dim objWord, objDoc, objExcel, objSheet, tbl, srcRow, dstRow, col, cell

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.DisplayAlerts = False
objWord.Documents.Open "C:\MyDoc.docx", False, True ' path, confirmconversions, readonly
Set objDoc = objWord.ActiveDocument

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
objExcel.Workbooks.Add
Set objSheet = objExcel.ActiveSheet

dstRow = 0
For Each tbl In objDoc.Tables
    For srcRow = 1 To tbl.Rows.Count
        col = 0
        For Each cell In tbl.Rows(srcRow).Cells
            col = col + 1
            objSheet.Cells(dstRow+srcRow, col).Value = Left(cell.Range.Text, Len(cell.Range.Text)-1)
        Next
    Next
    dstRow = dstRow + SrcRow
Next

objWord.Quit 0 ' wdDoNotSaveChanges
Set objWord = Nothing
Set objDoc = Nothing

objExcel.ActiveWorkbook.SaveAs "C:\MyBook.xlsx"
objExcel.Quit
Set objExcel = Nothing
Set objSheet = Nothing

MsgBox "All table data copied from document to workbook!"

— Karan
소스