Question

我以一种常用形式找到了这个隐藏的代码。

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

Answer 1

代码首先解锁VB项目，然后运行一些sendkeys宏-通过模拟键盘上的按键来完成此工作，因此它正在运行Control Pagedown，Alt C，“ sometext”，Alt o，“ some text”，Tab最后进入。

然后添加对项目的引用，最后保存并关闭文件

看起来很笨拙，无法在代码中设置正确的引用。我认为文本和GUI在特定文件的上下文中具有含义

可能会找到更多详细信息Here

“他们试图用这段代码做什么？”

1 个答案: