«Что они пытались сделать с этим кодом?»

Я нашел этот скрытый код в форме общего пользования.

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)" & "Cont_2015/*69"
SendKeys "%(o)" & "Cont_2015/*69"
SendKeys "{TAB}" & "~"
ThisWorkbook.VBProject.References.AddFromGuid GUID: = "{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3

это все

ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

Привет, DarkWes, вам нужно больше объяснить, что вы пробовали и что вам нужно в своем вопросе. В настоящее время три блока кода даже не компилируются. Спасибо

— 10.04.2019 00:08

excel vba

09.04.2019 23:55

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Код сначала разблокирует проект VB, а затем запускает некоторые макросы sendkeys — эта работа имитирует нажатие клавиш на клавиатуре, поэтому выполняется Control Pagedown, Alt C, «sometext», Alt o, «some text», Tab и, наконец, Enter. .

затем он добавляет ссылку на проект и, наконец, сохраняет и закрывает файл

Это выглядит как неуклюжая попытка обойти отсутствие правильной ссылки в коде. Я предполагаю, что текст и графический интерфейс имеют значение в контексте конкретного файла.

Более подробную информацию можно найти Здесь

10.04.2019 14:10