Макросы для Mac

Sub ImportDataFromFile()
    ' Объявление переменных
    Dim ws As Worksheet
    Dim filePath As String
    Dim lastRow As Long
    Dim importRange As Range
    Dim sourceWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim columnsToFormat As Variant
    Dim col As Variant
    Dim data As Variant
    Dim i As Long, j As Long
    
    ' Установите активный лист
    Set ws = ThisWorkbook.ActiveSheet
 
    ' Отключение обновления экрана и расчета формул
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    ' Открытие диалогового окна для выбора файла
    filePath = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx", , "Выберите файл для импорта")
    If filePath = "False" Then Exit Sub ' Проверка, был ли выбран файл
 
    ' Открытие выбранного файла
    Set sourceWorkbook = Workbooks.Open(filePath)
    Set sourceSheet = sourceWorkbook.Sheets(1) ' Предполагаем, что данные на первом листе
 
    ' Определение последней строки в целевом листе
    lastRow = ws.Cells(ws.Rows.count, 1).End(xlUp).Row + 1
 
    ' Определение диапазона данных для копирования
    Set importRange = sourceSheet.UsedRange
 
    ' Копирование заголовков, если это первый импорт
    If lastRow = 2 Then
        ws.Cells(1, 1).Resize(1, importRange.Columns.count).Value = importRange.Rows(1).Value
        lastRow = lastRow + 1
    End If
 
    ' Копирование данных (без заголовков) в массив
    data = importRange.Offset(1, 0).Resize(importRange.Rows.count - 1).Value
    ws.Cells(lastRow, 1).Resize(UBound(data, 1), UBound(data, 2)).Value = data
 
    ' Замена . на , в столбце BL
    Dim blColumn As Range
    Set blColumn = ws.Range("BL2:BL" & ws.Cells(ws.Rows.count, "BL").End(xlUp).Row)
    If Not blColumn Is Nothing Then
        data = blColumn.Value
        For i = 1 To UBound(data, 1)
            If Not IsEmpty(data(i, 1)) Then
                data(i, 1) = Replace(CStr(data(i, 1)), ".", ",")
            End If
        Next i
        blColumn.Value = data
    End If
 
    ' Определение столбцов для форматирования
    columnsToFormat = Array("L", "M", "AL", "AM")
 
    ' Форматирование дат в указанных столбцах
    For Each col In columnsToFormat
        Dim formatRange As Range
        Set formatRange = ws.Range(col & "2:" & col & ws.Cells(ws.Rows.count, col).End(xlUp).Row)
        If Not formatRange Is Nothing Then
            data = formatRange.Value
            For i = 1 To UBound(data, 1)
                If IsDate(data(i, 1)) Then
                    data(i, 1) = Format(dateValue(data(i, 1)), "DD.MM.YYYY")
                End If
            Next i
            formatRange.Value = data
        End If
    Next col
 
    ' Закрытие исходной книги
    sourceWorkbook.Close False
 
    ' Включение обновления экрана и расчета формул
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
    ' Уведомление пользователя об успешном импорте
    MsgBox "Данные успешно импортированы и отформатированы!", vbInformation
End Sub