Моя цель состоит в том, чтобы иметь возможность щелкнуть по кнопке и моей листинге Excel в PDF-формате моей электронной таблицы и отправить ее по электронной почте на адрес электронной почты, который находится в одной из ячеек в лист. Во-первых, у меня есть код, который может превратить диапазон ячеек в файл PDF и позволяет мне сохранить его:Отправка листа Excel непосредственно в формате PDF
Option Explicit
Sub savePDF()
Dim wSheet As Worksheet
Dim vFile As Variant
Dim sFile As String
Set wSheet = ActiveSheet
sFile = Replace(Replace(Range("D11"), " ", ""), ".", "_") _
& "_" _
& Range("H11") _
& ".pdf"
sFile = ThisWorkbook.Path & "\" & sFile
With Excel.Application.FileDialog(msoFileDialogSaveAs)
Dim i As Integer
For i = 1 To .Filters.Count
If InStr(.Filters(i).Extensions, "pdf") <> 0 Then Exit For
Next i
.FilterIndex = i
.InitialFileName = sFile
.Show
If .SelectedItems.Count > 0 Then vFile = .SelectedItems.Item(.SelectedItems.Count)
End With
If vFile <> "False" Then
wSheet.Range("A1:BF47").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub
Кто-нибудь может манипулировать этот код (прилагается к кнопке), поэтому он будет по электронной почте адрес электронной почты , который находится в определенной ячейке, когда кнопка нажата и в качестве добавленного бонуса, тоже будет работать с электронной почтой из ячейки в электронной таблице?
Возможно, см. [Это] (http://stackoverflow.com/questions/32851623/custom-subject-line-for-outlook/32855082#32855082)? – findwindow
Это своего рода область, которую я хочу, но это отличается тем, что мой лист excel должен прикрепить PDF-файл Excel к электронной почте, и я не уверен, как это сделать. @findwindow –
@findwindow: Я согласен. Это решение должно работать отлично. Единственное, чего не хватает в этом решении, - это добавить файл PDF в качестве вложения: '.Attachments.Add 'C: \ Мои документы \" или vFile в данном решении' в 'With' для' MailItem'. – Ralph