Иморт данных из SQL в Excel при помощи QueryTable VBS

@Valdocco · Регистрация: 16.07.2009

Author24 — интернет-сервис помощи студентам

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

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

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

Visual Basic

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=cluster1;Uid=sa;Pwd=123;", _
 oSheet.Range("A1"), "Select top 10 * from ASP_Document") 
 oExcel.Visible = 1

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

	16.07.2009, 21:23