Excel表格打开vbs脚本程序的方法

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脚本程序的运行结果。