Export Dokta V Excel

Тема в разделе "Lotus - Программирование", создана пользователем Olga23, 2 ноя 2005.

Статус темы:
Закрыта.
  1. Olga23

    Olga23 Гость

    :)
    Ljudi pomogite kto znaet...Kak sdelat funkziju exporta iz dokumenta v Excel v vide tablize????Moget u kogo-to est idei???
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    Уже было не один раз. Посмотри ранние темы.
     
  3. Domino6

    Domino6 Гость

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

    Olga23 Гость

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

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

    nor Гость

    посмотри, пожалуйста, предыдущие темы. повторно писать одно и тоже не хочу.
     
  6. Olga23

    Olga23 Гость

    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?
     
Загрузка...
Похожие Темы - Export Dokta Excel
  1. MaxP
    Ответов:
    3
    Просмотров:
    663
  2. NickProstoNick
    Ответов:
    14
    Просмотров:
    3.562
  3. Eugen
    Ответов:
    70
    Просмотров:
    13.624
  4. z53dimon
    Ответов:
    4
    Просмотров:
    2.790
Статус темы:
Закрыта.

Поделиться этой страницей