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 FILEFORMAT：= xlWorkbookDefault

或

ActiveWorkbook.SaveAs FILEFORMAT：= 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？