Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: как закрыть excel без потверждения ? Добавлено: 01.11.05 13:36  

Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 
   Dim SHEET1 As Object
   Dim NObj As Object
   Set NObj = CreateObject("EXCEL.APPLICATION")
   
   NObj.workbooks.Open FileName:="c:\list.xls"
   Set SHEET1 = NObj.workbooks
   NObj.cells(5, 5) = "Dennis"
   NObj.Range("I5").Select
   NObj.Selection.Font.ColorIndex = 1
   NObj.Visible = True
   NObj.workbooks.Close
   NObj.quit


Как закрыть приложение, что бы не спрашивалось потверждение ?

Ответить

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

Номер ответа: 1
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #1 Добавлено: 01.11.05 14:10
В методе .Close явно указать, сохранять изменения или нет.

Ответить

Номер ответа: 2
Автор ответа:
 admsasha



ICQ: 234002454 

Вопросов: 56
Ответов: 69
 Web-сайт: dansoft.krasnokamensk.ru
 Профиль | | #2
Добавлено: 02.11.05 03:27
как ?, если ставлю:
NObj.workbooks.Close False


Run-time error '450':
Wrong number of arguments or invalid property assignment

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #3 Добавлено: 02.11.05 03:57
убить нах процесс экселя :)

Ответить

Номер ответа: 4
Автор ответа:
 GSerg



Вопросов: 0
Ответов: 1876


 Профиль | | #4 Добавлено: 02.11.05 12:23
workbooks - это все книги.
А ты по одной. К тому же, у тебя как раз одна.

Ответить

Номер ответа: 5
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #5 Добавлено: 02.11.05 12:36
........

   NObj.Visible = True
   NObj.workbooks[B];(1)[/B].Close False
   NObj.quit

........

Ответить

Номер ответа: 6
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
 Профиль | | #6 Добавлено: 02.11.05 12:37
Тьфу...

Ответить

Номер ответа: 7
Автор ответа:
 el-paso



Вопросов: 3
Ответов: 164
 Профиль | | #7 Добавлено: 02.11.05 20:27

Sub CloseAll()
    Application.DisplayAlerts = False
    Application.Quit
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам