Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите по работе с Excel / 12 сообщений из 12, страница 1 из 1
12.05.2008, 11:47
    #35305964
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
Суть вопроса вот в чем, хочу организовать печать Excel таблицы в фоне, есть шаблон
я его открываю добовляю что надо, затем вывожу на печать. Все нормально печать идет, вот
только когда закрываю книгу появляется окно сохранить измнения, мне оно нафиг не надо.
Как от него избавится или как напечать в фоне, чтоб после печати в процессах не висел Excel.
Если не закрывать книгу m.loExcel.Workbooks(book).close то release loExcel не отрабатывет и Excel
висит в процессах.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
loExcel=CREATEOBJECT("EXCEL.Application")
book = m.loExcel.Workbooks.Open("c:\temp\ex.xls").name
loSheet = m.loExcel.Sheets( 1 )

m.loSheet.Cells( 2 , 2 ).Value = "Проба блин"
m.loSheet.PrintOut

m.loExcel.Workbooks(book).close
*loExcel.Visible= .T.
*loExcel.Application.WindowState =  2 
release loExcel

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:09
    #35306046
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
И еще вопрос по теме а как добавть строку в опеределенное место?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:11
    #35306054
CTAC-KO
CTAC-KO
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
не поленитесь и воспользуйтесь поиском на этом форуме - эта тема уже неоднократно обсуждалась. я сам задавался теми же вопросами когда-то и нашел, но сейчас перешел на ОО.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:19
    #35306081
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
Да искал, не могу понять как процесс убить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:29
    #35306119
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
lexusXXXДа искал, не могу понять как процесс убить.
См. метод Экселя Quit и свойство DisplayAlerts
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:36
    #35306145
проходящий.
проходящий.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
lexusXXXДа искал, не могу понять как процесс убить.
Надо не убийствами заниматься, а сохранять измененные книги и корректно выходить из Excel. Наводки уже дали.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:38
    #35306153
AlexTal
AlexTal
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
book.close
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:38
    #35306155
Sovereign
Sovereign
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
loExcel=CREATEOBJECT("EXCEL.Application")
book = m.loExcel.Workbooks.Open("c:\temp\ex.xls").name
loSheet = m.loExcel.Sheets( 1 )

m.loSheet.Cells( 2 , 2 ).Value = "Проба блин"
m.loSheet.PrintOut

m.loExcel.ActiveWorkbook.SaveAs("ex.xls"',xlExcel9795,,,.F.,.F.) && сохраняем данные

m.loExcel.Workbooks(book).close
*loExcel.Visible= .T.
*loExcel.Application.WindowState =  2 
release loExcel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 12:41
    #35306166
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
AlexTal Спасибо!
И всем остальным тоже спасибо!

loExcel.DisplayAlerts = .F.
loExcel.Quit
release loExcel

все гуд!!! А изменения мне сохранять не надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 13:03
    #35306236
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
Подскажите по инсерту строки
вот так на VB
Код: plaintext
1.
2.
Range("B6").Select
Selection.EntireRow.Insert
а как в фоксе будет?
Код: plaintext
1.
2.
3.
m.loSheet.Cells( 6 , 2 ).Select()
* дальше не знаю, так не работает
m.loSheet.Selection.EntireRow.Insert
это к выше указанному коду
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 13:05
    #35306245
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
lexusXXXПодскажите по инсерту строки
вот так на VB
Код: plaintext
1.
2.
Range("B6").Select
Selection.EntireRow.Insert
а как в фоксе будет?
Код: plaintext
1.
2.
3.
m.loSheet.Cells( 6 , 2 ).Select()
* дальше не знаю, так не работает
m.loSheet.Selection.EntireRow.Insert
это к выше указанному коду
Код: plaintext
m.loSheet.Cells( 6 , 2 ).EntireRow.Insert
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 13:13
    #35306278
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите по работе с Excel
AleksMed спасибо все работает!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите по работе с Excel / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 376ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1587798]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 232ms
total:  376ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]