代码:
sub test()
Dim tt As Object
Set tt = CreateObject("wscript.shell")
tt.popup Now()
End Sub
代码说明:
1、该代码运行环境是VBA;
2、创建了Windows Script Host 对象,是windows脚本宿主文件;
3、提供了新的显示方式,如对象名.popup 字符串/函数()。
代码:
sub test()
Dim tt As Object
Set tt = CreateObject("wscript.shell")
tt.popup Now()
End Sub
代码说明:
1、该代码运行环境是VBA;
2、创建了Windows Script Host 对象,是windows脚本宿主文件;
3、提供了新的显示方式,如对象名.popup 字符串/函数()。