Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Слияние с документом Excel 
V
    Опции темы
CrazyTactic
Дата 21.10.2010, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 21.10.2010

Репутация: нет
Всего: нет



Начнем историю с того, что надо было выполнить слияние с документом *.xls. Проблем не возникло, нужные поля подставлялись, все работало. Но, при этом, при переносе документов на другой компьютер, приходилось заново выбирать документ для слияния, т. е. путь сохранялся абсолютным, при этом документ ворда и книга excel находились в одной папке,и конечно, напрашивался относительный путь, но как его поставить, в ворде не нашел. Подсказали сделать макрос, ну ладно, впринципе не проблема, макрос сделал, вот что получилось:
Код

ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        ThisDocument.Path & "\Книга1.xlsx", ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & ThisDocument.Path & "\Книга1.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Database Locking Mod" _
        , SQLStatement:="SELECT * FROM `Лист1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess


И все заработало, ура, вроде бы хорошо, но.. этого не достаточно. Необходимо было сделать выборку по полям таблицы, чтобы последние 2 строчки выглядели примерно так:
Код

 , SQLStatement:="SELECT * FROM `Лист1$` WHERE `Поле1`='Значение'", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess

Это был окончательный макрос, и работал он как часы, вот только в 2007. В 2003 - ни в какую. Пишет, что не может отрыть источник данных.

Кстати, если последние 2 строки не изменять:
Код

 , SQLStatement:="SELECT * FROM `Лист1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess

то работает это и в 2003, и в 2007, но мне нужна именно выборка, а не все данные подряд. Так вот, как все это осуществить в 2003?

PM MAIL   Вверх
Akina
Дата 21.10.2010, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Адепту MySQl при написании запросов под MS Jet следует изучить различия в диалектах.
Код

 SQLStatement:="SELECT * FROM [Лист1$] WHERE [Поле1]=""Значение"""



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
CrazyTactic
Дата 21.10.2010, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 21.10.2010

Репутация: нет
Всего: нет



Спасибо! Попробую данный метод
PM MAIL   Вверх
CrazyTactic
Дата 22.10.2010, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 21.10.2010

Репутация: нет
Всего: нет



Отлично! Все работает!
PM MAIL   Вверх
petrova93
Дата 26.10.2010, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.10.2010

Репутация: нет
Всего: нет



Помогите напичатать програму у VBA)
У масиві Е(m,n)з довільними значеннями користуючись методом вибору мінімального елемента,відсортувати усі елементи порядково у порядку зростання,починаючи з елемента е11 і закінчуючи елементом е mn , масив Е вивести до і після перетворення.
Спасибо большое зарание!)
PM MAIL   Вверх
Bugmaker
Дата 28.10.2010, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 161
Регистрация: 27.6.2008

Репутация: нет
Всего: нет



Вроде бы ничего сложного, но у меня напряг с бусурманскими, кроме английского.
ыло бы неплохо по-русски изложить требования.
PM MAIL   Вверх
Akina
Дата 28.10.2010, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



А заодно перечитать Правила. Особенно пункт 10.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 29.10.2010, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109



Модератор: Пожалуйста, один топик - один вопрос.


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
petrova93
Дата 24.11.2010, 02:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.10.2010

Репутация: нет
Всего: нет



за допомогою методу дотичних знайти значення рівняння на одному з відрізків (x^3+4*x^2+6*x-1=0)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0571 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.