Открыть/сохранить файл на Mac

Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
With dlgOpen
   .InitialFileName = Thisworkbooл.Path
   .Title = "Выберите файл"
   .AllowMultiSelect = False
   If .Show = -1 Then FN1 = .SelectedItems(1)
End With
Set dlgOpen = Nothing
'...
Set FP1 = Application.Workbooks.Open(Filename:=FN1, Local:=True, UpdateLinks:=False)
'...
FP1.SaveAs ThisWorkbook.Path & Application.PathSeparator & "Output.xlsx"

Sub Макрос1()
    Workbooks.Open FileName:="/Users/slava/Downloads/excel_file.xlsb"
    ActiveWorkbook.SaveAs FileName:="/Users/slava/Desktop/excel_file.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Sub Main() 
 
 'Declare a variable as a FileDialog object. 
 Dim fd As FileDialog 
 
 'Create a FileDialog object as a File Picker dialog box. 
 Set fd = Application.FileDialog(msoFileDialogFilePicker) 
 
 'Declare a variable to contain the path 
 'of each selected item. Even though the path is aString, 
 'the variable must be a Variant because For Each...Next 
 'routines only work with Variants and Objects. 
 Dim vrtSelectedItem As Variant 
 
 'Use a With...End With block to reference the FileDialog object. 
 With fd 
 
 'Set the initial view to the details view. 
 .InitialView = msoFileDialogViewDetails 
 
 'Use the Show method to display the File Picker dialog box and return the user's action. 
 'If the user presses the button... 
 If .Show = -1 Then 
 
 'Step through each string in the FileDialogSelectedItems collection. 
 For Each vrtSelectedItem In .SelectedItems 
 
 'vrtSelectedItem is aString that contains the path of each selected item. 
 'You can use any file I/O functions that you want to work with this path. 
 'This example displays the path in a message box. 
 MsgBox "Selected item's path: " & vrtSelectedItem 
 
 Next vrtSelectedItem 
 'If the user presses Cancel... 
 Else 
 End If 
 End With 
 
 'Set the object variable to Nothing. 
 Set fd = Nothing 
 
End Sub

Private Sub SelectFile1()
   ' The user selects a file, the full name of the selected file is written to cell B2.
   Dim FN As String, Title As String, FileFormats As String, AllowMultiSelect As Boolean, InitialView As String
 
   '1. Dialog settings.
   Title = "ВЫБЕРИТЕ ВХОДНОЙ ФАЙЛ"
   FileFormats = "{""org.openxmlformats.spreadsheetml.sheet""}"   ' xlsx only
   AllowMultiSelect = False
   InitialView = MacScript("return (path to desktop folder) as String")
 
   '2. Displaying the dialog.
   If FileDialog(FN, Title, FileFormats, AllowMultiSelect, InitialView) = True Then ThisWorkbook.Sheets(1).Range("B2").Value = FN
End Sub

Option Explicit
Option Base 1
 
