Export Dokta V Excel

  • Автор темы Olga23
  • Дата начала
Статус
Закрыто для дальнейших ответов.
O

Olga23

Гость
#1
:)
Ljudi pomogite kto znaet...Kak sdelat funkziju exporta iz dokumenta v Excel v vide tablize????Moget u kogo-to est idei???
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#2
Для: Olga23
Уже было не один раз. Посмотри ранние темы.
 
D

Domino6

Гость
#3
Экспортировать в *.csv затем открыть в программе
 
O

Olga23

Гость
#4
Экспортировать в *.csv затем открыть в программе

Gde eto?ya ne ponyala...U menya tut dage knigek net,negde krome vas uznat...toka help smotrju :)
 
N

nor

Гость
#5
посмотри, пожалуйста, предыдущие темы. повторно писать одно и тоже не хочу.
 
O

Olga23

Гость
#6
tolko chto posmotrela starie temi...(iz temi pro export v word)..Poprobovala skopirovat script, kotoriy privoditsya dlya Excel:


CODESub Click(Source As Button)

Set xlApp = createObject("Excel.Application") 'создаем объект Excel
Set xlWB = xlApp.Workbooks.Add 'создаем новую книгу
Set xlSheet = xlWB.Sheets(1) ' выбираем первую "страницу"
xlApp.visible = True ' делаем объект видимым

xlSheet.name = "Каталог оборудования"
'задаем размеры и парамеры колонок
xlSheet.Columns(1).Columnwidth = 15
xlSheet.Columns(2).Columnwidth = 27
xlSheet.Columns(3).Columnwidth = 65
xlSheet.Columns(4).Columnwidth = 10
xlSheet.Columns(1).font.size=8
xlSheet.Columns(1).font.bold = True
xlSheet.Columns(2).font.size=8
xlSheet.Columns(3).font.size=8
xlSheet.Columns(4).font.size=8
'Заголовок окна

'создали объект -- нужно наполнить:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set view = db.GetView("viewEquipmentInfoByCategory")

fldCategoryMarker = "" ' обнуляем маркер категории
CurrentRow = 1 'значение текущей строчки выставляем на 1

Set doc = view.GetFirstDocument
Do While Not (doc Is Nothing)
'читаем значимые поля из документа
fldCategory = doc.fldCategory(0)
fldManufacturerName = doc.fldManufacturerName(0)
fldProductName = doc.fldProductName(0)
fldDescriptionBrief = doc.fldDescriptionBrief(0)
fldCost = doc.fldCost(0)
fldCurrencyType = doc.fldCurrencyType(0)
If fldCategory <> fldCategoryMarker Then
'сменилась категория, создаем строчку, красим, объединяем ячейки...
fldCategoryMarker = fldCategory
xlSheet.cells(CurrentRow,1) = fldCategory
Marker = 1

xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,4)).merge
xlSheet.Cells(CurrentRow,1).font.size = 10
xlSheet.Cells(CurrentRow,1).font.bold = True
xlSheet.Cells(CurrentRow,1).font.color=16777215

xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,1)).Select
xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,1)).Interior.
color = 8421504
' Selection.pattern = 1
' selection.patterncolorindex = 0


CurrentRow = CurrentRow + 1
End If

'заносим в строчку значения из документа
xlSheet.Cells(CurrentRow,1) = fldManufacturerName
xlSheet.Cells(CurrentRow,2) = fldProductName
xlSheet.Cells(CurrentRow,3) = fldDescriptionBrief

Dim leftS, RightS As Integer

If fldCurrencyType = "0" Then
Cost = Cdbl(fldCost)
leftS = Int(Cost)
rightS = Int((Cost-leftS)*100)
fldCost2Post = Cstr(leftS)+","+Right("0"+Cstr(rightS),2)+" р."

Else
Cost = Cdbl(fldCost)
leftS = Int(Cost)
rightS = Int((Cost-leftS)*100)
fldCost2Post = Cstr(leftS)+","+Right("0"+Cstr(rightS),2)+" у.е."
End If

xlSheet.Cells(CurrentRow,4) = fldCost2Post
'меняем выравнивания вертикальные в соотв. ячейках (и горизонтальные)
xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,4)).VerticalA
lignment = 1
xlSheet.Range(xlSheet.Cells(CurrentRow,4),xlSheet.Cells(CurrentRow,4)).Horizonta
lAlignment = 4
'красим четные ячейки в немножко серый цвет: 239:239:239
If Marker/2 = Int(Marker/2) Then
xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,4)).Select
xlSheet.Range(xlSheet.Cells(CurrentRow,1),xlSheet.Cells(CurrentRow,4)).Interior.
colorindex = 35
End If


Marker = Marker + 1
CurrentRow = CurrentRow +1

'читаем следующий документ
Set doc = view.GetNextDocument(doc)
Loop

'делаем аутофит двум первым колонкам
xlSheet.Columns(1).autofit
xlSheet.Columns(2).autofit

'делаем соответствующие выравнивания 3 колонке (описание)
xlSheet.Columns(3).wraptext=True

'выделение жирной рамочкой всего документа
' xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(Currentrow - 1,1)).Interior.BorderStyle = 5


End Sub


No ne rabotaet...Excel otkrivaetsya, i v Lotuse pishetsya oshibka:"Object variable not set"...Kak dumaete, v chem moget bit problema?
A pro format RTF, chto eto za format?
 
Статус
Закрыто для дальнейших ответов.