excel - 自动保存附件 Outlook 转换为 csv

Question

我使用以下代码自动将文件名中包含特定文本的 Excel 文件保存到特定位置，因为它们到达我的 Outlook 文件夹:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\temp\"
 For Each objAtt In itm.Attachments
          If InStr(objAtt.DisplayName, ".xlsx") Then
            If InStr(objAtt.DisplayName, "Test") Then
          objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
      End If
End If
 Next
End Sub

有没有办法让 Outlook 将文件保存为 .csv 格式，或者至少指示它打开 Excel 并自动执行任务？

谢谢

Answer 1

您可以自动化 Excel 来为您完成工作。但是无论如何您都需要将附件保存在磁盘上。然后在 Excel 中，您可以打开保存的文件并将其保存为您需要的格式。

见 How to automate Microsoft Excel from Visual Basic快速开始。