VBNet - Форум - Помогите, 2 дня мучаюсь

Вопрос: Помогите, 2 дня мучаюсь Добавлено: 12.10.05 17:35

Автор вопроса: Екатерина

Как мне закрыть книги Excel чтобы файлы освободились
MyNewExcel = New Excel.Application
MyNewExcel.Workbooks.Open(MyPathOpen & "System\reference_book_hand.xls")
...
MyNewExcel.Workbooks.Open(MyPathOpen & myname2 & myname1 & "\" & myname2 & "Tables.xls", False, True, , , , True, , , , , , , , False)

Далее потом их закрываю без сохранения
MyNewExcel.Workbooks(MyNewExcel.Workbooks(2).Name).Saved = True
                                    If MyNewExcel.Application.DisplayAlerts Then
                                        MyNewExcel.Application.DisplayAlerts = False
                                    End If
                                    MyNewExcel.Workbooks(MyNewExcel.Workbooks(2).Name).Close(SaveChanges:=False)
                                    If Err().Number = 91 Then
                                        Select Case MsgBox(" Вы уверены что хотите открыть книгу " & myname2 & "Tables.xls", MsgBoxStyle.OKCancel, "Внимание !!!")
                                            Case MsgBoxResult.OK
                                                myname = TreeSel
                                                myname1 = Mid(myname, 9, InStr(9, myname, "\") - 9)
                                                myname2 = Mid(myname, 10 + Len(myname1)) & "_"
                                                myname2 = Replace(myname2, " ", "_")
                                                MyNewBook = Nothing
                                            Case MsgBoxResult.Cancel
                                                MsgBox("!!!!")
                                        End Select
                                    End If
                                    Err.Clear()

Error.Number то 91 то 1004 то 462 то 0
но кол-во открытых книг excel остается прждним....
Visul Stodio Net ...
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #1	Добавлено: 12.10.05 17:51
	MyNewExcel.quit Ответить

Номер ответа: 2 Автор ответа: Роман Вопросов: 1 Ответов: 31	Web-сайт: www.BubnovRV.narod.ru Профиль \| \| #2	Добавлено: 14.10.05 18:34
	Set MyNewExcel=Nothing Ответить

Страница: 1 |