Макрос Excel - вставка выделения в Word

Question

Я использую код ниже

iMaxRow = 200

" Loop through columns and rows"
For iCol = 1 To 3 
For iRow = 1 To iMaxRow

With Worksheets("GreatIdea").Cells(iRow, iCol)
    " Check that cell is not empty."
    If .Value = "" Then
        "Nothing in this cell."
        "Do nothing."
    Else
        " Copy the cell to the destination"
        .Copy Destination:=Worksheets("Sheet2").Cells(iRow, iCol)
    End If
End With

Next iRow
Next iCol

Код выше применим только на том же листе Excel.Я хотел бы расширить его, чтобы он вставился в текстовый документ.Я предполагаю, что это что-то с;

appWD.Selection.PasteSpecial

Но проблема в том, что я не сделал никаких выборов.Код хороший, нужно отредактировать Copy Destination:=Worksheets("Sheet2").Cells(iRow, iCol).

Спасибо за помощь!

Answer 1

iMaxRow = 200 ' or whatever the max is.
'Don't make too large because this will slow down your code.

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

    With Worksheets("GreatIdea").Cells(iRow, iCol)
        ' Check that cell is not empty.
        If .Value = "" Then
            'Nothing in this cell.
            'Do nothing.
        Else
            ' Copy the cell to the destination
            .Copy
            appWD.Selection.PasteSpecial
        End If
    End With

    Next iRow
Next iCol