0

Есть файл в котором несколько листов, на первом листе таблица с данными, в этой таблице есть формула ВПР, которая берет данные из таблицы другого файла. Другой файл переодически обновляется и имеет название файла "отчет 01.01.2019" (файл с новой датой переодически кладет другой человек в ту же папку). Можно ли сделать макрос который при запуске исходного файла изменял в формуле дату на текущую (в пути к файлу)? при этом возможно ли чтобы при отсутствии файла с текущей датой брался файл предыдущий? (например, если тек.дата - нет, смотрим тек.дата -1 день - нет, тек.дата -2 - есть)

В исходном файле много данных, формул, макросов, полноценный пример сложно предоставить ссылка на файлик примера https://cloud.mail.ru/public/LfaT/hYT7gCaAr

4
  • Сначала можно понять, что две таблицы в одном файле, оказывается - два файла? Название таблицы - это умная таблица (имеет имя, именованный диапазон) или название написано над таблицей? Или Вы подразумевали название файла? В файле-источнике данных один лист или несколько? Опишите нормально. покажите пример расположения данных 19 янв 2019 в 9:06
  • Два файла, да, не дописал. Название файла я подразумевал, в папку переодически кладется файл отчета сделанного текущим днем. В файле-источнике несколько листов, но формула использует один. Пример, не нашел как приложить файл..
    – skawn
    19 янв 2019 в 9:21
  • Так допишите нормально и покажите примеры. Не вытягивать же из Вас информацию по крупинкам... 19 янв 2019 в 9:23
  • пытался так и сделать)
    – skawn
    19 янв 2019 в 9:31

1 ответ 1

0

Зачем формула, если все равно используется VBA? Тянуть данные макросом:

Sub DataShop()
Dim aData(), aShop(), aRes()
Dim sPath As String, dDate As Date, bFlag As Boolean
Dim i As Long, k As Long
Const sFolder As String = "I:\путькфайлу\"
Const lRwStart As Long = 5 ' начало диапазона'
    With ActiveSheet
        i = .UsedRange.Rows.Count + .UsedRange.Row - 1
        If i < 5 Then Exit Sub
        aShop = .Cells(lRwStart, 3).Resize(i - lRwStart + 1, 1).Value 
    End With

    ReDim aRes(1 To UBound(aShop), 1 To 1)
    dDate = Date

    Do
        sPath = sFolder & "отчет (" & Format(dDate, "dd.mm.yyyy") & ").xls"
        If Dir(sPath, vbDirectory) <> "" Then bFlag = True: Exit Do  ' файл найден'
        dDate = dDate - 1 ' если не найден, уменьшаем дату для следующего имени файла'
    Loop Until dDate = Date - 5 ' просматриваем максимум 5 файлов (5 дат)'

    If bFlag = False Then MsgBox "Нет файла-донора", 64, "ОШИБКА": GoTo err_

    With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With

    With Workbooks.Open(Filename:=sPath) ' открыть книгу'
        With Worksheets(Format(dDate, "dd.mm.yyyy")) ' если есть сомнения в наличии листа, нужна доп. проверка'
            i = .UsedRange.Rows.Count + .UsedRange.Row - 1
            aData = .Range("B1:K" & i).Value
        End With

        .Close
    End With

    For k = 1 To UBound(aShop)
        For i = 1 To UBound(aData)
            If aShop(k, 1) = aData(i, 1) Then aRes(k, 1) = aData(i, 10) ' записываем найденное'
        Next i
    Next k

    With ActiveSheet
        .Cells(lRwStart - 1, 6).Value = dDate ' дата  файла'
        .Cells(lRwStart, 6).Resize(UBound(aRes), 1).Value = aRes ' выгрузка на лист'
    End With
err_:
    With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub

Если обработка не на активном листе - в двух местах кода заменить ActiveSheet на Worksheet("имя файла")

Код разместить в общем модуле, запуск вручную или кнопкой.

Для автообновления данных код запустить при открытии файла. В модуле книги:

Private Sub Workbook_Open()
    Call DataShop
End Sub
19
  • Как-то сложно для меня оказалось адаптировать под мой файлик макрос.. Первое это я забыл указать, что в файле доноре не на первом листе данные :( лист называется "по филиалам". "With Worksheets(Format(dDate, "dd.mm.yyyy")) ' если есть сомнения в наличии листа, нужна доп. проверка'" - тут нужно поправить название листа?
    – skawn
    23 янв 2019 в 11:47
  • Да, измените ссылку на лист: Worksheets("по филиалам") 23 янв 2019 в 11:54
  • дальше не могу понять, куда полученные данные из донора попадают в основной файлик? впр был понятен, с переменными сложнее) в основном файле столбец начиная с AS12 (до AS113) имеет формулу ВПР, которая ищет значение из A12 (до A113) в доноре (в первом столбце) и при найденных данных берет значение из той же строки 10го столбца. А где в макросе абзац об этом же?:/
    – skawn
    23 янв 2019 в 12:08
  • В конце смотрите строку с комментарием "выгрузка на лист". Начиная с ячейки .Cells(lRwStart, 6) (строка из переменной, 6 столбец). Размер диапазона вставки Resize(UBound(aRes), 1) - строк столько, сколько в вертикальной размерности массива, 1 столбец. 23 янв 2019 в 12:14
  • aShop = .Cells(lRwStart, 3).Resize(i - lRwStart + 1, 1).Value - данные столбца С (третьего) из текущего листа. aData = .Range("B1:K" & i).Value - этот диапазон из донора. в цикле с k : If aShop(k, 1) = aData(i, 1) Then aRes(k, 1) = aData(i, 10) - если значение строки из aShop совпало со значением из первого столбца массива (в массиве первый соответствует столбцу В листа), то в результат записываем значение столбца 10 ( в массиве 10 соответствует столбцу К листа) 23 янв 2019 в 12:25

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.