運行時錯誤91：對象變量或未設置塊變量

我有兩個單獨的文檔與郵件合併列表。我有兩張工作表的Excel工作簿。根據工作表名稱&如果工作表不是空的，我需要將mailmerge發送到相應的單詞文檔。運行時錯誤91：對象變量或未設置塊變量

當我嘗試執行此代碼，它運行高達第一個文件，並在第二個文件，它與一個錯誤停止Run-time Error 91 : Object variable or With block variable not set

我不知道是什麼導致這個錯誤（如果它是在昏暗的變量或用塊）。如果有人能夠幫助我糾正這個錯誤，我將不勝感激。

Sub Generate_Certificate() 

    Dim wd As Object 
    Dim wdoc_reg As Object 
    Dim wdoc_occ As Object 
    Dim strWbName_reg As String 
    Dim strWbName_occ As String 


    Const wdFormLetters = 0, wdOpenFormatAuto = 0 
    Const wdFormLetters1 = 0, wdOpenFormatAuto1 = 0 
    Const wdSendToNewDocument = 0, wdDefaultFirstRecord = 1, wdDefaultLastRecord = -16 
    Const wdSendToNewDocument1 = 0, wdDefaultFirstRecord1 = 1, wdDefaultLastRecord1 = -16 


    On Error Resume Next 
    Set wd = GetObject(, "Word.Application") 
    If wd Is Nothing Then 
     Set wd = CreateObject("Word.Application") 
    End If 
    On Error Goto 0 


    For Each Sheet In ActiveWorkbook.Sheets 

     'Generate report using "Mailmerge" if any data available for Mailmerge1 
     If Sheet.Name Like "Sheet1" And IsEmpty(ThisWorkbook.Sheets("Sheet1").Range("A2").Value) = False Then 
      Set wdoc_reg = wd.Documents.Open("C:\Mailmerge1.docx") 


      strWbName_reg = ThisWorkbook.Path & "\" & ThisWorkbook.Name 


      wdoc_reg.MailMerge.MainDocumentType = wdFormLetters 


      wdoc_reg.MailMerge.OpenDataSource _ 
      Name:=strWbName_reg, _ 
      AddToRecentFiles:=False, _ 
      Revert:=False, _ 
      Format:=wdOpenFormatAuto, _ 
      Connection:="Data Source=" & strWbName_reg & ";Mode=Read", _ 
      SQLStatement:="SELECT * FROM `Sheet1$`" 

      With wdoc_reg.MailMerge 
       .Destination = wdSendToNewDocument 
       .SuppressBlankLines = True 
       With .DataSource 
        .FirstRecord = wdDefaultFirstRecord 
        .LastRecord = wdDefaultLastRecord 
       End With 
       .Execute Pause:=False 
      End With 


      wd.Visible = True 
      wdoc_reg.Close SaveChanges:=False 


      Set wdoc_reg = Nothing 
      Set wd = Nothing 
     End If 


     'Generate report using "Mailmerge" if any data available for Mailmerge2 
     If Sheet.Name Like "Sheet2" And IsEmpty(ThisWorkbook.Sheets("Sheet2").Range("A2").Value) = False Then 
      Set wdoc_occ = wd.Documents.Open("C:\Mailmerge2.docx") 


      strWbName_occ = ThisWorkbook.Path & "\" & ThisWorkbook.Name 


      wdoc_occ.MailMerge.MainDocumentType = wdFormLetters1 


      wdoc_occ.MailMerge.OpenDataSource _ 
      Name:=strWbName_Occ, _ 
      AddToRecentFiles:=False, _ 
      Revert:=False, _ 
      Format:=wdOpenFormatAuto1, _ 
      Connection:="Data Source=" & strWbName_occ & ";Mode=Read", _ 
      SQLStatement:="SELECT * FROM `Sheet2$`" 


      With wdoc_occ.MailMerge 
       .Destination = wdSendToNewDocument1 
       .SuppressBlankLines = True 
       With .DataSource 
        .FirstRecord = wdDefaultFirstRecord1 
        .LastRecord = wdDefaultLastRecord1 
       End With 
       .Execute Pause:=False 
      End With 


      wd.Visible = True 
      wdoc_occ.Close SaveChanges:=False 


      Set wdoc_Occ = Nothing 
      Set wd = Nothing 
     End If 


    Next 


End Sub

來源

2015-06-29 Dragon Warrior

您在循環中設置了「wd = Nothing」，這將在第一張紙後清除對Word的引用。把它移動到'End Sub'前面 –

謝謝soooo，Tim！你是最好的！！我刪除了這一行，我的代碼像魔術一樣工作！再一次感謝你：） –

正如Tim Williams在問題的評論中所述。

您的環路中有Set wd = Nothing，它將在第一張紙後清除您對Word的引用。將其移動到End Sub

來源

2015-08-05 05:00:28 DiegoAndresJAY

運行時錯誤91：對象變量或未設置塊變量

回答

相關問題