Ошибки при использовании макроса Mac Excel для экспорта CSV - PullRequest
Новая
       32

Ошибки при использовании макроса Mac Excel для экспорта CSV

1 голос
/ 15 апреля 2019

Mac Excel v16.16.7 - Попытка использовать макрос для экспорта активного листа файла xlsm в файл формата csv с именем листа в качестве имени файла.

Мне известны проблемы с песочницей имне показалось, что я обошел их с помощью GrantAccessToMultipleFiles, но точный макрос ниже дает три разных результата:

  1. Иногда это работает.Сохраняет лист в формате CSV в том же каталоге, что и рабочая книга.
  2. 400 ошибка
  3. Ошибка времени выполнения "1004" Ошибка приложения или объекта 
Sub SaveAsCSV()

    Dim strName As String
    Dim fileAccessGranted As Boolean
    Dim filePermissionCandidates

    filePermissionCandidates = Array(ThisWorkbook.Path & Application.PathSeparator & ActiveSheet.Name & ".csv")

    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)

    If fileAccessGranted = True Then

        Application.ScreenUpdating = False

        strName = ThisWorkbook.Path & Application.PathSeparator & ActiveSheet.Name & ".csv"

        ActiveSheet.Copy    'copy the sheet as a new workbook
        ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlCSV
        ActiveWorkbook.Close SaveChanges:=False

        Application.ScreenUpdating = True

        MsgBox "File has been Created and Saved as:  " & vbCr & strName, , "Copy & Save Report"

    End If

End Sub

Я надеюсь получить некоторое представление о том, почему результаты различны.Спасибо!

...