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

我在VBA中没有任何预先的经验，并在这里找到了我的第一部分问题的解决方案。因此，我能够制作“保存Excel附件” - 部分工作与下面的代码。Outlook：保存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

来源

2012-12-21 user1922391

我不明白如何将'xlsx'保存为'xls'帮助吗？或者您是否尝试自动化Excel 2007+的实例来打开并重新保存它？我可能会更多地了解为什么我收到损坏的文件信息 –

谢谢你的回答。我愿意接受任何解决方案。我最终希望看到的是，保存的文件可以被其他Excel文件“读取”，而无需我手动打开/另存为xlsx。对不起，我的描述可能不是100％清晰，完全是新的。我也认为损坏的文件信息的原因来自Outlook安全设置（至少这是我读的地方），但我不能改变这些设置。 – user1922391

这是我在打开文件时得到的实际消息：“您尝试打开的文件采用与文件扩展名指定的格式不同的格式。验证文件没有损坏，并且来自可信来源打开文件，你现在想打开文件吗？“ – user1922391

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

回答

相关问题