各ループについて、配列の最初の項目をスキップします

Question

私はRon de BruinのOutlook電子メールジェネレータを.To、.CC、.Subject、.Bodyフィールドに対していくつかの変更を加えて使用しました。私は、必要に応じて電子メールに請求書ファイルを添付するためのコードもいくつか含んでいました。

添付ファイルリストの最初のグループはスキップされます。

Sub Create_Email() 
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 
'Don't forget to copy the function RangetoHTML in the module. 
'Working in Excel 2000-2016 
    Dim rng As Range 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim StrBody As String 
    Dim Bundle As Variant, Group As Variant 
     Bundle = Split(Worksheets("Extra").Range("G2").Value, ",") 
     StrBody = Range("D5").Value & "<br>" & _ 
        Range("D6").Value & "<br>" & _ 
        Range("D7").Value & "<br>" & _ 
        Range("D8").Value & "<br>" & _ 
        Range("D9").Value & "<br><br><br><br>" 
     mola = Range("B2").Value 
     maybe = Format(mola, "mm") 
     real = Format(mola, "mmmm yyyy") 
     nope = Format(mola, "yyyy") 
     InvPath = ("U:\BILLREC\M & R EG Billing\Invoices\" & nope & "\" & maybe & " " & real & "\" & "Electronic Invoices" & "\") 

    With Application 
     .EnableEvents = False 
     .ScreenUpdating = False 
    End With 

    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(0) 

    On Error Resume Next 
    With OutMail 
     .To = Range("C2").Value 
     .CC = Range("D2").Value 
     .Subject = Range("C5").Value 
     .HTMLBody = StrBody 
     For Each Group In Bundle 
      pdfFile = "Group" & Group & ".pdf" 
      .Attachments.Add InvPath & pdfFile 
     Next Group 
     For Each Group In Bundle 
      xlsFile = "Group" & Group & ".xlsx" 
      .Attachments.Add InvPath & xlsFile 
     Next Group 
     .Display 
    End With 
    On Error GoTo 0 

    With Application 
     .EnableEvents = True 
     .ScreenUpdating = True 
    End With 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

「バンドル」アレイ

は####、####、##、####形式で、グループ番号のオフに基づいて、ブック自体にVLOOKUPから供給されます。

最終的には、標準命名規則でファイル名が付けられていないか、リスト内の最初のグループ番号です。

単一の「グループ」番号がある場合、ファイルはまったく添付されません。

Answer 1

U/barrowに感謝しています。私には、本当に商品のBundle（0）が見つからないことがわかったのですが、この問題は、この問題が同じ理由で起こっていると思われます。カウント。

あなたは InvPathが作成された直後GetAttrので迅速な健全性チェックを追加してみてください可能性 - GetAttrのは、単にいくつかのファイル属性を返すか、ファイルが存在しない場合 は、エラー53がスローされます。試してみてくださいます。MsgBox InvPath & "グループ" &バンドル（0）& ".PDF" & "：" & GetAttrの（InvPath & "グループ" & バンドル（0）& ".PDF"）それがスローされない場合エラーが少なくとも私たち は、ファイルが存在すると言うことができます

私の解決策は、スプリットのソースセルに追加の区切り文字を連結することでした。したがって、Worksheets("Extra").Range("G2").ValueはVLOOKUP(Interface!A2,Data!A:D,4,FALSE).ではなく=CONCATENATE(","," ",VLOOKUP(Interface!A2,Data!A:D,4,FALSE))の結果を返します。これはブードゥーのようですが、最初の区切り文字がBundle = Split(Worksheets("Extra").Range("G2").Value, ",")であることをスプリットで識別し、コレクション内の最初の項目を識別します。

皆さん、ありがとうございました！