Export Iz Dokumenta V Excel

[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

 

[Domino6]

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

 

[Medevic]

Посмотри в экселе хелп по Visual Basic. Все методы и свойства оттуда.
Вот как я устанавливал свойства некоторых ячеек.

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

 

[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?

 

[Medevic]

Для: Olga23
Дистрибутив достань где-нибудь.
А export делается точно также.

 

[-Guest-]

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

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

 

[Medevic]

Смотри в экселе в хелпе по Visual Basic. Там все написано. Метод AddPicture.

 

[-Guest-]

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

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

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

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

 

[Medevic]

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

 

[-Guest-]

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

 

[-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")

 

[Medevic]

Для: -Guest-
И причем здесь лотус ?
Читай хелп по VBA (про метод AddPicture) или спроси в соответствующем разделе.

 

[-Guest-]

Для Medevic

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

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

 

[Medevic]

Для: -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