Создать Excel док без шаблона

@wowo · Регистрация: 03.02.2007

Author24 — интернет-сервис помощи студентам

Искал поиском, конкретного не нашел
Подскажиет, плз, Как создать просто Excel-документ и сохранить его в конкретном месте
Желательно ему еще самому задать путь , типа:

vFilename=wks.SaveFileDialog( False,,"Ms Excel|*.xls|","d:\","_.xls" )

Упс, с этим быстро справился сам...

Вопрос в другом, как с помощью LS , в ячейку Экселя передать ссылку на Лотус документ?
Т.е. чтобы в Экселе при нажатии на эту ссылку открывался В Лотусе док..
В ручную сделать получается, а как с помощью LS - не знаю!

@Yokov · 19.11.2008, 22:32

NotesDocument.NotesURL?

@Mydyvys · 20.11.2008, 08:35

И функция HYPERLINK в экселе.

@wowo · 20.11.2008, 13:57

Medevic ,Yakov , не, пасиб... Сам сделал:

.......
stLink = {notes:///} & Replace(db.FilePath, "\", "/") & {/0/} & doc.UniversalID & {?EditDocument}
stTitle = "Название ссылки"
Call xlSheet.Hyperlinks.Add (xlSheet.Range("E5"),stLink,,,stTitle )
......

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
		1
	Создать Excel док без шаблона 19.11.2008, 17:55. Показов 11399. Ответов 3 Метки нет (Все метки) Искал поиском, конкретного не нашел Подскажиет, плз, Как создать просто Excel-документ и сохранить его в конкретном месте Желательно ему еще самому задать путь , типа: vFilename=wks.SaveFileDialog( False,,"Ms Excel\|*.xls\|","d:\","_.xls" ) Упс, с этим быстро справился сам... Вопрос в другом, как с помощью LS , в ячейку Экселя передать ссылку на Лотус документ? Т.е. чтобы в Экселе при нажатии на эту ссылку открывался В Лотусе док.. В ручную сделать получается, а как с помощью LS - не знаю! 0

@Yokov 0 / 0 / 0 Регистрация: 08.02.2007 Сообщений: 206
	19.11.2008, 22:32	2
	NotesDocument.NotesURL? 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	20.11.2008, 08:35	3
	И функция HYPERLINK в экселе. 0

@wowo 0 / 0 / 0 Регистрация: 03.02.2007 Сообщений: 821
	20.11.2008, 13:57	4
	Medevic ,Yakov , не, пасиб... Сам сделал: ....... stLink = {notes:///} & Replace(db.FilePath, "\", "/") & {/0/} & doc.UniversalID & {?EditDocument} stTitle = "Название ссылки" Call xlSheet.Hyperlinks.Add (xlSheet.Range("E5"),stLink,,,stTitle ) ...... 0