Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)

Сообщение будет показано после одобрения модератором.

Страницы: 1
RSS
макрос. создать массив из данных закрытой книги
 
#1
16.09.2010 20:45:50
Добрый вечер.  
 
Интересует сабж. ХОтел бы создать макрос, который обращался бы к закрытой книге, брал со второго листа таблицу от 2.1 до 4.6, помещал её в массив.    
Помогите
 
 
 
#2
16.09.2010 20:47:48
Поиск по: ADO
KL
 
 
 
#3
16.09.2010 21:04:50
{quote}{login=KL}{date=16.09.2010 08:47}{thema=}{post}Поиск по: ADO{/post}{/quote}  
сложновато найти будет, да и разобраться. Достать данные из закрытой книги так сложно? ужас, блин
 
 
 
#4
16.09.2010 21:13:42
{quote}{login=широкарека}{date=16.09.2010 09:04}{thema=Re: }{post}{quote}{login=KL}{date=16.09.2010 08:47}{thema=}{post}Поиск по: ADO{/post}{/quote}  
сложновато найти будет, да и разобраться. Достать данные из закрытой книги так сложно? ужас, блин{/post}{/quote}  
 
а нельзя написать макрос открытия и закрытия книги, из которой нужно достать значения?  
тогда, думаю. задача упростится...  
Или принципиально, чтобы книга не открывалась?
 
 
 
#5
16.09.2010 21:18:28
Готовые решения:  
 
<EM>http://www.rondebruin.nl/ado.htm</EM>  
<EM>http://www.erlandsendata.no/english/index.php?d=envbadacwbdbado</EM>  
 
Вот еще способ, но нужно делать цикл, так как метод ExecuteExcel4Macro позволяет вытягивать только одно значение за каждое обращение:  
 
<EM>http://spreadsheetpage.com/index.php/tip/a_vba_function_to_get_a_value_from_a_closed_file/</EM>
KL
 
 
 
#6
16.09.2010 21:25:12
{quote}{login=Diana Tailor}{date=16.09.2010 09:13}{thema=Re: Re: }{post}{quote}{login=широкарека}{date=16.09.2010 09:04}{thema=Re: }{post}{quote}{login=KL}{date=16.09.2010 08:47}{thema=}{post}Поиск по: ADO{/post}{/quote}  
сложновато найти будет, да и разобраться. Достать данные из закрытой книги так сложно? ужас, блин{/post}{/quote}  
 
а нельзя написать макрос открытия и закрытия книги, из которой нужно достать значения?  
тогда, думаю. задача упростится...  
Или принципиально, чтобы книга не открывалась?{/post}{/quote}  
 
Пока тут гуглил, можно сделать со скринаптейтинг'ом = false, пожалуй так и поступлю.  
 
А можно в массив поместить диапазон данных без использования циклов? (глупый вопрос, знаю, но везде написано назное)  
 
Про адо обязательно почитаю, спасибо за ссылки
 
 
 
#7
16.09.2010 23:03:15
{quote}{login=широкарека}{date=16.09.2010 08:45}{thema=макрос. создать массив из данных закрытой книги}{post}... макрос, который обращался бы к закрытой книге, брал со второго листа таблицу от 2.1 до 4.6, помещал её в массив...{/post}{/quote}Что такое от "от 2.1 до 4.6", можете выложить пример закрытой книги?
 
 
 
#8
16.09.2010 23:06:27
Может A2:F4? :-)
 
 
 
#9
16.09.2010 23:38:58
{quote}{login=ZVI}{date=16.09.2010 11:03}{thema=Re: макрос. создать массив из данных закрытой книги}{post}{quote}{login=широкарека}{date=16.09.2010 08:45}{thema=макрос. создать массив из данных закрытой книги}{post}... макрос, который обращался бы к закрытой книге, брал со второго листа таблицу от 2.1 до 4.6, помещал её в массив...{/post}{/quote}Что такое от "от 2.1 до 4.6", можете выложить пример закрытой книги?{/post}{/quote}  
 
имел ввиду диапазон от cells(2,1) до (4.6)
 
 
 
#10
17.09.2010 01:20:59
>> имел в виду диапазон от cells(2,1) до (4.6)  
 
Приложил пример быстрого считывания внешних данных в VBA-массив, а также в массив ячеек листа без использования ADO.  
 
Книга с внешними данными может быть как открытой (загруженной в excel), так и закрытой (не загруженной).
 
 
 
#11
17.09.2010 01:45:39
Немного подправил код.  
Нужно распаковать архив, загрузить MasterWb.xls  и нажать кнопку Run
 
 
 
