Макрос для копирования и сохранения как хорошо работает на ма c, но не на ПК - PullRequest
Новая
       77

Макрос для копирования и сохранения как хорошо работает на ма c, но не на ПК

0 голосов
/ 13 февраля 2020

У меня есть книга XLSM с кодом ниже, который отлично работает на моей ма c, но для моих коллег на p c, в результате получается документ, который нельзя открыть с помощью Excel, и тип файла указан как файл. Выглядит это так: Тип текста do c с расширением файла

Надежда на кого-то умнее меня может помочь мне понять, как это исправить. 

Sub SaveAs()

    Dim workbook_Name As Variant

    workbook_Name = Application.GetSaveAsFilename

    If workbook_Name <> False Then

         Worksheets("Staff Summary").Copy

         With ActiveWorkbook
            .SaveAs FileName:=workbook_Name, FileFormat:=51
            .Close SaveChanges:=False

             Application.DisplayAlerts = False
         End With

    End If

End Sub
...