热度 6|
论坛上看到的,先存这,很实用的。
Sub ClearImmediate()
Debug.Print "this is atest"
With Application.VBE.Windows("立即窗口")
.Visible = True
.SetFocus
VBA.SendKeys "^{a}"
VBA.SendKeys "{del}"
' .Visible = False'关闭立即窗口!
End With
End Sub