如何使用Excel VBA打开在特定时间范围内发送到特定Outlook文件夹的Outlook excel附件？

Question

这是我的第一个问题。 我想主修计算机科学，但与此同时，请使用VBA Excel寻求帮助。

我每天（工作日）收到具有相同文件名的Outlook电子邮件； 我想对VBA Excel进行编程，以打开前一天晚上收到的Outlook附件。

因此，实际上有两件事：

1. 对VBA Excel进行编程以从特定文件夹打开附件
2. 删除同一封电子邮件，以便第二天进行相同的处理（所有文件都使用相同的文件名发送，因此，我不想混淆自己或复制并粘贴错误的当天数据）。

我已经编写了以下代码，但需要从Outlook而不是C驱动器打开excel工作簿：

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附件以及如何使用VBA在Outlook中删除电子邮件（包括Excel附件）。

我读了一些Stack Overflow帖子，但听不懂（这里只是初学者）。

Answer 1

查看从Outlook下载附件并在Excel中打开 。 这可以完成Excel所需的功能。

但是，您还有另一个选择，那就是编写一个Outlook宏。 请参阅按计划运行Outlook宏 。 这样，您将能够每天自动在Outlook中运行宏（只要打开Outlook）即可提取数据。 宏的内容与第一个链接中的内容基本相同。