Vba displayalerts не работает

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Asked by:

Question

I have a VB script that I am converting to PowerShell. It basically refreshes some data from TFS (SQL Server Database). In VBscript I am able to suppress the message popup but in powershell even though I am using

. still the popup appears.

Any ideas on how to suppress the pop-up or select «Yes» or «No» based on the pop-up message?

All replies

Sorry no one has replied yet. Some clarification would be helpful, though. Specifically, what is the code that produces a popup window? Include both the VBScript and PowerShell versions.

Please post the VB script code that is causing the pop-up. Then we will be able to help you with equivalent powershell code.

Guys, here is the VB and PS code. Basically, the excel file is getting updated from Team Foundation Server (TFS).

Dim objWorkbook
Dim Controls

Dim myFiles(4)
myFiles(0) = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_CSSC.xlsm»
myFiles(1) = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_IMPACT.xlsm»
myFiles(2) = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_PTARRS.xlsm»
myFiles(3) = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_PDV.xlsm»
myFiles(4) = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_CEP.xlsm»
‘myFiles(3) = «C:\TFS\Play\Reports\testing\Excel_Report_UserStories4 — Copy.xlsm»

For each myFile in myFiles
Input_file = myFile
‘Input_file = «C:\TFS\Play\Reports\UserStories\Excel_Report_UserStories_PTARRS.xlsm»

Set objWorkbook = CreateObject(«Excel.Application»)
objWorkbook.Workbooks.Open Input_file

Set objworksheet = objWorkbook.ActiveWorkbook.Worksheets(1)

For i = 1 to objworksheet.Cells.SpecialCells(11).Row
‘For i = 1 to objworksheet.Cells.SpecialCells(xlCellTypeLastCell).Row
if objworksheet.Cells(i, «A»).Value = «» Then
objworksheet.Cells(i, «A»).EntireRow.Delete
End If
Next

‘objWorkbook.DisplayAlerts = False
objworksheet.Cells(2,1).Select

Set Controls = objWorkbook.CommandBars

For Each objControl in objWorkbook.CommandBars

If objControl.Name = «Team» Then

For Each objButton in objControl.Controls

If (objButton.Tag = «IDC_REFRESH-TBB») Then

‘objWorkbook.run «‘» & Input_file & «‘!FormatReport»
objWorkbook.run «‘» & macro_file & «‘!FormatReport»

pdf_file = Left(Input_file, Len(Input_file)-5)
objWorkbook.Workbooks.Open Input_file
objWorkbook.Visible = False
objWorkbook.ActiveWorkBook.ExportAsFixedFormat xlTypePDF,pdf_file,xlQualityStandard,True,False. False

‘objWorkbook.Save False
objWorkbook.ActiveWorkBook.Close False

objWorkbook.DisplayAlerts = True
objWorkbook.Quit

‘Set ss = Nothing
Set objWorkbook = Nothing

****Powershell code (still produces popup)*****

$error.clear()
clear-Variable -Name filepath
clear-Variable -Name color_rng
clear-Variable -Name ssize
clear-Variable -Name tot
$excel = New-Object -ComObject excel.application
$files = «C:\temp\Excel_Report_UserStories — TP_test_6.xlsx»

Foreach ($f in $files)
<
$wb = $excel.workbooks.open($f)
#$wb = $excel.workbooks.add($f)
$excel.visible = $True
$sheet1 = $wb.WorkSheets | where <$_.name -eq "sheet1">
$sheet1.activate()
$excel.Application.DisplayAlerts = $False
$one = $Sheet1.UsedRange.Column
$two = $Sheet1.UsedRange.Columns.Count
$lastcolumn = $one + $two -1
$Rng = $Sheet1.UsedRange.Cells

## Delete the last row containing the Totals ##
$sp_row = $sheet1.Cells.SpecialCells(11).Row

$row = $Rng.Rows.Count
# Write-Host «# of Rows: » $row
for($i=3;$i -le $row;$i++) <
$excel.Application.DisplayAlerts = $False
$color_rng = «A» + $i + «:» + $colname + $i
$ssize = «D» + $i
#$tot = «C» + $i

$sheet1.Range($color_rng).Interior.ColorIndex = $color_index
$sheet1.Range($ssize).Value() = $story_size

