Macro issue with attach file

Question

Идея состоит в том, чтобы прикрепить файл Excel, используя Attachment.Add, ссылаясь на список, который я использовал для получения макроса. Макрос читает файлы в папке и отображает их в столбце. Из этой колонки я хотел бы прикрепить эти файлы через Excel. Я продолжаю получать ошибку в строке ниже.

.Attachments.Add Filelist & "\" & "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 

Предположив, что переменная Attch содержит имя файла, чтобы быть приложена.

EDIT: заметили, что вы отметили excel-vba-mac, и в этом случае я не думаю, что обратная косая черта будет работать как разделитель путей. : или, возможно, / должен работать, или использовать Application.PathSeparator