VBA复制包含数据的选定单元格(Excel)。将它们粘贴到表格的特定行中(Word)

VBA复制包含数据的选定单元格(Excel)。将它们粘贴到表格的特定行中(Word)。

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中自动化任务和定制功能。在Excel中，可以使用VBA来复制包含数据的选定单元格，并将其粘贴到Word中的特定行。

下面是一个示例代码，演示了如何使用VBA在Excel中复制选定单元格的数据，并将其粘贴到Word中的特定行：

Sub CopyDataToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelRange As Range
    Dim wordTable As Object
    Dim wordRow As Object
    
    ' 创建一个新的Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开一个现有的Word文档或创建一个新的文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 激活Excel中的工作表
    ThisWorkbook.Activate
    
    ' 选择要复制的单元格范围
    Set excelRange = Selection
    
    ' 将选定单元格的数据复制到Word中的表格中
    With wordDoc
        ' 添加一个表格到Word文档中
        Set wordTable = .Tables.Add(.Range, excelRange.Rows.Count, excelRange.Columns.Count)
        
        ' 循环遍历选定单元格的每一行
        For Each excelRow In excelRange.Rows
            ' 在Word表格中添加一行
            Set wordRow = wordTable.Rows.Add
            
            ' 循环遍历选定单元格的每一列
            For Each excelCell In excelRow.Cells
                ' 将单元格的值复制到Word表格中的对应位置
                wordRow.Cells(excelCell.Column).Range.Text = excelCell.Value
            Next excelCell
        Next excelRow
    End With
    
    ' 显示Word应用程序窗口
    wordApp.Visible = True
    
    ' 清理对象变量
    Set wordRow = Nothing
    Set wordTable = Nothing
    Set excelRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

这段代码首先创建了一个新的Word应用程序对象，并打开一个新的Word文档。然后，它激活Excel中的工作表，并选择要复制的单元格范围。接下来，它在Word文档中添加一个表格，并使用循环遍历选定单元格的每一行和每一列，将单元格的值复制到Word表格中的对应位置。最后，它显示Word应用程序窗口，并清理对象变量。

这个功能可以在以下场景中使用：