>
$tot = «C» + $i
# write-host «row is: » $row
# Write-Host «tot is: » $tot
$sheet1.Range($tot).value() = «Total will be here»
#$filepath = «c:\temp\ps_test.pdf»
#$filepath = «c:\temp\Excel_Report_UserStories — TP.pdf»
#$filepath = «C:\temp\Excel_Report_UserStories_PTARRS_test.pdf»

#$excel.Save()
#$wb.Save()
#$excel.Application.DisplayAlerts = $False
#$excel.ActiveWorkBook.Close()

## Disable for now ###
#$wb = $excel.workbooks.open($f)
#$excel.Application.DisplayAlerts = $$False
#$excel.visible = $$False

#$wb.ExportAsFixedFormat($xlFixedFormat::xlTypePDF, $filepath)
##$Excel.Workbooks.close()
#$excel.ActiveWorkBook.Close($$False)
## Disable for now ###

#write-host «COLNAME is: » $colname
#write-host «Range(colname) is: » Range($colname)
$hideit = «$colname» + 2
#write-host «hideit: » $hideit
if ($sheet1.Cells.Item(2,$colname).Value() -eq «Work Item Type») <
# write-host «row 2 values are » $sheet1.Cells.Item(2,$colname).Value()
$sheet1.Range($hideit).EntireColumn.Hidden = $True>
#$sheet1.Columns(«$colname»).EntireColumn.Hidden = $True>
>
$wb.Save()
$excel.Quit()

#$excel = $null
#$wb = $null
#$sheet1 = $null

Источник

Невозможно сделать Application.DisplayAlerts = False в Excel 2016 VBA

Я целыми неделями преследовал свой хвост, с большим количеством часов «Гуглинг, чем я хочу признаться.

У меня есть большое, сложное аналитическое приложение в электронной таблице Excel 2016, которое захватывает данные таблицы SQL, запрашивает данные электронной почты и делает много вещей, которые, я думаю, довольно круты. Пользователи видят показатели и графики эффективности автоматизации продаж. Все хорошо, за исключением одного. Я не могу остановить «сохранить данные»? диалоговое окно появляется независимо от того, что я делаю.

В качестве обходного пути я поместил электронную таблицу в сеть и дал пользователям ярлык, который запускает VBscript, чтобы скопировать эту таблицу на скрытый диск на локальном ПК и запускает ее. Поэтому, если они сохраняют его, нет никаких проблем, поскольку они не работают с исходными данными. Но, как легко было бы предположить, время загрузки обязательно дольше, чем нужно, и пользователи путаются сообщением, когда я говорю им, что они не могут сохранить данные.

Чистая много разных экспериментов, похоже, что я обнаружил ошибку в Excel (да, я знаю, это звучит как бы хромает даже для меня), поскольку я не могу сделать Application.DisplayAlerts = False. Это просто не займет.

Изображение выше (или по вышеуказанной ссылке, поскольку я еще не представил достаточно вопросов, чтобы вставлять изображения), очевидно, взято из окна Immediate, когда я запускал приложение. Я ввел шаги в указанном порядке. Обратите внимание, что я устанавливаю Application.DisplayAlerts = False, а затем сразу проверял значение, и оно было True.

Очень странно. Это ошибка?

В конце концов, это, вероятно, не имеет значения; Я использовал формат.XLSB из-за меньшего размера, гораздо более короткого времени загрузки и проблем с настройкой ПК с помощью макросов. Но я снова переключился на.XLSX, чтобы упростить эксперимент.

Источник

Application.DisplayAlerts = True не работает в коде vba excel

У меня есть функция, которая выдает общее предупреждение при объединении двух полей. Я хочу подавить это сообщение с помощью vba. Однако, просмотрев форумы, я обнаружил, что « Application.DisplayAlerts = True » должно помочь. Однако, когда я пытаюсь применить код, для приложения нет опции. затем отображать предупреждения. Нужно ли мне импортировать для этого конкретную ссылку на библиотеку? Сейчас у меня импортирован Excel 14.0.

Я сам нашел разрешение.

Поскольку Application.DisplayAlerts = False должен был установить программу доступа, которая вызывала мой объект create excel, чтобы игнорировать любые предупреждения, отображаемые при доступе. Чтобы решить эту проблему, я просто написал o bjExcel.DisplayAlerts = false

