Выгрузка в Excel

[morpheus]

<!--QuoteBegin-Sandr+25:10:2007, 10:40 -->
<span class="vbquote">(Sandr @ 25:10:2007, 10:40 )</span><!--QuoteEBegin-->Но если вдуматься, то форма - тоже документ...

[snapback]82995" rel="nofollow" target="_blank[/snapback]​

[/quote]
точно так же как и почти любой єлемент дизайна ... Ну прям хардкор програмирование начинаеться

 

[Lex-Hunter]

Уточню проблему: В лотусе создается коллекция документов. Эти документы необходимо загнать в Excel-й шаблон. На дисках шаблон можно хранить только на очень кароткое время.
Вопрос: где сохранить и как достучаться до шаблона?

 

[morpheus]

Для: Lex-Hunter
ДА можно в отдельной базе в докуметах которые содержать в себе РТ-Поля .. в них и хранить Excel шаблоны.
Можно в профиле базы, но это уже не то

 

[Medevic]

Для: Lex-Hunter
Я уже писал про это. Можно хранить в отдельных документах как внедренный объект, а не как аттачмент. Хотя кто-то говорил, что это нехорошо. Но у меня всё работает.
Для работы извлекать на диск не надо. Правда есть другие ограничения.

 

[yerke]

<!--QuoteBegin-Lex-Hunter+25:10:2007, 10:39 -->
<span class="vbquote">(Lex-Hunter @ 25:10:2007, 10:39 )</span><!--QuoteEBegin-->Доброго времени суток!
Есть задача выгрузки данных в Excel, делаю выгрузку Attachment:
Код
Set wObj = CreateObject("Excel.Application")
Set emo=CurrentDoc.GetAttachment("Test.xls")
Call emo.ExtractFile("С:\test")
Set WordDoc = wObj.Documents.open(xlFilename)

[snapback]82949" rel="nofollow" target="_blank[/snapback]​

[/quote]

не профи но все же
у меня вот так

	Dim PDoc As NotesDocument
Dim Obj As NotesEmbeddedObject

If Dir("C:\Temp",16)="" Then Mkdir "C:\Temp"

Set PDoc=CurDB.GetProfileDocument("Templates")
Set Obj=PDoc.GetAttachment("Form34ZaOdinKurs.xls")
Call Obj.ExtractFile("C:\Temp\Form34ZaOdinKurs.xls") '=у вас Call emo.ExtractFile("С:\test")

Set xlApp=CreateObject("Excel.Application")
xlApp.Workbooks.Open("C:\Temp\Form34ZaOdinKurs.xls")
Set xlSheet=xlApp.Workbooks(1).WorkSheets(1)
xlApp.Visible=true

xlsheet.cells(3,1)="Подождите. Идет обработка данных…"
xlsheet.cells(3,1).Font.ColorIndex = 3

 

[Lex-Hunter]

Всем спасибо! Все получилось!