#excel #vba
#excel #vba
Вопрос:
Я нашел этот скрытый код в форме общего пользования.
Private Sub Workbook_Open()
If ActiveWorkbook.FileFormat <> 52 And ActiveWorkbook.FileFormat <> 50 Then
ActiveWorkbook.Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
Я не знаю, какое это имеет применение.
SendKeys "^{PGDN}"
SendKeys "%(C)" amp; "Cont_2015/*69"
SendKeys "%(o)" amp; "Cont_2015/*69"
SendKeys "{TAB}" amp; "~"
ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3
это все
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub
Комментарии:
1. Привет, DarkWes, вам нужно подробнее объяснить, что вы пробовали и что вам нужно в вашем вопросе. В настоящее время три блока кода даже не компилируются. Спасибо
Ответ №1:
Код сначала разблокирует проект VB, а затем запускает некоторые макросы sendkeys — эта работа имитирует нажатие клавиш на клавиатуре, так что это запуск Control Pagedown, Alt C, «sometext», Alt o, «некоторый текст», Tab и, наконец, Enter.
затем он добавляет ссылку на проект и, наконец, сохраняет и закрывает файл
Это выглядит как неуклюжая попытка обойти отсутствие правильного набора ссылок в коде. Я предполагаю, что текст и графический интерфейс имеют значение в контексте конкретного файла
Более подробную информацию можно найти здесь