Displayalerts excel что это

Главная »VBA» Displayalerts excel что это

Что делает команду Application.DisplayAlerts

Смотрите также есть такое свойство спасает. Уровень безопасности property to True так заработало: Думаю неправильная методика
куда — не)) вопрос на совместимость вызванная Create_Mobile_Rep

Уже понимаемыми, конечно — помоему потому reply = MsgBox («Вы неделю» план на следующую Range («G9, G11, G13, G15, G17, G19, G21, G23, G27, G33, G35, G37, G39, G41, G43, G45, G47, G49, G51, G53, G55, G57 «). Locked = True True, тогда у KoNooS104 DisplayAlerts для отключения в excel и когда код [Электронная почта защищена] 🙂 знаю, я не небольшое уточнение Excel, хотя я Option Explicit Sub если в теме что это не указано на план на Cancel = True неделю? «Файл должен

Диапазон («G59, G61, G63, G65, G67, G69, G73, G75, G77, G79, G81, G83, G85, G87, G89, G90, G92, G94, G96, G98, G100, G102, G104 «). Locked = True Вас в голове: Здравствуйте. Вообщем, у предупреждений. Есть ли в internet explorer завершен, если только: Спасибо , друзья! Разобрался

Попробуйте так: MVP ^ _ ^ Application.DisplayAlerts ж отключаю е го Create_Mobile_Rep () Dim ws1 хоть немного и стандартный алерт. Тут следующую неделю? «, VbYesNo,

Где в код вставляется Application.DisplayAlerts? (Макросы/Sub)

ElseIf reply = закрываться с сохранением,
Range («G108, G110, G112, G114, G116, G118, G120, G122, G124, G126, G128, G130, G132, G134, G136, G138, G140, G142, G145, G147, G149, G151, G153 «). Locked = True преобладает только одна
Меня на кнопке аналог при работе
минимальный.
вы запускаете
SpongyUrchin
Sub tt () Application.DisplayAlerts
Xapa6apga делает это на
в первом модуле. В качестве рабочего листа ws2 таких ляпов, которые три варианта ответа.
«Запрос на продолжение»)
vbYes Then Me.Save: а в мощ
Тусклый ответ Как мысль: «Достала ты удаления страницы графика
со словом? WordApp.DisplayAlerts: = ложный межпроцессный код плаката.
: А поподробнее
= False ThisWorkbook.SaveAs :, спасибо большое Excel на Если поставить в As Worksheet Dim
Мешают пониманию, меньше Да и если ‘Application.DisplayAlerts = False Exit Sub случае возвращать пользователя Integer меня уже, подруга. «С екселя записана ошибка не выдает
: По Но что он

объяснить в чем «путь к существующему
) конкретном компьютере?
по порядку процедуры Create_Mobile_Rep,
CurBook As Workbook,
становится.
бы он сработал
‘Отключение вопросов End If
на рабочий лист. Reply = MsgBox («Вы KoNooS104 команда:
но и не
Филин считает за «кросс-процесс
проблема? файлу» End Sub [email protected]
Так это?
тогда ок, но MobRep As Workbook Xapa6apga
— то Вы
If reply =

End Sub Добавил Файл. Пароль указали план на : Ты пьян?) ахах Application.DisplayAlerts = false charts.delete Application.DisplayAlerts = trueОбъясните помогает ничего: для подавления выводов code «? Разве открытие У меня также И вот запустите: Добрый день уважаемые Лузер ™
почему? ‘| Статус бар
: Здравствуйте, прошу очередной
бы не получили
vbNo Then
bmv98rus
528 следующую неделю? «, vbДа Нет,
спасибо за такой пожалуйста как она делает сообщения Excel’я ставлю
новой книги входит не получается перевести
с работающей и Гуру!
: Не только на Заранее благодарен за Application.StatusBar = «|»
раз Вашей помощи.
тот результат, который MsgBox «Укажите плановые
:
SLAVICK

» Запрос на продолжение «) подробный ответ, разобрался. работает? Как связана Sheeby
в проге Application.DisplayAlerts в это определение? Приложения в состоянии неработающей строкиой Application.DisplayAlerts Собственно проблема —

конкретном компе, но ответ! & «Create_mobile_rep» Есть основной модуль хотели книга закрывалась задание на следующую light26
: Может так: Приложение .DisplayAlerts = False Можно было просто с графиком?: Я применял = False … Но Если да, то

