复制excel单元格并将其粘贴到特定的word doc

Question

我是 VBA 新手，我需要将一个单元格（包含数据）从 excel 复制到 特定（不是来自模板）word 文档。特定文件的完整路径将位于目标单元格旁边的单元格中 - 偏移量（0,1）。所有这些显然都在一个循环中，因为我有一个很大的列表和很多文件。

这是我的代码（代码由我在搜索时拾取的部分组成） - 但我得到了一个

对象错误

Sub OpenWordFile()
    Dim oWord As Object
    Dim xRg As Object
    Dim xCell As Range
    Dim xVal As Range
    Dim Workbook As Workbook
    Dim FileName As Variant



    'Word Object

    Set oWord = CreateObject(Class:="Word.Application")
    oWord.Visible = True

    'Open Word Document (need to be multiple files in a loop)

    'oWord.documents.Open FileName:="C:\Users\tamirre\Desktop\New folder\135-185844.doc"      ' OPEN AN EXISTING FILE.
    'Set oWord = Nothing

    'Activating Excel to copy Cells

    ThisWorkbook.Worksheets("Sheet1").Activate
    Set xRg = Application.InputBox("Please select Cells to copy to word docs:", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub

    For Each xCell In xRg
        xVal = xCell.Value
        Set FileName = xVal.Offset(0, 1) 'Cell Must Contain name and full path of the doc file
        xVal.Copy
            oWord.documents.Open FileName:="FileName"
                Selection.EndKey Unit:=wdStory
                Selection.TypeParagraph
                Selection.PasteExcelTable True, False, False
    Next


End Sub

Answer 1

InputBox 返回 String，而不是 Object。

将Dim 行更改为：

Dim xRg As String

并将InputBox 行更改为：

xRg = InputBox("Please select Cells to copy to word docs:", "Range Selection", ActiveWindow.RangeSelection.Address)
If xRg ="" Then Exit Sub

那么如果你想把它变成Range对象：

Dim xRange As Object
Set xRange = Range(xRg)

但是，我不建议您这样做。用户输入无效内容的机会太多，您会收到错误。