Программа iNETsHOP - обработка, сравнение, анализ прайс листов поставщиков, создание каталога товаров интернет магазина Форум - Программа iNETsHOP - Работа с программой - Экспорт прайса


http://inetshop.in.ua/index.php?p=showtopic&toid=287&fid=&area=1&print_post=1640
03.02.2016 11:39

support


Support


Количество сообщений   1199
Зарегистрирован:   11-04-2008, 19:11:57
Стандартный экспорт в 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 и перенести любые данные из выборки на лист. Фотографии товаров наверное потребуется предварительно сохранить в файл, а затем добавить как объект рисунка из файла.