Excel到Word（VB）通過行循環

我在Excel中的宏從每一行讀取數據並基於該數據爲每行創建一個字文件。用作模板的單詞文件具有書籤（列中的值映射到書籤）。Excel到Word（VB）通過行循環

我得到它爲一行工作，但它不會遍歷所有行。 HTTP：//www.wiseowl.co.uk/blog/s199/word-bookmarks.htm

這裏是我的代碼：我用我的代碼有

Option Explicit 

'change this to where your files are stored 

Const FilePath As String = "C:\Files\" 

Dim wd As New Word.Application 

Dim SOPCell As Range 

Sub CreateWordDocuments() 

    'create copy of Word in memory 

    Dim doc As Word.Document 

    wd.Visible = True 

    Dim SOPRange As Range 

    'create a reference to all the people 

    Range("A1").Select 

    Set SOPRange = Range(ActiveCell, ActiveCell.End(xlDown)).Cells 


    'for each person in list ï¿½ 

    For Each SOPCell In SOPRange 

     'open a document in Word 

     Set doc = wd.Documents.Open(FilePath & "template.doc") 

     'go to each bookmark and type in details 

     CopyCell "sop", 0 
     CopyCell "equipment", 1 
     CopyCell "component", 2 
     CopyCell "step", 3 
     CopyCell "form", 4 
     CopyCell "frequency", 5 
     CopyCell "frequencyB", 5 

     'save and close this document 

     doc.SaveAs2 FilePath & "SOP " & SOPCell.Value & ".doc" 

     doc.Close 

    Next SOPCell 

    wd.Quit 

    MsgBox "Created files in " & FilePath & "!" 

End Sub 

Sub CopyCell(BookMarkName As String, ColumnOffset As Integer) 

    'copy each cell to relevant Word bookmark 

    wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName 

    wd.Selection.TypeText SOPCell.Offset(0, ColumnOffset).Value 

End Sub

來源

2012-10-11 mgalal

列A中行之間是否有空單元？這將阻止你的SOPRange被正確定義。 – nutsch

你似乎在您的copyCell中忽略範圍參數Sub

Sub CreateWordDocuments() 

    'create copy of Word in memory 

    Dim doc As Word.Document 
    wd.Visible = True 
    Dim SOPRange As Range 
    'create a reference to all the people 

    Set SOPRange = Range(Range("A1"), Range("A1").End(xlDown)).Cells 

    'for each person in list 

    For Each SOPCell In SOPRange 
     'open a document in Word 
     Set doc = wd.Documents.Open(FilePath & "template.doc") 
     'go to each bookmark and type in details 
     CopyCell SOPCell, "sop", 0 
     CopyCell SOPCell, "equipment", 1 
     CopyCell SOPCell, "component", 2 
     CopyCell SOPCell, "step", 3 
     CopyCell SOPCell, "form", 4 
     CopyCell SOPCell, "frequency", 5 
     CopyCell SOPCell, "frequencyB", 5 
     'save and close this document 
     doc.SaveAs2 FilePath & "SOP " & SOPCell.Value & ".doc" 

     doc.Close 

    Next SOPCell 

    wd.Quit 

    MsgBox "Created files in " & FilePath & "!" 

End Sub 

Sub CopyCell(rg As Range, BookMarkName As String, ColumnOffset As Integer) 

    'copy each cell to relevant Word bookmark 

    wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName 

    wd.Selection.TypeText rg.Offset(0, ColumnOffset).Value 

End Sub

來源

2012-10-11 23:22:47 nutsch

作品感謝您的幫助！ – mgalal

Excel到Word（VB）通過行循環

回答

相關問題