Question

我有时无法将excel中的完整数据存入word文档。它适用于第一，第二，第三个单词文档，然后只有第4个，第5个和第6个单词中的1个单词，然后是第7个文档中的完整信息 - 作为示例。

我想知道为什么这个宏有时适用于所有文档，有时只有少数几个 - 只复制最后一个单词 - 没有模板＆amp;商标。

我使用的代码是：

Sub Macro2()
Dim UsedRng As Range
Dim FirstRow As Integer, LastRow As Integer

Dim appWD As Object
Set appWD = CreateObject("Word.Application")
    appWD.Visible = True


Set UsedRng = ActiveSheet.UsedRange
    FirstRow = UsedRng(1).Row
    LastRow = UsedRng(UsedRng.Cells.Count).Row

Sheets("Data").Select
'FinalRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 5 To LastRow

    If Range("F" & i).Value = "Yes" Then
        'SRange = Range("F" & i).Value
        Range("A" & i).Copy
        Sheets("Letter").Select
        Range("C5").PasteSpecial Paste:=xlPasteValues

        Sheets("Data").Select
        Range("D" & i).Copy
        Sheets("Letter").Select
        Range("C6").PasteSpecial Paste:=xlPasteValues

        Sheets("Data").Select
        Range("J" & i).Copy
        Sheets("Letter").Select
        Range("C7").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

        Sheets("Data").Select
        Range("L" & i, "N" & i).Copy
        Sheets("Letter").Select
        Range("C8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True

        Sheets("Letter").Select
        Range("A1:D11").Copy

        appWD.Documents.Add
        appWD.Selection.Paste
        appWD.ActiveDocument.SaveAs Filename:="MS_ST" & i
        appWD.ActiveDocument.Close
        Sheets("Letter").Select
        Range("C5:C11").ClearContents
    End If
    Sheets("Data").Select
Next i
appWD.Quit
Set appWD = Nothing

End Sub

请让我知道我做错了什么，向我投掷任何东西，因为我希望了解更多并始终改进。提前感谢您的帮助。

将数据从Excel复制到MS Word

0 个答案: