添付ファイルのマクロ問題

Question

考えられるのは、取得するマクロを使用したリストを参照するAttachment.Addを使用してExcelファイルを添付することです。マクロは、フォルダ内のファイルを読み取り、列に表示します。その列からExcel経由でファイルを添付したいと思います。私は下の行にエラーを表示し続けます。

.Attachments.Add Filelist & "\" & "Attch" 

誰でも手助けできますか？変数Attchを想定し

Sub Sendemailusingword() 

    Dim Olapp As Outlook.Application 
    Dim Olemail As Outlook.MailItem 
    Dim olmail As Object 
    Dim olinsp As Outlook.Inspector 
    Dim wddoc As Word.Document 
    Dim count As Integer 
    Dim x As Integer 
    Dim Filelist As String 
    Dim Attch As String 
    x = 1 
    row_number = 7 
    count = Sheet1.Range("K1") 


    For x = 1 To count 
     row_number = row_number + 1 

     Attch = Sheet1.Range("D" & row_number).Value 
     Filelist = "K:\3SHARE\2016 Plan\Statment Email Send" 

     Set Olapp = New Outlook.Application 
     Set Olemail = Olapp.CreateItem(olMailItem) 

     With Olemail 
      .Display 
      .To = Sheet1.Range("G" & row_number) 
      .Subject = Sheet1.Range("D6") & Sheet1.Range("F" & row_number) 
      .SentOnBehalfOfName = "ComdataCommissions@comdata.com" 
      .BodyFormat = olFormatHTML 
      .CC = Sheet1.Range("H" & row_number) & ";" & Sheet1.Range("I" & row_number) 


      Set olinsp = .GetInspector 
      Set wddoc = olinsp.WordEditor 


      Sheet1.Activate 
      Range("B2").CurrentRegion.Copy 

      wddoc.Range.Paste 
      .Attachments.Add Filelist & "\" & "Attch" 




      End With 
    Next x 

End Sub 

Answer 1

.Attachments.Add Filelist & "\" & Attch 

が添付されるファイルのファイル名が含まれています。

EDIT：excel-vba-macというタグが付いていることに気付きました。この場合、バックスラッシュはパス区切りとしては機能しません。 :またはおそらく/が動作する、または使用する必要がありますApplication.PathSeparator