Export Iz Dokumenta V Excel

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

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

    Olga23 Гость

    Ya sdelala export iz View v Excel, a mne nado sdelat export iz dokumenta v Excel v vide tablizi...Prichem dokument sostoit iz neskolkih vkladok...Kak mne eto mogno sdelat?Podskagite pliz, ochen nugno :blink:
    P.S.:Vse starie temina etu temu ya uge smotrela
     
  2. Domino6

    Domino6 Гость

    Встречный вопрос:
    Как сделать експорт из Ворда в Ексель ?
    Ответ: копи-пасте
     
  3. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Посмотри в экселе хелп по Visual Basic. Все методы и свойства оттуда.
    Вот как я устанавливал свойства некоторых ячеек.
    Код (Text):
    Sub Click(Source As Button)
    Dim xl As Variant
    Dim xlWbk As Variant
    Dim xlSh As Variant
    Dim Header(1 To 9) As String

    Set xl=CreateObject("Excel.Application")
    Set xlWbk=xl.Workbooks.Add
    Set xlSh = xl.WorkSheets.Add
    xlSh.Name = "Привет"

    Header(1)="один"
    Header(2)="два"
    Header(3)="три"
    Header(4)="четыре"
    Header(5)="пять"
    Header(6)="шесть"
    Header(7)="семь"
    Header(8)="восемь"
    Header(9)="девять"
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).WrapText=True
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).VerticalAlignment=1
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).Font.Size=8
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).Font.Bold=True
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).Borders.LineStyle=1
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10)).Borders.Weight=3
    xlWbk.ActiveSheet.Range(xlWbk.ActiveSheet.Cells(2,2),xlWbk.ActiveSheet.Cells(2,10))=Header
    xl.Visible=True

    End Sub
     
  4. Olga23

    Olga23 Гость

    Для: Medevic

    tolko chto posmotrela help v exele, u menya hel dlya Visual basic ne stoit k sogaleniju :blink: Ya na rabote i ne znayu gde ego vzyat, ved excel uge davno ustanovlen..A eti metodi i svojstva dlya icheek ti v excele zadaval ili v Notes?
     
  5. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: Olga23
    Дистрибутив достань где-нибудь.
    А export делается точно также.
     
  6. -Guest-

    -Guest- Гость

    Здравствуйте.

    Не подскажите, как в Excel при экспорте из вьювера добавить еще логотип фирмы?
     
  7. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Смотри в экселе в хелпе по Visual Basic. Там все написано. Метод AddPicture.
     
  8. -Guest-

    -Guest- Гость

    Подскажите:
    при експорте в Excel'е стандартно 3-и листа.
    Удаляю 2 и 3 лист:

    xlWbk.WorkSheets(2).Delete
    xlWbk.WorkSheets(3).Delete

    так второй лист удаляется, а третий нет, пишет ошибку:
    OLE: Automation object error

    Как можно удалить этот третий пустой лист?
     
  9. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: -Guest-
    Ну блин. Детская ошибка.
    Лист 2 удалил. Третий стал вторым. Дальше удаляешь третий, которого уже нет.
     
  10. -Guest-

    -Guest- Гость

    Спасибочки.
    Ну тормоз я, тормоз :huh:
     
  11. -Guest-

    -Guest- Гость

    Подскажите, пожалуйста.

    Делаю на скрипте объединение ячеек.
    Потом вставляю картинку.
    Как вставить эту картинку в область объединения и отцентрировать ее в этой области.

    Set xl=CreateObject("Excel.Application")
    Set xlWbk=xl.Workbooks.Add

    xlWbk.WorkSheets(1).Range(xlWbk.WorkSheets(1).Cells(1,1), xlWbk.WorkSheets(1).Cells(5,2)).Merge
    xlWbk.WorkSheets(1).Pictures.Insert("C:\Logotip.jpg")
     
  12. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: -Guest-
    И причем здесь лотус ?
    Читай хелп по VBA (про метод AddPicture) или спроси в соответствующем разделе.
     
  13. -Guest-

    -Guest- Гость

    Для Medevic

    Lotus при том, что например если использовать для Excel VBA:

    WorkSheets(1).Range("A1:A10").HorizontalAlignment = xlCenter - работает
    Если же использовать HorizontalAlignment в Lotus для построения отчета в Excel, то вылетает сообщение: "Нельзя установить свойство HorizontalAlignment класса Range".
    Как тогда центрировать текст в ячейках?
     
  14. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Для: -Guest-
    Используй вместо константы ее цифровое значение.
    Как использовать константы я не знаю.
     
  15. -Guest-

    -Guest- Гость

    Помогите, пожалуйста:

    есть вьювер, нужно построить отчет, который бы отражал 1, 2, 3 и 6 столбцы, использую:

    row=1
    Set docX=v.GetFirstDocument
    While Not docX Is Nothing
    col=1

    Forall cValue In docX.ColumnValues
    xlWbk.ActiveSheet.Cells(row, col)=cValue
    col=col+1
    End Forall

    row=row+1
    Set docX=v.GetNextDocument(docX)
    Wend
     
Загрузка...
Похожие Темы - Export Dokumenta Excel
  1. MaxP
    Ответов:
    3
    Просмотров:
    663
  2. NickProstoNick
    Ответов:
    14
    Просмотров:
    3.562
  3. Eugen
    Ответов:
    70
    Просмотров:
    13.624
  4. z53dimon
    Ответов:
    4
    Просмотров:
    2.790
Статус темы:
Закрыта.

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