Есть код, написанный под windows. Нужно то же самое, только под Mac.
| Код |
|---|
' выбор файла материалов
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н.