Function FileDialog(FNs, Title As String, FileFormats As String, AllowMultiSelect As Boolean, InitialView As String) As Boolean
   ' The function displays a dialog for selecting files.
 
   ' The function will return False in these cases:
       '1) the user refused to select files.
 
   ' Version: 23 August 2021.
 
   Dim i As Long, Script As String, Selected
 
   '1. Enclosing parameters with quotation marks.
   Title = """" & Title & """"
   InitialView = """" & InitialView & """"
 
   '2. Enclosing parameters with spaces.
   Title = " " & Title & " "
   FileFormats = " " & FileFormats & " "
   InitialView = " " & InitialView & " "
 
   '3. Creating a script.
   ' Mac 2011.
   If Val(Application.Version) < 15 Then
      If AllowMultiSelect = False Then
         Script = _
             "set theFile to (" & _
                 "choose file of type" & FileFormats & _
                 "with prompt" & Title & _
                 "default location alias" & InitialView & _
                 "without multiple selections allowed" & _
             ") as string" & vbNewLine & _
             "return theFile"
      Else
         Script = _
             "set applescript's text item delimiters to {ASCII character 10} " & vbNewLine & _
             "set theFiles to (" & _
                 "choose file of type" & FileFormats & _
                 "with prompt" & Title & _
                 "default location alias" & InitialView & _
                 "with multiple selections allowed" & _
             ") as string" & vbNewLine & _
             "set applescript's text item delimiters to """" " & vbNewLine & _
             "return theFiles"
       End If
   ' New versions.
   Else
      If AllowMultiSelect = False Then
         Script = _
             "set theFile to (" & _
                 "choose file of type" & FileFormats & _
                 "with prompt" & Title & _
                 "default location alias" & InitialView & _
                 "without multiple selections allowed" & _
             ") as string" & vbNewLine & _
             "return posix path of theFile"
      Else
         Script = _
             "set theFiles to (" & _
                 "choose file of type" & FileFormats & _
                 "with prompt" & Title & _
                 "default location alias" & InitialView & _
                 "with multiple selections allowed" & _
             ")" & vbNewLine & _
             "set thePOSIXFiles to {}" & vbNewLine & _
             "repeat with aFile in theFiles" & vbNewLine & _
             "set end of thePOSIXFiles to POSIX path of aFile" & vbNewLine & _
             "end repeat" & vbNewLine & _
             "set {TID, text item delimiters} to {text item delimiters, ASCII character 10}" & vbNewLine & _
             "set thePOSIXFiles to thePOSIXFiles as text" & vbNewLine & _
             "set text item delimiters to TID" & vbNewLine & _
             "return thePOSIXFiles"
       End If
   End If
 
   '4. Displaying the dialog.
   On Error Resume Next
   Selected = MacScript(Script)
   On Error GoTo 0
 
   '5. If the user refused to select files.
   If Selected = "" Then Exit Function
 
   '6. Writing the full file name to a variable.
   If AllowMultiSelect = False Then
      FNs = Selected
   '7. Writing full file names to an array.
   Else
      Selected = Split(Selected, Chr(10))
      ReDim FNs(UBound(Selected) + 1)
      For i = 0 To UBound(Selected)
         FNs(i + 1) = Selected(i)
      Next i
   End If
 
   '8.
   FileDialog = True
End Function

         If Dir(FN1) = "" Then
            MsgBox "Не найден входной файл", vbCritical + vbOKOnly, "Внимание"
            Exit Sub
         End If

strFile = Dir(strPath, MacID("TEXT"))

      #If Mac Then
         If Dir(Chr(34) & FN1 & Chr(34)) = "" Then
            MsgBox "Не найден входной файл", vbCritical + vbOKOnly, "Внимание"
            Exit Sub
         End If
      #Else
         If Dir(FN1) = "" Then
            MsgBox "Не найден входной файл", vbCritical + vbOKOnly, "Внимание"
            Exit Sub
         End If
      #End If

 Private Sub SelectFile1()
   ' The user selects a file, the full name of the selected file is written to cell B2.
   Dim FN As String, Title As String, FileFormats As String, AllowMultiSelect As Boolean, InitialView As String
 
   '1. Dialog settings.
   Title = "ВЫБЕРИТЕ ВХОДНОЙ ФАЙЛ"
   FileFormats = "{""org.openxmlformats.spreadsheetml.sheet""}"   ' xlsx only
   AllowMultiSelect = False
   InitialView = MacScript("return (path to desktop folder) as String")
 
   '2. Displaying the dialog.
   'If FileDialog(FN, Title, FileFormats, AllowMultiSelect, InitialView) = True Then ThisWorkbook.Sheets(1).Range("B2").Value = FN
   If FileDialog(FN, Title, FileFormats, AllowMultiSelect, InitialView) = True Then
    Workbooks.Open FileName:=FN
        ActiveWorkbook.SaveAs FileName:="/Users/slava/Desktop/excel_file.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   End If
End Sub