Это мой первый вопрос.Я хочу изучать компьютерные науки, но в то же время прошу вас помочь с использованием VBA Excel.
Я получаю электронные письма Outlook с одним и тем же именем ежедневно (по рабочим дням);Я хочу запрограммировать VBA Excel на открытие вложений Outlook, которые я получал накануне вечером.
Итак, на самом деле две вещи:
- Запрограммируйте VBA Excel для открытия вложения из определенной папки
- Удалите тот же адрес электронной почты, чтобы на следующий день у меня было то же самоепроцесс (все файлы отправляются с использованием одного и того же имени, поэтому я не хочу путать себя или копировать и вставлять данные неправильного дня).
Я написал приведенный ниже код, но мне нужно открыть Excelкнига из Outlook, а не с диска C:
Sub Test()
Dim WB As Workbook 'designate variables
Dim sSaveFileName As String
sSaveFileName = Format(Now() - 1, "MM-DD-YYYY") 'save as received date,
yesterday
' not needed >>>>> 'Set WB =
Workbooks.Open("C:\Users\nader\OneDrive\Documents\openthisexcel.xlsx")
Windows("openthisexcel.xlsx").Activate 'activate opened excel attachment
Sheets("Sheet1").Select
Range("A1:A50").Select
Selection.Copy 'select range and copy
Windows("macroExcel.xlsm").Activate 'activate xlsm template (another
workbook)
Sheets("Sheet1").Select
Range("A1:A50").Select
Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False 'select range
and paste from one excel to another
WB.SaveAs Filename:= _
"C:\Users\nader\OneDrive\Documents\openthisexcel.xlsx" &
sSaveFileName & ".xlsx" 'save received excel using filename and
the date it was received in Outlook
WB.Close 'close the excel attachment
End Sub
Пожалуйста, предоставьте некоторую помощь, чтобы открыть вложение Excel из папки и как удалить электронную почту (включая вложение Excel) в Outlook, используя VBA.
IПрочитайте некоторые сообщения о переполнении стека, но не можете их понять (здесь только новичок).