VBA 셀을 Excel에서 Excel로 복사하려면

Question

Excel에서 셀을 Excel로 복사하는 Excel 매크로를 만들려고합니다. 나는 시트 1에서 그것을 Excel 1에서 테이블 1로 가져갈 필요가있다.

루프를 통해이 작업을 수행해야하며 (예 : 셀에서 작업을 수행해야하므로) 어떻게 수행해야합니까? 그래도 난이 프로그램을 실행할 때, 라인 wdDoc.Selection.Paste 오류 제공

Sub test() 

Dim wdDoc As Object 
Dim FileName As String 
Dim iRow As Integer 
Dim iCol As Integer 

'Open Word file 
FileName = ActiveWorkbook.Path & "\Template.doc" 
Set wdApp = New Word.Application 
Set wdDoc = wdApp.Documents.Open(FileName) 



' Loop through columns and rows 
For iCol = 1 To 3 ' or however many columns you have 
    For iRow = 1 To 2 

    With Worksheets("Sheet1").Cells(iRow, iCol) 
     ' Copy the cell to the destination 
     .Copy 
     wdDoc.Selection.Paste 
    End With 

    Next iRow 
Next iCol 

End Sub 

:

Run-time error '438': Object does not support this property or method.

을 나는 또한이하지 않는 것을 알고 있어요 나는 다음과 같은 코드가 있습니다 문서의 표 1에 붙여 넣으십시오. 그러나 지금은 의 내용이 없습니다.이므로, 먼저 작업하겠습니다. VBA를 처음 사용했지만 다른 프로그래밍 경험이 있습니다. 누군가 나를 도울 수 있습니까?

Answer 1

이 작동합니다 :

wdApp.Selection.Range.Paste 

편집 : 더 완벽한 예를 회신 팀에 대한

Sub test() 

Dim wdDoc As Word.Document, wdApp As Word.Application 
Dim tbl As Word.Table 


Dim FileName As String 
Dim iRow As Integer 
Dim iCol As Integer 


    FileName = "C:\_stuff\Local Files\temp.docx" 
    Set wdApp = New Word.Application 

    wdApp.Visible = True 'add this to see the Word instance and document 

    Set wdDoc = wdApp.Documents.Open(FileName) 

    Set tbl = wdDoc.Tables(1) 

    ' Loop through columns and rows 
    For iRow = 1 To 2 
    For iCol = 1 To 3 ' or however many columns you have 
     With Worksheets("Sheet1").Cells(iRow, iCol) 
      tbl.Rows(iRow).Cells(iCol).Range.Text = .Value 
     End With 
    Next iCol 
    Next iRow 


    wdDoc.Close False ' close doc and save changes 
    wdApp.Quit  'close word (will auto-close if no open documents) 

End Sub