Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open и SaveAs / 17 сообщений из 17, страница 1 из 1
22.12.2005, 10:11:09
    #33451030
Faust
Faust
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Привет!
Делаю такую операцию после выполнения не выгружаеться
обьект 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, 12:25:56
    #33451615
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Попробуйте так:

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:28:31
    #33451629
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Или так:

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:36:56
    #33451671
Faust
Faust
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
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:43:26
    #33451703
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
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:44:46
    #33451707
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Прошу прощения

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

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

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, 13:04:30
    #33451781
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Это означает только одно, что какой-то процесс продолжает ссылаться на ексель...

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

XLAPP.Visible = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 13:07:34
    #33451796
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
В последнем Вашем примере строка "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:10:18
    #33451813
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Сообщения могут быть например с вопросом о замене существующего файла...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 14:36:01
    #33452123
Faust
Faust
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Если так:
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, 15:48:09
    #33452471
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Faust у вас в коде все верно, либо привели не весь код

P.S.: а перед запуском программы у вас объект Excell не висит уже в памяти?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 16:03:05
    #33452525
Faust
Faust
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Вот весь код
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:41
    #33452528
Faust
Faust
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
в догонку обьекта в процесах перед запуском нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 16:20:38
    #33452575
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
Странно, но все нормально отрабатывает
попробуйте строчку добавить
Код: plaintext
XLAPP.DisplayAlerts = False

перед открытием книги
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.12.2005, 19:08:21
    #33453013
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
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:13:48
    #33453028
LKO
LKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Open и SaveAs
С 2003 ехелем прокатывает на ура...
Все закрывается и процесс убивается...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Open и SaveAs / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 451ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2166643]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 194ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 188ms
total:  451ms
x
x
Закрыть


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