Excel到Word宏

Question

我有一个宏（类似于以下内容）连接到Excel工作表中的图像。 当我单击它时，它将所有必要的信息从一个工作表带到TPS报表工作表，然后将文档另存为Word文件，其名称为单元格B5中的名称。 它工作正常，除非问题是我单击启动宏时它会为工作表的每一行重新生成每个单词文档。 有没有办法让我仅生成最新文档？ 因此，如果已经创建了文件“ A”，“ B”和“ C”，但是工作表上的数据最多为“ F”，那么当我单击宏时，它只会创建“ D”，“ E”和“ F”代替ABCDE和F。我在这里找不到答案，任何帮助将不胜感激。 有没有一种方法可以在“另存为”命令之后添加一些代码，以检查文件是否存在，并且仅在目录中不存在时才创建文件。

Sub ControlWordTPS()
    Dim appWD As Word.Application
    Set appWD = CreateObject("Word.Application.8")
    appWD.Visible = True
    Sheets("TPS").Select
    'Find the last row with data in the database
    FinalRow = Range("P9999").End(xlUp).Row
    For i = 5 To FinalRow
        Sheets("TPS").Select
        Range("A" & i).Copy Destination:=Sheets("TPSForm").Range("B5")
        Range("D" & i).Copy Destination:=Sheets("TPSForm").Range("B6")
        Range("E" & i).Copy Destination:=Sheets("TPSForm").Range("B7")
        Range("G" & i).Copy Destination:=Sheets("TPSForm").Range("B8")
        Range("M" & i).Copy Destination:=Sheets("TPSForm").Range("B9")
        Range("N" & i).Copy Destination:=Sheets("TPSForm").Range("B10")
        Range("O" & i).Copy Destination:=Sheets("TPSForm").Range("B11")
        Range("H" & i).Copy Destination:=Sheets("TPSForm").Range("B24")
        Range("I" & i).Copy Destination:=Sheets("TPSForm").Range("B25")
        Range("K" & i).Copy Destination:=Sheets("TPSForm").Range("B26")
        Range("J" & i).Copy Destination:=Sheets("TPSForm").Range("B27")
        Sheets("TPSForm").Select
        Range("A1:F28").Copy
        appWD.Documents.Add
        appWD.Selection.Paste
        appWD.ActiveDocument.SaveAs Filename:="G:\Warranties\Customer\2014\2014TPSForms        \TPSAUTO\" & Range("B5")
        appWD.ActiveDocument.Close
    Next i
    appWD.Quit
End Sub

Answer 1

不要使用For循环； 而是一次复制所有行，如下面的代码片段所示：

' Copy multiple rows at once
Worksheets("Sheet1").Rows("5:" & FinalRow).Copy

' Create a new Word document
appWD.Documents.Add

' Paste the contents of the clipboard into the new Word document
appWD.Selection.Paste

'...其余的代码保存Word文档

问候，