vba - Outlook：保存 Excel 附件并更改文件扩展名

Question

我没有以前的经验，VBA并在这里找到了我问题的第一部分的解决方案。因此，我能够使用下面的代码使“保存 Excel 附件”部分工作。

现在，由于附件是一个.xls文件，并在打开时给我一个损坏的文件消息（其他工作表从这个保存的文件中提取数据），我想将它自动保存为 . xlsx文件。

我试图找到解决方案，但我尝试过的方法不起作用。希望能在这里找到一些帮助。任何帮助，将不胜感激！提前致谢！

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)

    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    Dim dateFormat
    dateFormat = Format(itm.ReceivedTime - 1, "yyyymmdd_")    
    saveFolder = "THIS IS MY FOLDER"

    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
        Set objAtt = Nothing
       Next    

End Sub

Answer 1

你像这样指定 fileFormat

ActiveWorkbook.SaveAs 文件格式：=xlWorkbookDefault

或者

ActiveWorkbook.SaveAs 文件格式：=51

http://msdn.microsoft.com/en-us/library/office/ff840717(v=office.14).aspx

此处的文件格式：

• http://msdn.microsoft.com/en-us/library/bb241279.aspx
• http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.xlfileformat.aspx？