附加文件的macros问题

这个想法是附加一个Excel文件，使用Attachment.Add引用我使用macros获取的列表。 macros读取文件夹中的文件并将其显示在列中。 从那一栏我想通过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 = "[e-mail]" .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 

假定variablesAttch包含要附加的文件的文件名。

编辑：注意到你用excel-vba-mac标记，在这种情况下我不认为反斜杠将作为path分隔符。 :或者可能/应该工作，或使用Application.PathSeparator