|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.12.2009, 06:04 | #11 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
1. Какую строку кода выделяет debuger при ошибке?
2. Вы применяете предложенный макрос без изменений? Если нет, то покажите Ваш код
Чем шире угол зрения, тем он тупее.
|
23.01.2011, 11:03 | #12 |
Регистрация: 23.01.2011
Сообщений: 4
|
А можно сделать так, чтобы при выполнение макроса открывался соответствующий лист и на нем указать диапазон ячеек, которые необходимо собрать?
|
24.01.2011, 05:32 | #13 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Не скупитесь на слова. Объясните подробнее то, что Вам нужно. Прикрепите файлы (источник и приемник) с примером.
Чем шире угол зрения, тем он тупее.
|
|
24.01.2011, 11:06 | #14 | |
Регистрация: 23.01.2011
Сообщений: 4
|
Цитата:
В приложенном файле ячейки, с которых надо взять данные в формируемый файл - выделены цветом. Предполагаемый файл - приёмник приложен, форму можно изменить, главное данные с источника собрать и расположить построчно. В столбце А стоят названия установок, что соответствует названию файла без расширения. Вот вроде и все, что хотел получить. Т.к. программировать не умею, решил все собрать ручками. Процедура редкая (2-3 раза в месяц), если это трудно осуществить программно, не стоит заморачиваться. |
|
24.01.2011, 12:12 | #15 |
Пользователь
Регистрация: 20.01.2011
Сообщений: 21
|
Уважаемые форумчане,
помогите пожалуйста решить задачу, очень похожую на ту, что обсуждается в этой ветке. Проблема в том, что я вообще не разбираюсь в программировании. Вобщем, имеется куча .xls файлов в одной папке. на листе 1 находится нужная информация. Требуется собрать всю информацию с этих файлов в один .xls для последующего анализа. (1.xls - пример документов, ИЗ которых берется информация. желтым обозначены ячейки нужные. Проблема в том, что в диапазоне R32C3 - R40C17 в разных файлах меняется количество строк, соответственно и расположение ячеек. изменяется от 1 до 7 строк обычно. 2.xls - это таблица, которая должна получиться, В которую вставляются данные). Заранее благодарю за оказанную помощь! У меня Excel 2007. Некоторая информация указана в примечаниях.(R-Row- строка,С-column-столбец) Для удобства столбцы, которые не требуются в заполнении скрыты. |
24.01.2011, 13:11 | #16 |
Пользователь
Регистрация: 20.01.2011
Сообщений: 21
|
UPD
Расположение всех остальных ячеек полностью одинаковое. ЗЫ Само содержание ячеек разное. вязи между конечным файлом и файлом-источником не нужны. Нужны только цифры, данные. ='[1.xls]Лист1'!R20C4 - этими связями я просто показал, что откуда берется. В папке определенное количество файлов, новые не появляются. |
24.01.2011, 13:27 | #17 |
Пользователь
Регистрация: 20.01.2011
Сообщений: 21
|
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 |
25.01.2011, 07:01 | #18 |
Пользователь
Регистрация: 20.01.2011
Сообщений: 21
|
никто не поможет?
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Округлить значение ячейки | kzld | Microsoft Office Excel | 8 | 13.12.2009 11:58 |
Взять имя переменной из файла и присвоить ей значение | ZaRDaK | Помощь студентам | 1 | 11.11.2009 00:33 |
может ли макрос взять данные из файла не открывая сам файл? | kievlyanin | Microsoft Office Excel | 1 | 14.10.2009 19:51 |
Как в одном файле взять цифру из ячейки другого файла? | Hallo | Microsoft Office Excel | 3 | 26.05.2009 01:25 |
Взять значение по модулю | ruavia3 | Microsoft Office Excel | 1 | 08.04.2009 10:18 |