Получить данные из одной ячейки из нескольких сотен файлов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Получить данные из одной ячейки из нескольких сотен файлов (Макросы/Sub)

AVI

Дата: Пятница, 09.12.2016, 05:54 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
У меня есть папка, где находятся несколько сотен файлов. У всех есть лист "Вводные" и ячейка E28. Помогите, пожалуйста, получить значение этих ячеек в отдельный лист.

Сообщение отредактировал AVI - Пятница, 09.12.2016, 07:06

Ответить

китин

Дата: Пятница, 09.12.2016, 07:16 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Посмотрите, может оно?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Nic70y

Дата: Пятница, 09.12.2016, 12:31 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 8754

Репутация: 2270 ±

Замечаний: 0% ±

Excel 2010

вариант "подпольной" формулой
файл в ту же папку, где

Цитата AVI, 09.12.2016 в 05:54, в сообщении № 1 ()

находятся несколько сотен файлов

[vba]

Код

Sub tipaFORMULA()
    Columns("A:A").ClearContents
Dim iPath As String
    Dim iFileName As String
    Dim i As Long
    iPath = ThisWorkbook.Path
    iFileName$ = Dir(iPath$ & "\*xls.*")
    i = 1
    Do While iFileName$ <> ""
    On Error Resume Next
    ActiveSheet.Cells(i, 1) = "='" & iPath$ & "\[" & iFileName & "]Вводные'!E28"
    i = i + 1
    iFileName$ = Dir
    Loop
End Sub

[/vba]

К сообщению приложен файл: 00001.xlsm (16.8 Kb)

ЮMoney 41001841029809

Ответить

AVI

Дата: Пятница, 09.12.2016, 13:03 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Nic70y, Огонь! Спасибо!

Ответить

Страница 1 из 1
1