如何使用VB代码将MSExcel单元格中的值复制到MSWord文件中的字段中？

Question

我需要在MS Word 2003中有一个VB代码，复制Excel文件中的特定单元格并将其粘贴到Word（归档）中。 以下是我所做的，结果是错误的。

Sub cmdGetNumber()
Dim XL As Object
Dim WBEx As Object
Dim ExelWS As Object
Dim appwd As Object
Dim wdApp As Word.Application

''''

'On Error GoTo OLE_ERROR
Set XL = CreateObject("Excel.Application")
Set wdApp = CreateObject("Word.Application")

'Open Excel document
Set WBEx = XL.Workbooks.Open("C:\Documents and Settings\121567\Desktop\tafket1.xls")
Set ExelWS = WBEx.Worksheets("Sheet1")
XL.Visible = True
'appwd.Visible = True

ExelWS.Range("c2").Select
'Selection.Copy

'wdApp.Selection.PasteSpecial Placement:=wdInLine, DataType:=wdPasteMetafilePicture
'wdApp.Documents.Save
Set wdApp = Nothing
Set ExelWS = Nothing
Set WBEx = Nothing

End Sub

Answer 1

由于该宏位于 Word 中，因此您无需显式打开 Word 实例。 您只需执行 Documents.Add 即可添加新文档，或执行 Documents.Open 来打开现有文档。

试试这个：

Sub cmdGetNumber()
    Dim XL As Object
    Dim WBEx As Object
    Dim ExelWS As Object
    Dim wdDoc As Word.Document

    'On Error GoTo OLE_ERROR
    Set XL = CreateObject("Excel.Application")

    'Open Excel document
    Set WBEx = XL.Workbooks.Open("C:\Documents and Settings\121567\Desktop\tafket1.xls")
    Set ExelWS = WBEx.Worksheets("Sheet1")
    'XL.Visible = True
    ExelWS.Range("C2").Copy

    Set wdDoc = Documents.Add
    wdDoc.Activate
    wdDoc.Select
    Selection.Paste

    WBEx.Close
    XL.Quit
    Set WBEx = Nothing
    Set ExelWS = Nothing
    Set XL = Nothing
End Sub

上面的代码将打开您的 Excel 文件，复制单元格 C2，然后打开一个新的 Word 文档，并将其粘贴到那里。

我看到您在问题中提到了(filed)。 您指的是 Field 还是 File？ 如果它是 Field 那么您可能需要将 Selection.Paste 替换为相关字段名称