Взять значение ячейки не открывая файл и

[SAS888]

1. Какую строку кода выделяет debuger при ошибке?
2. Вы применяете предложенный макрос без изменений? Если нет, то покажите Ваш код

[vik74]

Сообщение от SAS888

Предлагаю такой вариант:
Пусть все xls-файлы, из которых требуется получить данные находятся в одной папке. И пусть во всех этих файлах имя листа, из которого требуется получить данные это "Лист1". для этого достаточно выполнить макрос: ...

А можно сделать так, чтобы при выполнение макроса открывался соответствующий лист и на нем указать диапазон ячеек, которые необходимо собрать?

[SAS888]

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

Какой лист? Какого файла? Если мы хотим получить значения не открывая файл-источник, то нужно задать (или знать заранее) путь и имя файла, имя листа в этом файле, а также, диапазон ячеек в этом листе. Можно, конечно, задавать диапазон в листе файла-приемника, но не понятно, куда вставлять полученные данные.
Не скупитесь на слова. Объясните подробнее то, что Вам нужно. Прикрепите файлы (источник и приемник) с примером.

[vik74]

Сообщение от SAS888

Какой лист? Какого файла? Если мы хотим получить значения не открывая файл-источник, то нужно задать (или знать заранее) путь и имя файла, имя листа в этом файле, а также, диапазон ячеек в этом листе. Можно, конечно, задавать диапазон в листе файла-приемника, но не понятно, куда вставлять полученные данные.
Не скупитесь на слова. Объясните подробнее то, что Вам нужно. Прикрепите файлы (источник и приемник) с примером.

В папке куча файлов типа B1.xls, B2.xls и т.п.
В приложенном файле ячейки, с которых надо взять данные в формируемый файл - выделены цветом.
Предполагаемый файл - приёмник приложен, форму можно изменить, главное данные с источника собрать и расположить построчно. В столбце А стоят названия установок, что соответствует названию файла без расширения. Вот вроде и все, что хотел получить. Т.к. программировать не умею, решил все собрать ручками. Процедура редкая (2-3 раза в месяц), если это трудно осуществить программно, не стоит заморачиваться.

[lalike]

Уважаемые форумчане,

помогите пожалуйста решить задачу, очень похожую на ту, что обсуждается в этой ветке. Проблема в том, что я вообще не разбираюсь в программировании.

Вобщем, имеется куча .xls файлов в одной папке.
на листе 1 находится нужная информация.

Требуется собрать всю информацию с этих файлов в один .xls для последующего анализа.
(1.xls - пример документов, ИЗ которых берется информация. желтым обозначены ячейки нужные. Проблема в том, что в диапазоне R32C3 - R40C17 в разных файлах меняется количество строк, соответственно и расположение ячеек. изменяется от 1 до 7 строк обычно.
2.xls - это таблица, которая должна получиться, В которую вставляются данные).

Заранее благодарю за оказанную помощь!

У меня Excel 2007.
Некоторая информация указана в примечаниях.(R-Row- строка,С-column-столбец)
Для удобства столбцы, которые не требуются в заполнении скрыты.

[lalike]

UPD
Расположение всех остальных ячеек полностью одинаковое. ЗЫ Само содержание ячеек разное.
вязи между конечным файлом и файлом-источником не нужны. Нужны только цифры, данные. ='[1.xls]Лист1'!R20C4 - этими связями я просто показал, что откуда берется.

В папке определенное количество файлов, новые не появляются.

[lalike]

Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "Не выбрано ни одного файла!"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWork book.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub

[lalike]

никто не поможет?