如何在使用VBA发送电子邮件时指示文件的位置

似乎几乎可以工作，但strlocation告诉我文件名和位置之间没有“\”。我该怎么补充呢

Sub Macro1()
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=Range("f6").Text, _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False


  Set Mail_Object = CreateObject("Outlook.Application")
  With Mail_Object.CreateItem(o)
      .Subject = Range("f6").Text
      .To = "EMAIL"
      .Body = "Daily movement file attached" & Chr(13) & Chr(13) & _ 
              "Regards," & Chr(13) & "SCD" & Chr(13) & "AAAAAA"
      strlocation = "C:\Users\User\Desktop\macro save" & Range("f6").Text & ".pdf"
        .Attachments.Add (strlocation)
      .Send
  End With
  Set Mail_Object = Nothing
End Sub

---

那么您只缺少了一个

/

---

更改此选项：

…对此：

---

谢谢，我第一次就试过了，它给了我一个错误，现在它可以工作了。使用vba的第一天和我被弄糊涂的次数是疯狂的

  strlocation = "C:\Users\User\Desktop\macro save" & Range("f6").Text & ".pdf"

  strlocation = "C:\Users\User\Desktop\macro save\" & Range("f6").Text & ".pdf"