|
|
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
lcOldError= On('Error') On Error oApp=.NULL. oApp = GetOBJECT(,'Excel.Application') On Error &lcOldError if ISNULL(oApp) oApp=CreateOBJECT('Excel.Application') endif oApp.WorkBooks.Add ********* ........ ********* oApp.Visible=.t. oApp.saveAs(alltrim(thisform.My_edit1.value)+".xls") На SaveAs ругается. Я открыла посмотреть, а когда закрываю через "Х" файл исчезает. Подскажите, люди добрые. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 08:29 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 08:51 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
Да. Спасибо. Пошло. Вот только сохраняется в \Мои документы\ А когда прописываю путь в SaveAs - не понимает, кричит. Пробую вначале перед пормированием Excel поставить set defa to ' куда надо', но она все равно в \Мои документы\ открываетеся. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 12:18 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
SET DEFAULT TO работать не будет. Нужно указать полный путь, например: Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 12:53 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
Как ты написал - так работает. а вот так oBook.saveAs(ADDBS(SYS(5)+SYS(2003))+'\tmp\'+'k'+alltrim(thisform.My_edit1.value)+".xls") Нет. просто папку пририсовала - и говорит, что не правильный путь, хотя эту папку заранее завела. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 13:19 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
Вот так идет ldirold=ADDBS(SYS(5)+SYS(2003)) set defa to ldirold+'excel\' oBook.saveAs(ADDBS(SYS(5)+SYS(2003))+'k'+alltrim(thisform.My_edit1.value)+".xls") set defa to (ldirold) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 13:30 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
> oBook.saveAs(ADDBS(SYS(5)+SYS(2003))+'\tmp\'+'k'+alltrim(thisform.My_edit1.value)+".xls") Одна палка лишняя, советую набрать Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 13:52 |
|
||
|
Excel. Как сохранить под нужным мне именем файл?
|
|||
|---|---|---|---|
|
#18+
А чтобы не маятся с громоздким выражением ADDBS(SYS(5)+SYS(2003)) вместо него лучше использовать FULLPATH('') - здесь пустые кавычки в качестве параметра обязательны. Или так: Код: plaintext Собственно функция FullPath() для того и предназначена, чтобы из относительного пути делать абсолютный исходя из предположения, что относительный путь - это путь относительно текущей директории ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.07.2003, 14:43 |
|
||
|
|
start [/forum/topic.php?fid=41&gotonew=1&tid=1598122]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
166ms |
get topic data: |
10ms |
get first new msg: |
7ms |
get forum data: |
2ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
| others: | 10ms |
| total: | 273ms |
| 0 / 0 |
Извините, этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
... ля, ля, ля ...
