Иморт данных из SQL в Excel при помощи QueryTable VBS, Иморт данных из SQL в Excel пр
Нужно сделать это при помощ объекта 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=cluster1;Uid=sa;Pwd=123;", _
oSheet.Range("A1"), "Select top 10 * from ASP_Document")
oExcel.Visible = 1
Но это не работает, выдает "неизвестная ошибка".
Прошу, подскажите в чем здесь проблема?
Может Conection String не верно задан?
Заранее спасибо.
Спасибо, очень мне помогли