VBA 코드를 사용하여 Word 문서에 삽입된 테이블 개체의 내용을 Excel로 복사하는 방법

1. VBA 코드를 사용하여 Word 문서에 표를 삽입하는 방법은 무엇입니까?

VBA에서 Word 문서에 표를 삽입하는 것은 매우 간단합니다. 다음 코드 예제를 사용할 수 있습니다.

Sub InsertTableInWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 插入一个表格
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range, NumRows:=3, NumColumns:=4)
    ' 更改表格的内容和格式
    ' ...
    
    ' 释放对象
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

이 코드는 새 Word 문서를 만들고 그 안에 3행과 4열이 있는 표를 삽입합니다. 테이블의 행과 열 수를 수정하고 필요에 따라 테이블 내용의 형식을 추가로 지정할 수 있습니다.

2. VBA를 사용하여 Word 표의 내용을 Excel로 복사하는 방법은 무엇입니까?

VBA에서는 다음 코드를 사용하여 Word 문서의 표 내용을 Excel 워크시트에 복사할 수 있습니다.

Sub CopyTableFromWordToExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlSheet As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档中的表格
    Set wdTable = wdDoc.Tables(1) ' 假设表格在文档中的第一个位置
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 如果需要可见Excel应用程序，请设置为True
    
    ' 创建一个新的Excel工作簿
    Set xlWb = xlApp.Workbooks.Add
    ' 在Excel工作簿中创建一个工作表
    Set xlSheet = xlWb.Sheets(1)
    
    ' 将Word表格复制到Excel中
    wdTable.Range.Copy
    xlSheet.Range("A1").PasteSpecial
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    ' 关闭Word文档
    wdDoc.Close False ' False表示不保存更改
    Set wdTable = Nothing
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing
End Sub

이 코드는 특정 경로 아래에 Word 문서를 엽니다(경로를 Word 파일 경로로 바꾸십시오). ), 그 안에 있는 첫 번째 테이블을 복사하여 Excel의 첫 번째 셀(A1)에 붙여넣습니다. 필요에 따라 테이블 인덱스, 대상 엑셀 워크시트의 위치 등을 변경할 수 있습니다.

3. 요약

VBA를 사용하면 Word에 표를 쉽게 삽입하고 Word 문서의 표 내용을 Excel로 복사할 수 있습니다. Word 응용 프로그램 개체를 만들고 해당 개체 모델의 기능을 사용하면 Word 문서의 테이블을 조작한 다음 Excel 응용 프로그램 개체를 사용하여 테이블 내용을 복사하고 붙여넣을 수 있습니다. 이러한 작업은 필요에 따라 추가로 확장 및 수정될 수 있습니다.

위 내용은 VBA 코드를 사용하여 Word 문서에 삽입된 테이블 개체의 내용을 Excel로 복사하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!