#12
17.09.2010 04:48:47
{quote}{login=ZVI}{date=17.09.2010 01:45}{thema=Считывание внешних данных в массив без ADO}{post}Немного подправил код.  
Нужно распаковать архив, загрузить MasterWb.xls  и нажать кнопку Run{/post}{/quote}  
мудрён макрос, будем разбираться. Спасибо. Массив можно сделать и динамическим, верно?
 
 
 
#13
17.09.2010 13:07:30
{quote}{login=река}{date=17.09.2010 04:48}{thema=Re: Считывание внешних данных в массив без ADO}{post}...Массив можно сделать и динамическим, верно?{/post}{/quote}Массив закрытой книги не должен быть динамическим, чтобы на него можно было ссылаться извне. Как вариант, можно при сохранении книги с динамическим диапазоном с помощью Workbook_BeforeSave автоматически создавать нединамическую копию диапазона.
 
 
 
#14
17.09.2010 22:49:15
{quote}{login=ZVI}{date=17.09.2010 01:07}{thema=}{post}{quote}{login=река}{date=17.09.2010 04:48}{thema=Re: Считывание внешних данных в массив без ADO}{post}...Массив можно сделать и динамическим, верно?{/post}{/quote}Массив закрытой книги не должен быть динамическим, чтобы на него можно было ссылаться извне. Как вариант, можно при сохранении книги с динамическим диапазоном с помощью Workbook_BeforeSave автоматически создавать нединамическую копию диапазона.{/post}{/quote}  
ZVI,  
а мжно поподробнее про: Workbook_BeforeSave автоматически создавать нединамическую копию диапазона
 
 
 
#15
18.09.2010 00:33:48
Я в своей работе делал так (прилагаю пример, размер 23 664). Брал инфу из какой-то книги по VBA Excel.
 
 
 
#16
18.09.2010 01:12:45
Владимир, мне кажется лучше приучить себя пользоваться Option Explicit )
 
 
 
#17
18.09.2010 01:25:03
Владимир, а какую смысловую нагрузку несут вот эти 2 строки  
 
fm = Formula  
и  
.Formula = fm  
 
Если и необъявленная переменная formula всегда равна Empty и переменная fm всегда равна Empty ?  
 
Или я пропустил что-то?
 
 
 
#18
18.09.2010 01:32:22
{quote}{login=}{date=18.09.2010 01:12}{thema=}{post}Владимир, мне кажется лучше приучить себя пользоваться Option Explicit ){/post}{/quote}  
:-)  
Это Вы про fm = .Formula , но без точки перед Formula? - Согласен, конечно!  
Хотя эта строчка и отладочный атавизм, так как ищется пустая ячейка без какой-либо формулы ;-)  
 
Дмитрий, спасибо, что выручаете, а то мое время - немного до, и много после полуночи. Только, я бы все же использовал Workbook_BeforeSave, а не Workbook_BeforeClose, так как можно сначала сохранить книгу, а затем закрыть её без сохранения.
 
 
 
#19
18.09.2010 01:48:14
{quote}{login=}{date=18.09.2010 01:25}{thema=}{post}Владимир, а какую смысловую нагрузку несут вот эти 2 строки  
 
fm = Formula  
и  
.Formula = fm  
 
Если и необъявленная переменная formula всегда равна Empty и переменная fm всегда равна Empty ?  
 
Или я пропустил что-то?{/post}{/quote}  
Это остатки отладки.  
Сначала у меня было так:  
With Sheets(1).Cells(1, 1)  
 fm = .Formula  
 .Formula = "=ToArray('" & ThisWorkbook.Path & "\[ExternalWb.xls]Лист2'!A2:F4)"
 .Formula = fm  
End With  
 
Т.е. ячейка A1 использовалась как вспомогательная, но в ней в общем случае могло что-то быть, поэтому, сначала предполагалось сохранить формулу A1, затем вписать в неё формулу со ссылкой на диапазон закрытой книги, а затем вернуть запомненную формулу. Если бы в ячейке была не формула, а число, то все бы сработало в этом случае тоже корректно.  
 
Но в опубликованном варианте в качестве вспомогательной ищется пустая ячейка в столбце A, поэтому запоминать и восстанавливать формулу пустой ячейки не имеет смысла. Откорректированный вариант приложен.
 
 
 
#20
18.09.2010 01:50:03
Ясно, спасибо!
 
 
 
#21
05.02.2011 15:42:01
Подскажите, а как добавить в этот макрос считывание с нескольких книг?
 
 
 
#22
02.09.2011 17:29:17
{quote}{login=GYV}{date=05.02.2011 03:42}{thema=Re: }{post}Подскажите, а как добавить в этот макрос считывание с нескольких книг?{/post}{/quote}  
Подскажите, пожалуйста, как сделать, чтобы макрос брал путь из ячейки. И как должен выглядень путь?
 
 
 
Страницы: 1

Сообщение будет показано после одобрения модератором.

Наверх