如何使用excel VBA打开在特定时间范围内发送到特定Outlook文件夹的Outlook excel附件?
这是我第一个问题。我想主修计算机科学,但在此期间,我恳请您使用VBA Excel提供帮助 我每天(工作日)收到具有相同文件名的Outlook电子邮件;我想编程VBA Excel以打开我在前一天晚上收到的Outlook附件 因此,实际上有两件事:如何使用excel VBA打开在特定时间范围内发送到特定Outlook文件夹的Outlook excel附件?,excel,vba,outlook,Excel,Vba,Outlook,这是我第一个问题。我想主修计算机科学,但在此期间,我恳请您使用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文件夹以打开文件(其他一切都应该很好)。哦,我还想删除文件夹中的电子邮件,一旦我完成,以便第二天我开始新的