ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open и SaveAs
17 сообщений из 17, страница 1 из 1
Open и SaveAs
    #33451030
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
Привет!
Делаю такую операцию после выполнения не выгружаеться
обьект Excel - я из процессов.
Что не так ?

Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
.Workbooks.Open "C:\sh#1.xls"
.ActiveWorkbook.SaveAs "C:\sh1.xls"
.ActiveWorkbook.Close
.Quit
End With
Set XLAPP = Nothing
MsgBox ""
...
Рейтинг: 0 / 0
22.12.2005, 10:11:09
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451615
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
Попробуйте так:

Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
With .Workbooks.Open "C:\sh#1.xls"
.SaveAs "C:\sh1.xls"
.Close
End With
.Quit
End With

Set XLAPP = Nothing

MsgBox ""
...
Рейтинг: 0 / 0
22.12.2005, 12:25:56
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451629
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
Или так:

Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP.Workbooks.Open "C:\sh#1.xls"
.SaveAs "C:\sh1.xls"
.Close
End With

XLAPP.Quit
Set XLAPP = Nothing

MsgBox ""
...
Рейтинг: 0 / 0
22.12.2005, 12:28:31
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451671
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
.Workbooks.Open "C:\sh#1.xls"
.SaveAs "C:\sh1.xls"
.Close
End With

XLAPP.Quit
Set XLAPP = Nothing

MsgBox ""

Так работать не будет метод SaveAs не относиться к Workbooks.
Еще предложения есть ?
...
Рейтинг: 0 / 0
22.12.2005, 12:36:56
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451703
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
FaustDim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
.Workbooks.Open "C:\sh#1.xls"
.SaveAs "C:\sh1.xls"
.Close
End With

XLAPP.Quit
Set XLAPP = Nothing

MsgBox ""

Так работать не будет метод SaveAs не относиться к Workbooks.
Еще предложения есть ?

А я ТАК и не предлагаю :)
...
With XLAPP.Workbooks.Open "C:\sh#1.xls"
...
См. внимательней предыдущий пост
...
Рейтинг: 0 / 0
22.12.2005, 12:43:26
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451707
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
Прошу прощения

...
With XLAPP.Workbooks.Open("C:\sh#1.xls")
...

Вот так правилней
...
Рейтинг: 0 / 0
22.12.2005, 12:44:46
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451754
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
Та же ситуация из процессов не выгружается.

Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
With XLAPP
With XLAPP.Workbooks.Open("C:\sh#1.xls")
.SaveAs "C:\sh1.xls"
.Close
End With
.Quit
End With

Set XLAPP = Nothing

MsgBox ""
...
Рейтинг: 0 / 0
22.12.2005, 12:56:04
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451781
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
Это означает только одно, что какой-то процесс продолжает ссылаться на ексель...

Попробуйте сделать ексель видимым и посмотрите не выкидывает ли он каких-нибудь сообщений...

XLAPP.Visible = True
...
Рейтинг: 0 / 0
22.12.2005, 13:04:30
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451796
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
В последнем Вашем примере строка "With XLAPP" - лишняя

Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application

With XLAPP.Workbooks.Open("C:\sh#1.xls")
.SaveAs "C:\sh1.xls"
.Close
End With

XLAPP.Quit

Set XLAPP = Nothing

MsgBox ""
...
Рейтинг: 0 / 0
22.12.2005, 13:07:34
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33451813
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
Сообщения могут быть например с вопросом о замене существующего файла...
...
Рейтинг: 0 / 0
22.12.2005, 13:10:18
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33452123
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
Если так:
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
XLAPP.Visible = True
With XLAPP.Workbooks.Open("C:\sh#1.xls")
.SaveAs "C:\sh1.xls"
.Close
End With
XLAPP.Quit
Set XLAPP = Nothing
MsgBox ""

то никакик сообщений не появлялось обьект екселя стал видимым
выполнил все операции и окно закрылось
но в процесах все равно обьект висит.
...
Рейтинг: 0 / 0
22.12.2005, 14:36:01
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33452471
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Faust у вас в коде все верно, либо привели не весь код

P.S.: а перед запуском программы у вас объект Excell не висит уже в памяти?
...
Рейтинг: 0 / 0
22.12.2005, 15:48:09
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33452525
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
Вот весь код
Office 2000

Private Sub Command1_Click()
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
XLAPP.Visible = True
With XLAPP.Workbooks.Open("C:\sh#1.xls")
.SaveAs "C:\sh1.xls"
.Close
End With
XLAPP.Quit
Set XLAPP = Nothing
MsgBox ""
End Sub
...
Рейтинг: 0 / 0
22.12.2005, 16:03:05
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33452528
Faust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Faust
Участник
в догонку обьекта в процесах перед запуском нет
...
Рейтинг: 0 / 0
22.12.2005, 16:03:41
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33452575
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Странно, но все нормально отрабатывает
попробуйте строчку добавить
Код: plaintext
XLAPP.DisplayAlerts = False

перед открытием книги
...
Рейтинг: 0 / 0
22.12.2005, 16:20:38
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33453013
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
FaustВот весь код
Office 2000

Private Sub Command1_Click()
Dim XLAPP As Excel.Application
Set XLAPP = New Excel.Application
XLAPP.Visible = True
With XLAPP.Workbooks.Open("C:\sh#1.xls")
.SaveAs "C:\sh1.xls"
.Close
End With
XLAPP.Quit
Set XLAPP = Nothing
MsgBox ""
End Sub

Код выполняется как? Из среды VB или уже собранный екзешник?
...
Рейтинг: 0 / 0
22.12.2005, 19:08:21
| Ответить | Цитировать | Написать  
Open и SaveAs
    #33453028
LKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LKO
Гость
С 2003 ехелем прокатывает на ура...
Все закрывается и процесс убивается...
...
Рейтинг: 0 / 0
22.12.2005, 19:13:48
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open и SaveAs
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33452528&tid=2166643]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 181ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 228ms
total:  483ms
созд. / загр.: 483ms
x
x
Закрыть


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