Стандартный экспорт в Excel из программы выполняет заранее подготовленный SQL-запрос на выборку набора данных, открывает COM-сервер Excel.Application и построчно экспортирует в него данные в виде строк. Если вы хотите сделать все сами, то вы можете например создать собственный VBScript и получить в нем данные выборки через ADODB или OLEDB:
Код
Dim oConn
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Driver={SQL Server};Server=127.0.0.1;Database=iNETsHOP;Uid=Administrator;Pwd="
'oConn.Open "Provider=SQLOLEDB;User ID=SA;Password=password;Initial Catalog="iNETsHOP_PL";Data Source="127.0.0.1"
Dim oRcordSet
Set oRcordSet = CreateObject("ADODB.Recordset")
oRcordSet.CursorType = 2
oRcordSet.LockType = 3
oRcordSet.Open "select G_ID, G_NAME from TBL_GOODS", oConn
'oRcordSet.AddNew
'oRcordSet.Fields("G_NAME").Value = "Good #1"
'oRcordSet.Update
'For Each Item In oRcordSet
' WScript.Echo Item.Value
'Next
Do While oRcordSet.EOF = 0
' Worksheets("Лист1").Range("A" & i).Value = oRcordSet.Fields("G_ID").Value
' Worksheets("Лист1").Range("B" & i).Value = oRcordSet.Fields("G_NAME").Value
oRcordSet.MoveNext
i = i + 1
Loop
'WScript.Echo i
В этот пример вы можете добавить подключение к Excel.Application и перенести любые данные из выборки на лист. Фотографии товаров наверное потребуется предварительно сохранить в файл, а затем добавить как объект рисунка из файла.
|