首页 文章

将单元数据从excel复制到单词VBA

提问于
浏览 次
1

我需要将数百个单元格从excel复制到word表中 . 我已经想出如何在excel VBA> word中插入数据（即“word table cell = 1”）并且工作正常，但我的问题是将一个excel单元复制到一个单词表单元格中 .

我的代码目前是：

'Do the For Loops here, WIP
For Each Cell In ActiveSheet.UsedRange.Cells
  'do some stuff

  For Each oRow In wdDoc.Tables(1).Rows
    For Each oCell In oRow.Cells

     ' Set sCellText equal to text of the cell.
     ' Note: This section can be modified to suit
     ' your programming purposes.
  If ((oCell.Column.Index Mod 2) = 0) Then

  Else
    'counter = counter + 1

    'oCell.Range.Text = ThisWorkbook.Sheets(1).Cells(1, 2).Value
    oCell.Range.Text = Cell

  End If

Next oCell
Next oRow
Next

它目前所做的是将第一个excel单元复制到每个单词表单元格 . 当它击中第二个excel单元格时，它会覆盖每个其他单词表格单元格 .

下面是目前正在发生的事情：

Image Not Working

我想要发生的事情:(读取第一个excel单元格，复制粘贴到单词表格单元格 . - 读取第二个excel单元格，复制粘贴到第二个单词表格单元格 .

DesiredOutput

谢谢，

亚历克斯 .

excel vba ms-word

1 回答

  • 2

    这段代码应该可以解决问题 . 无论如何，它在我的测试中工作：

    Dim firstRow As Integer
Dim firstColumn As Integer
Dim numRows As Integer
Dim numColumns As Integer

Dim uRange As Range

Set uRange = ActiveSheet.UsedRange
firstRow = uRange.Row
firstColumn = uRange.Column
numRows = uRange.Rows.Count
numColumns = uRange.Columns.Count

Dim rowNumber As Integer
Dim columnNumber As Integer
Dim tableRow As Integer
Dim tableColumn As Integer
tableRow = 1
tableColumn = 1

Dim tableRows As Integer
Dim tableColumns As Integer
tableRows = doc.Tables(1).Rows.Count
tableColumns = doc.Tables(1).Columns.Count

For rowNumber = firstRow To firstRow + numRows - 1
    For columnNumber = firstColumn To firstColumn + numColumns - 1
        doc.Tables(1).Cell(tableRow, tableColumn).Range.Text = Cells(rowNumber, columnNumber).Value
        tableColumn = tableColumn + 2
        If tableColumn > tableColumns Then
            tableColumn = 1
            tableRow = tableRow + 1
        End If
        If tableRow > tableRows Then
            Exit Sub
        End If
    Next
Next

    我故意选择不同大小的输入和输出范围，以便展示该功能 .

    Excel表格（输入）：

    enter image description here

    Word页面（输出）：

    enter image description here

    使用此方法，您可以控制是否要读取行，然后是列，或列，然后是行 .

    请注意 UsedRange 函数并不总是返回正确的结果 . 在某些情况下，它会提供比您想要的范围更大的范围 .

    回复于

相关问题