1 Тема от gts

  • gts
  • Участник
  • Неактивен

Тема: VBA: Убрать диалоговое окно "Преобразование источника данных"

Подскажите, пожалуйста, как избавиться от диалогового окна "Преобразование источника данных" при открытии в Word документа-источника данных, например, dbf-файла, для слияния с шаблоном. Сообщение появляется при выполнении оператора типа

 
ActiveDocument.MailMerge.OpenDataSource Name:=<имя_файла_источника_данных>, _
    ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=False, _
    AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
    WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
    Format:=wdOpenFormatAuto, _
    Connection:="Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & <путь_к_файлу_источнику_данных> & ";Mode=Read;" & _
      "Jet OLEDB:System database=""""" & _
      "Jet OLEDB:Registry Path="""";" & _
      "Jet OLEDB:Engine Type=18;Jet OLEDB:Database Loc", _
    SQLStatement:="SELECT * FROM '" & <имя_файла_источника_данных> & "'" & ";", SQLStatement1:=""

Все отображаемые для выбора драйверы описаны в реестре Windows, причем, если установлено более 1 версии Office, то драйверов больше. Вышеуказанный пример приведен для Office-2003, при использовании Office-97 окно выбора не возникает (аргументы оператора другие). Можно ли как-то программно задать предпочтительный ODBC или отменить в системном реестре использование лишних для данного случая, не убирая их совсем?