vba从excel读出数据写到word表格指定位置

VBA是Visual Basic for Applications的简称，它是一种用于自动化任务的编程语言。在Excel中，我们可以使用VBA来读取和处理数据。以下是一个示例，演示了如何使用VBA从Excel读取数据并将其写入Word表格的指定位置。

首先，在Excel中打开VBA编辑器，通过按下“ALT + F11”或在“开发工具”选项卡中单击“Visual Basic”按钮来打开。

在VBA编辑器中，创建一个新的模块，并在模块中编写以下代码：

Sub ExportToWord()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim tbl As Object
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim i As Long
    Dim j As Long
    Dim row As Long
    Dim col As Long
    
    ' 创建一个Word应用程序实例
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
    End If
    
    On Error GoTo 0
    
    ' 打开一个新的Word文档
    Set wrdDoc = wrdApp.Documents.Add
    
    ' 设置Excel工作簿和工作表对象
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")
    
    ' 指定数据的起始行和起始列
    row = 1
    col = 1
    
    ' 循环读取Excel数据并将其写入Word表格
    Set tbl = wrdDoc.Tables.Add(wrdDoc.Range, ws.Range("A1:C10").Rows.Count, ws.Range("A1:C10").Columns.Count)
    
    For Each rng In ws.Range("A1:C10")
        i = rng.Row - row + 1
        j = rng.Column - col + 1
        tbl.Cell(i, j).Range.Text = rng.Value
    Next rng
    
    ' 保存并关闭Word文档
    wrdDoc.SaveAs "C:\路径\文件名.docx"
    wrdDoc.Close
    
    ' 退出Word应用程序
    wrdApp.Quit
    
    ' 释放对象
    Set tbl = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    Set rng = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub

在代码中，我们首先创建了一个Word应用程序实例，然后打开一个新的Word文档。接下来，我们设置Excel工作簿和工作表对象，并指定要读取的数据的起始行和起始列。

在循环中，我们使用`For Each`语句遍历Excel中指定范围的单元格。通过`tbl.Cell(i, j).Range.Text`将Excel中的数据写入到Word表格中。

最后，我们保存并关闭Word文档，退出Word应用程序，并释放对象。

请注意，需要根据自己的实际情况修改代码中的文件路径和数据范围。