Уважаемые форумчане.
Есть код на VBA под windows, возникла необходимость у начальства запускать макрос на MAC-e.
Огромная просьба подправить код под MAC OS,
Ниже код.
Нужно вызвать диалоговое окно выбора файла EXCEL и записать полный путь до выбранного файла в ячейку на листе и все.
Есть код на VBA под windows, возникла необходимость у начальства запускать макрос на MAC-e.
Огромная просьба подправить код под MAC OS,
Ниже код.
Нужно вызвать диалоговое окно выбора файла EXCEL и записать полный путь до выбранного файла в ячейку на листе и все.
Код |
---|
' выбор файла материалов Sub SelMat() Dim fD As FileDialog Dim nF As String ' имя файла обмена Set fD = Application.FileDialog(msoFileDialogOpen) With fD .Filters.Clear .Filters.Add "Файлы Excel", "*.xlsx; *.xls", 1 .AllowMultiSelect = False End With If fD.Show = -1 Then nF = fD.SelectedItems.Item(1) ThisWorkbook.Sheets("Menu").Range("H4").Formula = nF Else Exit Sub End If End Sub |
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.