1、打开Excel表格,点击【开发工具】,【Visual Basic】。
2、在VBA编辑器里面点击【插入】,【模块】,之后输入以下程序:Sub vbstime猾诮沓靥()Dim str As String '定义str为字符串str = "cm颊俄岿髭d.exe /c D:\GetTime\GSTime.vbs" '赋值语句,打开cmd命令后打开vbs脚本程序Shell str, vbHide '执行str里面的程序,vbHide为隐藏窗口End Sub
3、在D盘的GetTime文件夹里面新建一个GSTime.vbs脚本程序,然后输入以下旯皱镢涛程序代码并进行保存。on error resume nextdim aa=now() msgbox &鳎溻趄酃quot;现在时间是:" & chr(13) & chr(10) & a
4、回到Excel表格的编辑器,按下【F5】或点击“运行”图标就可以触发运行vbs脚本程序,然后显示出vbs脚本程序的运行结果。