Выгрузка из БД в Excel

[fenetka]

Прошу помочь!!!

При выгрузке из БД в Excel необходимо чтобы ячейки были формата "текст".
Скрипт выгрузки написан на VBS.

[Казанский]

Сообщение от fenetka

Скрипт выгрузки написан на VBS.

И где он ?

[mchip]

Помогаю!!!

При выгрузке из БД в Excel ячейки становяться формата "текст".

[Hugo121]

Перед выгрузкой из БД в Excel ячейки становяться формата "текст".
Так правильнее

[fenetka]

call GetOtchet(ThisObject)

sub GetOtchet(obj)
obj.Permissions=SysAdminPermissions

Select Case obj.ObjectDefName
Case "DIR_KD"
objType="DOCUM_KD"
Case "DIR_TD"
objType="DOCUM_TD"
Case "DIR_NTD"
objType="DOCUM_NTD"
Case else
msgbox "Не определен тип искомого объекта"
exit sub
End Select
nom = inputbox("Маска поиска документа","Обозначение:")
if nom<>"" then
set q = ThisApplication.CreateQuery
q.AddCondition tdmQueryConditionObjectDef, objType
q.AddCondition tdmQueryConditionStatus, "<>STAT_ANUL"
q.AddCondition tdmQueryConditionAttribute, cStr(nom) ,"DOC_OBOZN"
q.AddCondition tdmQueryConditionAttribute, "<>"&"""Изменения в версии не проводились""" ,"ATTR_IZM"
q.Permissions = SysAdminPermissions
if q.objects.count>0 then
set seldlg=SelectObjectDlg
seldlg.Caption="Нажмите ""ОК"" для экспорта списка в Excel"
seldlg.Prompt="Документы с изменениями("&cStr(q.Objects.count) &")"
seldlg.SelectFromObjects = q.objects
if seldlg.Show then
Set Exc = CreateObject("Excel.Application")
Set Book = Exc.Workbooks.Add()
Exc.Visible = true
i=2
Book.ActiveSheet.Cells(1,1).Value=c Str("Обозначение")
Book.ActiveSheet.Cells(1,2).Value=c Str("Наименование")
Book.ActiveSheet.Cells(1,3).Value=c Str("№ последнего извещения")
for each obj1 in q.objects
Book.ActiveSheet.Cells(i,1).Value=c Str(obj1.Attributes("DOC_OBOZN").va lue)
Book.ActiveSheet.Cells(i,2).Value=c Str(obj1.Attributes("DOC_NAME").val ue)
Book.ActiveSheet.Cells(i,3).Value=c Str(obj1.Attributes("ATTR_IZM").val ue)
i = i +1
next
Book.ActiveSheet.Columns("A:A").Sel ect : Exc.Selection.ColumnWidth = 35
Book.ActiveSheet.Columns("B:B").Sel ect : Exc.Selection.ColumnWidth = 35
Book.ActiveSheet.Columns("C:C").Sel ect : Exc.Selection.ColumnWidth = 35
end if
end if
end if
end sub


вот он.

нет, например был документ с №2-08...а в Excel в ячейке пишет 8 февраля...

[Казанский]

После Set Book = Exc.Workbooks.Add() добавьте

Book.ActiveSheet.Cells.Numberformat = "@"

[fenetka]

Спасибо ОГРОМНОЕ!!! Там правда начались другие ошибки, но это я уж сама))))