Мое почтение, джентльмены.
Не могу разобрать почему все работает если сохранить и закрыть файл вручную и не работает если сделать программно (раскомментировать две последних строки)?
Excel 2013 x64, Win10
Не могу разобрать почему все работает если сохранить и закрыть файл вручную и не работает если сделать программно (раскомментировать две последних строки)?
Excel 2013 x64, Win10
Код |
---|
Sub TestPasswordProject() With ThisWorkbook.Application .VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute .SendKeys "^{TAB}" .SendKeys "{ }" .SendKeys "{TAB}" & 1 .SendKeys "{TAB}" & 1 .SendKeys "{TAB}" .SendKeys "{ENTER}" End With 'ThisWorkbook.Save ' при ручном сохранении и закрытии файла все сохраняется, программно - нет. 'ThisWorkbook.Close 0 End Sub |
«Бритва Оккама» или «Принцип Калашникова»?