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