![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 06.08.2009
Сообщений: 26
|
![]()
Здраствуйте, подскажите как можно работая в ворде, получить массив данных одного из полей excel-документа.
Есть макрос, который создаёт n-ное количество .doc-файлов, складывает их в одно место и присваевает им номера в виде названия. Нужно же чтобы в качестве названия он присваивал зачения (по порядку), содержащиеся в столбце "Фамилия" документа data.xls, поскольку с этим документом они связаны через поля слияния. Код:
![]() Последний раз редактировалось Sanek_81; 09.02.2011 в 16:33. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Зачем тревожить лишний раз Microsoft.Jet.OLEDB.4.0
Это пример Код:
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 06.08.2009
Сообщений: 26
|
![]() Код:
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Добавте s писал сообщении,сделал ошибку
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 06.08.2009
Сообщений: 26
|
![]()
Всё-равно ошибка в этойже строке Run-time error "9": Subscript out of range. Может необходимо в Tools/references подключить какие-нибудь дополнительные библиотеки, поставить где-то галочку?
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Проверте имя листа,имя файла.Создал,проверил,все работает
Можно заменить на индекс Set Sh = GetObject("c:\data.xls").Worksheets (1) ![]()
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 06.08.2009
Сообщений: 26
|
![]()
Спасибо, заработало, но для того чтобы обрезать лишнее я ещё добавил в цикл:
Код:
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 06.08.2009
Сообщений: 26
|
![]()
А можно как-нибудь избежать при выполнении операции выскакивания экселевского окна с сообщением, что редактирование файла запрещено так как он уже кем-то используется и открыт только для чтения? Ведь он у нас используется полями слияния. Если нельзя, то бог с ним..
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт данных из Word в Excel макросом | vv66 | Microsoft Office Excel | 17 | 27.01.2012 14:49 |
импорт таблиц word в excel | manowar_gub | Microsoft Office Excel | 6 | 13.12.2010 10:23 |
Импорт данных в MS-SQL | $T@LKER | БД в Delphi | 0 | 22.11.2010 22:22 |
Delphi c SQL и выгрузка в Excel или word | girl23 | БД в Delphi | 7 | 24.10.2007 17:56 |