Сохранение вложения с использованием VBA

Question

Когда я сохраняю вложение, используя приведенный ниже код VBA, все работает нормально, но файл Excel становится поврежденным.Размер файла при просмотре в outlook составляет 10 МБ, после перемещения в папку он говорит, что размер файла составляет 34 КБ, при попытке открыть файл я получаю следующую ошибку:

«Excel не может открыть файл» ХАРАКТЕРИСТИКА ДАННЫХDUMP.xlsx ", так как формат файла или расширение файла недопустимо. Убедитесь, что файл не был поврежден и что расширение файла соответствует формату файла"

Любая помощь будет приветствоваться.

Дейв

Я запустил тестовый файл, который намного меньше, изменил расширение файла на xls, но получилось то же самое.

 Sub MoveItems()
 Dim myNameSpace As Outlook.NameSpace
 Dim myInbox As Outlook.Folder
 Dim myDestFolder As Outlook.Folder
 Dim myItems As Outlook.Items
 Dim myItem As Object
 Dim myAttachments As Outlook.Attachments
 Dim saveFolder As String

 saveFolder = "G:\Responsive\1.5 - Reports\Daily 
 Reports\OneServe\Downloads"

 Set myNameSpace = Application.GetNamespace("MAPI")
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
 Set myItems = myInbox.Items
 Set myDestFolder = myInbox.Folders("DATA DUMPS").Folders("HAVERING")
 Set myItem = myItems.Find("[SUBJECT] = 'HAVERING DATA DUMP'")


 Set myAttachments = myItem.Attachments
    Debug.Print myAttachments.Item(1).Size

    today = Format(myItem.ReceivedTime, "dd-mm-yyyy")
    myAttachments.Item(1).SaveAsFile saveFolder & "\" & "HAVERING DATA 
    DUMP.xlsx"
    myItem.Move myDestFolder


  End Sub