.DisplayAlerts = False = False

не работает Application.DisplayAlerts. и в специф Лузер ™ & «|» &
с которого запускаются бы с сохранением. Неделю «, просто добавьте Me.Save Private Sub Workbook_BeforeClose (Cancel As If reply = написать: Спрашивает разрешение.

Igor_Tr Delphi w.Application.DisplayAlerts: = трабл в том, есть ли какой-либо Если выдать MsgBox Или вот так Т.е. наоборот — запущенной копии Эксель.: Моя версия: «Запустился в»

Не срабатывает Приложение. DisplayAlerts = False

другие макросы … bmv98rus Cancel = True
а Application.DisplayAlerts = Boolean) vbNo Then
): Я наверное на False; что когда я могу установить .DisplayAlerts сразу после выполнения погонять: работает, а вот ведь всегда можно Объект Application в & » | » & Option Explicit Sub: https://msdn.microsoft.com/ru-ru….y-excel ElseIf reply = False, да Application.EnableEvents = True MsgBox «Укажите плановые
Igor_Tr дежурстве … Команда «запрещает» ПраПрапорщик работы с = Ложные на строки отключения, значение Sub tt () Application.DisplayAlerts перевести в состояние написать таможню Create_Mobile_Rep создается Format (Сейчас , «чч: мм: сс») & A_MACRO () Application.ScreenUpdating = light26 vb Да Затем Me.Save и выход из поддиапазона («G9, G11, G13, G15, G17, G19, G21, G23, G27, G33, G35, G37, G39, G41, G43, G45, G47, G49, G51, G53, G55, G57 «). Заблокировано = Верное задание на следующее: Да не спрашивает систему задавать лишние: А. что Вызов Excel’ем прогоняю во все время выполнения указано False, но = False ThisWorkbook.SaveAs = FALSE не получается Установить xlApp = заново с дефолтными «|» ‘| Установить False Application.DisplayAlerts = : End If
не нужно мне Range («G59, G61, G63, G65, G67, G69, G73, G75, G77, G79, G81, G83, G85, G87, G89, G90, G92, G94, G96, G98, G100, G102, G10 4 «). Locked = True неделю» Это Вы ей
вопросы. Вы удаляете, с вордом такого

первый раз, то макроса?
при открытии книги, «C: Documents and Settings юзер Desktop Book2.xls «Поиск подобного не нового приложения
свойства. CurBook = Application.ThisWorkbook False ‘Отключит глупые SLAVICK

End Sub кажется, а вот Range («G108, G110, G112, G114, G116, G118, G120, G122, G124, G126, G128, G130, G132, G134, G136, G138, G140, G142, G145, G147, G149, G151, G153 «). Locked = True
ElseIf reply = разрешаете, или нет. Например, лист как делаете что он
всё нормально, сообщения екфузя
в которой запрашивается Application.DisplayAlerts = True Нашел, если проглядел и получим новую Если его передать ws1 =

) Application.Calculation , усвоил light26 Отменить = true Тусклый ответ Как
vbYes Then Exit False -запрещаете,
обычно, и тогда алерты Вам выкидывает?
подавляются, дальше же: Привет обновления ссылок, значен ие
ThisWorkbook.SaveAs «C: Documents и — дайте ссылку копии (запущенный процесс) из A_MACRO в CurBook.Sheets (» Сеть «) Установите MobRep = xlCalculationAutomatic Application.EnableEvents bmv98rus : На пользу пойдет Integer Sub Правильно -разрешаете задавать

система Вас спрашивает: Sheeby Application.DisplayAlerts = False

Не работает переключение. DisplayAlerts

При работе методов сразу становится True Settings юзер Desktop Book2.xls «End Sub
пожалуйста. Эксель.
Create_Mobile_Rep, то и = Application.Workbooks.Add MobRep.SaveAs = False ‘|, да пытался я

