Страницы: 1
RSS
Поправить код вызова диалогового окна выбора файла., Исправить код VBA windows на MAC OS
 
Уважаемые форумчане.
Есть код на 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н.
 
Это не так просто, как может показаться, на первый взгляд.
Здесь готовый макрос по открытию диалога выбора файла для Мак
http://www.rondebruin.nl/mac/mac015.htm
 
Pelena,  спасибо.
Я пока использовал вот этот метод. Насколько я понял, он на MAC-е должен работать тоже.
Прописал пока так. Если не пойдет тогда разберу Ваш пример.
Код
' выбор файла материалов
Sub SelMat()
    Dim nF As String ' имя файла обмена

    nF = Application.GetOpenFilename("Excel files (*.xlsx; *.xls),*.xlsx;*.xls")
    If nF <> False Then
        ThisWorkbook.Sheets("Menu").Range("H4").Formula = nF
    End If
End Sub
Изменено: Joiner - 18.05.2019 09:58:00
Никому не отвечай, кoгда ты зол, ничего не обeщай, когда ты счастлив, никогда нe решай, когда ты грустeн.
Страницы: 1
Наверх