Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使用excel VBA打开在特定时间范围内发送到特定Outlook文件夹的Outlook excel附件?_Excel_Vba_Outlook - Fatal编程技术网

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

如何使用excel VBA打开在特定时间范围内发送到特定Outlook文件夹的Outlook excel附件?,excel,vba,outlook,Excel,Vba,Outlook,这是我第一个问题。我想主修计算机科学,但在此期间,我恳请您使用VBA Excel提供帮助 我每天(工作日)收到具有相同文件名的Outlook电子邮件;我想编程VBA Excel以打开我在前一天晚上收到的Outlook附件 因此,实际上有两件事: 使用VBA Excel程序打开特定文件夹中的附件 删除同一封电子邮件,以便第二天我有相同的流程(所有文件都使用相同的文件名发送,因此我不想混淆自己或复制和粘贴错误的日期数据) 我已经编写了以下代码,但需要从Outlook而不是C驱动器打开excel工作簿

这是我第一个问题。我想主修计算机科学,但在此期间,我恳请您使用VBA Excel提供帮助

我每天(工作日)收到具有相同文件名的Outlook电子邮件;我想编程VBA Excel以打开我在前一天晚上收到的Outlook附件

因此,实际上有两件事:

  • 使用VBA Excel程序打开特定文件夹中的附件
  • 删除同一封电子邮件,以便第二天我有相同的流程(所有文件都使用相同的文件名发送,因此我不想混淆自己或复制和粘贴错误的日期数据)
  • 我已经编写了以下代码,但需要从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附件)

    我读了一些关于堆栈溢出的文章,但不理解(这里只是初学者)。这就是您希望从Excel获得的内容


    但是,您还有另一个选择,即改为编写Outlook宏。看见这样,您就可以每天在Outlook中自动运行宏(只要打开Outlook)以提取数据。宏的内容基本上与第一个链接中的内容相同。

    如果我理解正确,您每天都会收到Outlook电子邮件附件中Excel文件中的数据,并且希望自动将该数据复制到其他已知Excel文件中。是吗?没错,罗伯特!我每天从具有相同文件名的报告中接收数据;只想将数据复制到新工作簿中;另存为文件名和昨天的日期(或接收日期);代码可以工作,但只想连接到Outlook文件夹以打开文件(其他一切都应该很好)。哦,我还想删除文件夹中的电子邮件,一旦我完成,以便第二天我开始新的