Как скопировать активный лист и прикрепить его к электронному письму без имени папки

Question

Я пытаюсь прикрепить активный лист в качестве вложения в электронное письмо. Та часть, которой я управлял, но способ, которым я делаю это, требует, чтобы имя forldername было в имени файла.

Это то, что у меня есть

Dim WB As Workbook
Dim FileName As String
Dim folderPath As String
folderPath = Application.ActiveWorkbook.Path

Sheets("X").Copy
Set WB = ActiveWorkbook
FileName = "SCHEDULE"
On Error Resume Next
Kill folderPath & FileName
On Error GoTo 0
Application.DisplayAlerts = False
WB.SaveAs FileName:=folderPath & FileName


.Attachments.Add WB.FullName

WB.ChangeFileAccess Mode:=xlReadOnly
Kill WB.FullName
WB.Close SaveChanges:=False

Желаемый результат - прикрепление файла Excel только с именем файла

.

Answer 1

FolderPath & FileName в настоящее время не имеют обратной косой черты между ними. Вы должны использовать:

Kill folderPath & Application.PathSeparator & FileName

Аналогично в операции сохранения:

WB.SaveAs FileName:=folderPath & Application.PathSeparator & FileName

Похоже, у вас также есть отсутствующий объект (объект электронной почты?) В следующей строке:

.Attachments.Add WB.FullName