Добрый день.
Подскажите, как доработать код.
Есть вот такой код, взят из интернета, он выводит содержимое ячейки заданного адреса со всех файлов, которые находятся в выбранной папке.[
В данном коде именно с ячейки А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 строки ниже в соседнем столбце находится та информация, которую я хочу вытащить, ну а если в файле отсутствует искомая фраза - его надо пропустить( или написаль, что нет информации).
Сможете помочь?
