Автор Тема: Иморт данных из SQL в Excel при помощи QueryTable VBS, Иморт данных из SQL в Exc  (Прочитано 1277 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Valdocco

  • Коллежский регистратор
  • *
  • Сообщений: 4
  • Репутация: 0
Всем доброго времени суток! Я столкнулся со следующей проблемой: необходимо импортировать данные из таблицы MS SQL server 2005 в Excel при помощи Visual Basic Script (замечу именно VBS, а не VBA. Тот макрос который генерируется для этого в экселе не подходит).
Нужно сделать это при помощ объекта QueryTable.
За основу я взял материал вот этой статьи:
http://support.microsoft.com/kb/247412/ru

Там описывается про импорт из аксеса, а мне нужно из SQL sever, поэтому предлагаемый код нужно несколько изменить.

У меня получилось вот что:

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
Set oQryTable = oSheet.QueryTables.Add( _
"Driver={SQL Native Client};Server=192.168.10.15\MDFALL;Database=clust er1;Uid=sa;Pwd=123;", _
oSheet.Range("A1"), "Select top 10 * from ASP_Document")
oExcel.Visible = 1


Но это не работает, выдает "неизвестная ошибка".
Прошу, подскажите в чем здесь проблема?
Может Conection String не верно задан?
Заранее спасибо.