Подавить вопрос системы?
Подскажите плиз, кто знает?
Открываю файл Excel на диске, выделяю копирую и вставляю в текущую книгу.
Set xls = CreateObject("Excel.Application")
xls.Visible = False
xls.Workbooks.Open "c:\test.XLS", 3
Set book = xls.Workbooks(1)
For Each foo In book.Worksheets
foo.Activate
foo.Range("A1:S500").Copy
Sheets("S2").Select
Sheets("S2").Paste
Next
book.Close True
xls.Quit
Вылетает сообщение про то, что в буфере обмена находится большой объем данных с вопросом сохранить эти данные для последующей вставки? Нажмите да или нет
Как мне скрыть этот вопрос?
Открываю файл Excel на диске, выделяю копирую и вставляю в текущую книгу.
Set xls = CreateObject("Excel.Application")
xls.Visible = False
xls.Workbooks.Open "c:\test.XLS", 3
Set book = xls.Workbooks(1)
For Each foo In book.Worksheets
foo.Activate
foo.Range("A1:S500").Copy
Sheets("S2").Select
Sheets("S2").Paste
Next
book.Close True
xls.Quit
Вылетает сообщение про то, что в буфере обмена находится большой объем данных с вопросом сохранить эти данные для последующей вставки? Нажмите да или нет
Как мне скрыть этот вопрос?
Цитата:
Originally posted by Ranger
Подскажите плиз, кто знает?
Открываю файл Excel на диске, выделяю копирую и вставляю в текущую книгу.
Set xls = CreateObject("Excel.Application")
xls.Visible = False
xls.Workbooks.Open "c:\test.XLS", 3
Set book = xls.Workbooks(1)
For Each foo In book.Worksheets
foo.Activate
foo.Range("A1:S500").Copy
Sheets("S2").Select
Sheets("S2").Paste
Next
book.Close True
xls.Quit
Вылетает сообщение про то, что в буфере обмена находится большой объем данных с вопросом сохранить эти данные для последующей вставки? Нажмите да или нет
Как мне скрыть этот вопрос?
Подскажите плиз, кто знает?
Открываю файл Excel на диске, выделяю копирую и вставляю в текущую книгу.
Set xls = CreateObject("Excel.Application")
xls.Visible = False
xls.Workbooks.Open "c:\test.XLS", 3
Set book = xls.Workbooks(1)
For Each foo In book.Worksheets
foo.Activate
foo.Range("A1:S500").Copy
Sheets("S2").Select
Sheets("S2").Paste
Next
book.Close True
xls.Quit
Вылетает сообщение про то, что в буфере обмена находится большой объем данных с вопросом сохранить эти данные для последующей вставки? Нажмите да или нет
Как мне скрыть этот вопрос?
Не все вопросы можно скрыть программно. Если Application.DisplayAlerts не помогает, то тогда есть универсальный метод - SendKeys.