Добрый день.
Подскажите, как доработать код.
Есть вот такой код, взят из интернета, он выводит содержимое ячейки заданного адреса со всех файлов, которые находятся в выбранной папке.[
В данном коде именно с ячейки А1, мне же нужно сделать так, что бы для каждого файла был индивидуальный адрес, который определяется через "ПОИСКПОЗ" и далее смещение на 3 строки вниз и один столбец вправо. Т.е. в каждом файле, где есть искомая фраза (она всегда в столбце А, но на разных строках) на 3 строки ниже в соседнем столбце находится та информация, которую я хочу вытащить, ну а если в файле отсутствует искомая фраза - его надо пропустить( или написаль, что нет информации).
Сможете помочь?
Подскажите, как доработать код.
Код |
---|
Sub Main() Dim f As String, p As String, x As Object, y Application.ScreenUpdating = False Rows("2:" & Rows.Count).ClearContents With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Укажите рабочую папку": .Show If .SelectedItems.Count = 0 Then Exit Sub p = .SelectedItems(1) & "\" End With Set y = CreateObject("Scripting.Dictionary") f = Dir(p & "*.xls*") Do While f <> "" Set x = GetObject(p & f) y.Item(f) = x.Sheets(1).[A1].Text x.Close: f = Dir Loop [A2].Resize(y.Count).Value = Application.Transpose(y.Items) [B2].Resize(y.Count).Value = Application.Transpose(y.Keys) End Sub |
В данном коде именно с ячейки А1, мне же нужно сделать так, что бы для каждого файла был индивидуальный адрес, который определяется через "ПОИСКПОЗ" и далее смещение на 3 строки вниз и один столбец вправо. Т.е. в каждом файле, где есть искомая фраза (она всегда в столбце А, но на разных строках) на 3 строки ниже в соседнем столбце находится та информация, которую я хочу вытащить, ну а если в файле отсутствует искомая фраза - его надо пропустить( или написаль, что нет информации).
Сможете помочь?