SLAVICK 🙂 reply = MsgBox (» Вы End If
вопросы. А чего «А не сохранить, спосибо , коротко и
не срабатывает, как VBA открывает файл и диалоговое окно
Sergei_A В примере все

Некоторые из свойств свойства передадутся. Имя файла: = «C: Сеть Mobile_rep » + «m»
Статус бар Application.StatusBar
туда сунуться. Только, Спасибо за код Private Sub Workbook_BeforeClose (Отменить как указали план на
End Sub Вы такой сухарь? Ли нам изменения «. Точно
будто он там в интернете. Перед
не подавляется.: Здесь та же зацепил на кнопки, Приложение будут сохранены Xapa6apga + CurBook.Name, _

= «|» & не понимаю ничего Да, работает в Boolean) следующую неделю? «, vb Да Нет, Не могу добиться света26

А Вы ей:» Да FaTaL-CS и не ночевал …

открытием программа останавливается SpongyUrchin

история что и лист без пароля. и восстановлены при:, почти так
FileFormat: = xlExcel8, Пароль: = «», WriteResPassword: = «», «A_MACRO» и по-английски. А перевод обоих вариантов. Спасибо.
Application.EnableEvents = True «Запрос на продолжение») отключения запроса на: Доброго времени суток. Нет, спасибо, не открываю шоблон заполняю: — (((В чём И запрашивает разрешение: В справке MSDN Application.ScreenUpdating. При корректном

.EnableEvents в этом открытии книги даже и было,
ReadOnlyRecommended: = False, CreateBackup: = False Set «|» & «Запустился корявый. Но все Но почему Application.DisplayAlerts Range (» G9, G11, G13, G15, G17, G19, G21, G23, G27, G33, G35, G37, G39, G41, G43, G45, G47, G49, G51, G53, G55, G57 «). Locked = True Application.DisplayAlerts = False Сохранение книги посредством В книге есть утруждайтесь «. И книга (лист,
и если возникнет дело? Помогите разобраться, на открытие файла. также указано: выход из продцедуры, пример включается и на другом компе, До этого вызывался ws2 = MobRep.Sheets (1) в «& равно спасибо

Как избавиться от окон? Приложение. DisplayAlerts = False не спасает.

= False не Range («G59, G61, G63, G65, G67, G69, G73, G75, G77, G79, G81, G83, G85, G87, G89, G90, G92, G94, G96, G98, G100, G102, G104 «). Locked = True
Если ответ = Application.DisplayAlerts = False макрос обьект …) удаляется (закрывается) ошибка пытаюсь закрыть плиз … Как можно сделать, если задать значение встает в выключается без проблем … например, Расчет. Некоторые еще одна процедура ‘Какие-то манипуляции’ «|» & Форматировать (Теперь

не работает Application.DisplayAlerts

Range («G108, G110, G112, G114, G116, G118, G120, G122, G124, G126, G128, G130 , G132, G134, G136, G138, G140, G142, G145, G147, G149, G151, G153 «). Locked = True vbNo Then По замыслу при Private Sub Workbook_BeforeClose (Отменить как без сохранения без вопросов и ПраПрапорщик что-бы это сообщение это свойство становится True автоматически. Вот где лыжи — нет, при и в ней ‘MobRep.Save’ «hh: mm: ss») & «|»: Да, переводы там SLAVICK Dim reply As MsgBox «Укажите плановые

Есть ли в MS word аналог Displayalerts: = false как в excel?

выбрать «Да» после Boolean) изменений. Application.DisplayAlerts False, Microsoft Sanja не едут? Закрытии будут сброшены Application.DisplayAlerts = True Задает вопрос на

‘| Call Create_Mobile_Rep не литературные, это
: ессли честно не Целое

задания на следующую запроса » Вы указали Application.EnableEvents = True Application.DisplayAlerts = False. А когда ворда

excel из delphi = False не Excel устанавливает это
: У меня вот Хьюго в дефолт. Какие просто не заметил совместимость Excel MobRep.CloseЗападает ‘Create_Mobile_RepИ когда отрабатывается точно, но стали

помню (когда-то искал ответ)

Excel 2010 сброс настроек по умолчанию
Влияние слова Excel
Excel время перевести в число
Excel вторая ось на графике
Excel вычесть дату из даты
Excel двойное условие
Диапазон значений Excel
Excel, если от 0 до 0
Excel, если и несколько условий
Excel, если пусто
Excel если содержит
Excel, если число то число

Источник

Vba displayalerts не работает

Свойство Application.DisplayAlerts (Excel)

Синтаксис

Примечания

Пример

Поддержка и обратная связь