Export Iz Dokumenta V Excel

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

Olga23

Гость
#1
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
 
D

Domino6

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#3
Посмотри в экселе хелп по 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
 
O

Olga23

Гость
#4
Для: 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

Что это ? :)
Lotus team
10.12.2004
3 346
2
#5
Для: Olga23
Дистрибутив достань где-нибудь.
А export делается точно также.
 
G

-Guest-

Гость
#6
Здравствуйте.

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#7
Смотри в экселе в хелпе по Visual Basic. Там все написано. Метод AddPicture.
 
G

-Guest-

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

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

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#9
Для: -Guest-
Ну блин. Детская ошибка.
Лист 2 удалил. Третий стал вторым. Дальше удаляешь третий, которого уже нет.
 
G

-Guest-

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

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

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

Что это ? :)
Lotus team
10.12.2004
3 346
2
#12
Для: -Guest-
И причем здесь лотус ?
Читай хелп по VBA (про метод AddPicture) или спроси в соответствующем разделе.
 
G

-Guest-

Гость
#13
Для Medevic

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

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#14
Для: -Guest-
Используй вместо константы ее цифровое значение.
Как использовать константы я не знаю.
 
G

-Guest-

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

есть вьювер, нужно построить отчет, который бы отражал 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
 
Статус
Закрыто для дальнейших ответов.