我正在使用excel vba宏，该宏应仅将Outlook中的excel文件复制到其他位置
我有以下代码
Sub Test(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\APIndex"
Dim dateFormat As String
dateFormat = Format(itm.ReceivedTime, "yyyy-mm-dd Hmm ")
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
Next
End Sub
使用上面的代码，我能够下载所有文件，包括一些图像和pdf，但是我只想要.xls和.xlsx文件。
有什么好办法吗？
您可以使用例如VBA实施某种预过滤，InStr()以检查文件名是否包含。xls或者 。xlsx，如以下代码片段所示：
if (InStr(1, FileName, ".xls") >0 Or InStr(1, FileName, ".xlsx") >0) Then
'Save the File
End If
希望这会有所帮助。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句