Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Относительный путь к источнику данных при слиянии / 11 сообщений из 11, страница 1 из 1
27.07.2006, 01:51:15
    #33880992
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Как сделать, чтобы документ при слиянии автоматически искал источник данных в текущем каталоге?

В директории имеется exel-овская табличка и документ Word, берущий из этой таблички данные для слияния. Если перенести табличку и документ в другое место или просто переименовать директорию, где они лежат, то документ при открытии сам табличку не находит, приходится искать её вручную.

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

Система Win XP + Office 2003
...
Рейтинг: 0 / 0
27.07.2006, 02:15:35
    #33881004
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
В принципе, работает вот такая конструкция (берём данные с листа НужныйЛист файла MergeEXCEL.xls ):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Document_Open()
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "MergeEXCEL.xls", ConfirmConversions:=False, ReadOnly _
        :=True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:= _
        "", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=MergeEXCEL.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engi" _
        , SQLStatement:="SELECT * FROM `НужныйЛист$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
End Sub

Однако перед открытием файла она всё равно ругется.
...
Рейтинг: 0 / 0
27.07.2006, 02:41:34
    #33881009
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
При этом способе слишком умный Word всё равно где-то запоминает абсолютный путь к табличке, с которой изначально проходило слияние...
...
Рейтинг: 0 / 0
27.07.2006, 08:40:49
    #33881126
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Как ругается? Я пробовал - все ок (WinXP SP-1 + Office 2003 SP-2).

Попробуй еще так.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Document_Open()
    Dim strPath As String
    
    strPath = ThisDocument.Path & "\" & "MergeEXCEL.xls"

    ActiveDocument.MailMerge.OpenDataSource _
      Name:=strPath, _
      Connection:="Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Password="""";User ID=Admin;Data Source=" & strPath & _
      ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";" & _
      "Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" & _
      "Jet OLEDB:Database Password="""";Jet OLEDB:Engi", _
      SQLStatement:="SELECT * FROM `Лист1$`"
End Sub
...
Рейтинг: 0 / 0
27.07.2006, 17:35:43
    #33883046
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Ashton , идея отличная, но проблема в том, что данные для слияния документ требует до срабатывания события Document_Open. Потому и ругается. В общем, оба решения - хороший workaround, но искать надо не там. Скорее всего, существует какая-то галочка в дебрях свойств документа, которая переключает путь поиска источника данных для слияния с абсолютного на относительный.
...
Рейтинг: 0 / 0
28.07.2006, 09:05:48
    #33884095
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Ты вообще удали источник данных в документе слияния и тогда при открытии документа будет открываться соответсвующий.
...
Рейтинг: 0 / 0
28.07.2006, 12:39:27
    #33884894
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Где это делается?
...
Рейтинг: 0 / 0
28.07.2006, 13:43:00
    #33885117
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Попробуй.

Код: plaintext
    ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
...
Рейтинг: 0 / 0
30.08.2006, 12:08:10
    #33951882
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Всё равно то срабатывает, то нет. А универсальный способ должен быть, потому что я видел документы со слиянием, которые нормально работают после переноса на другое место без каких-либо ухищрений.
...
Рейтинг: 0 / 0
31.08.2006, 14:51:16
    #33955644
Helga_x52
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Commander Хэлл ты нашел решение своей проблемы??? Если да то кинь пожалуйста на форум а то млин у меня таже проблема ((
...
Рейтинг: 0 / 0
19.09.2006, 18:33:00
    #33997843
Commander Хэлл
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Относительный путь к источнику данных при слиянии
Нет, не нашёл. Я просто пририсовал две кнопочки - одна удаляет источник данных (спасибо Ashton ), другая - его добавляет. А путь к источнику данных прописывается в макросе вручную. Перед переносом на новое место отправитель жмёт кнопку, удаляющую источник, а при получении документа из другого места - получатель прописывает путь и жмёт кнопочку, добавляющую источник, или делает слияние по-честному, при помощи мастера.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Относительный путь к источнику данных при слиянии / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]