Здравствуйте, прошу опять Вашей помощи.
В связи с тем что я лентяй, хочу попробовать сделать программку которая будет выгружать в файл любого формата, данные отработанного скрипта с базы ORACLE.
, предоставил рабочий скрипт:
И сам вопрос как его запихнуть в .exe?
Пробовал через программу VBs To Exe но ничего не работает.
Отработал просто в Excel все работает )
В связи с тем что я лентяй, хочу попробовать сделать программку которая будет выгружать в файл любого формата, данные отработанного скрипта с базы ORACLE.
, предоставил рабочий скрипт:
| Код |
|---|
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=MSDAORA.1;Data Source=***;Password=***;User ID=***"
'========================================================================================
OutputFile = "\\Srv\ВашПуть\clients.csv"
sSql = "select * from tbl"
Set Rs = GetRs(sSql, cn)
Call ExportTXT(Rs, OutputFile, ";", vbCrLf)
Rs.Close
Set Rs = Nothing
MsgBox "Готово! Контрагенты выгружены!"
Function GetRs(sstr, cn)
Set rstdata = CreateObject("ADODB.Recordset")
rstdata.Open sstr, cn
Set GetRs = rstdata
Set rstdata = Nothing
End Function
Function ExportTXT(Rs, FileName, DelimCol, DelimRow)
Dim AllText, fld
For Each fld In Rs.Fields
If AllText = "" Then
AllText = fld.Name
Else
AllText = AllText & DelimCol & fld.Name
End If
Next
AllText = AllText & DelimRow
AllText = AllText & Rs.GetString(, , DelimCol, DelimRow)
With CreateObject("Scripting.FileSystemObject").CreateTextFile(FileName, True)
.Write AllText
End With
End Function |
Пробовал через программу VBs To Exe но ничего не работает.
Отработал просто в Excel все работает )
Изменено: - 08.01.2015 12:13:57
(у меня все процедуры начинают отрабатывать в 5 утра и 6 уже вся нужная инфа у конечных пользователей), вся фишка в том что большой объем данных excel плохо переваривает, за исключением PowerPivot (Хотя это не excel а надстройка к нему), поэтому подготовленный набор данных, выгружаем в сторонний файл хранения данных и уже эти данные используем для расчетов в excel.
