判断系统时间为星期几;
dim sysdate,sysweek,sysweekdayname
sysdate=date
sysweek=weekday(sysdate)
sysweekdayname=weekdayname(sysweek,true)
if sysweekdayname="星期一" then
msgbox sysweekdayname
如果 Sub 过程无任何参数,则 Sub 语句必须包含空括号 ()。 下面的 Sub 过程使用两个固有的(或内置的)VBScript 函数,即 MsgBox 和 InputBox,来提示用户输入信息。然后显示根据这些信息计算的结果。计算由使用 VBScript 创建的 Function 过程完成。此过程在以下讨论之后演示。 Sub ConvertTemp() temp = InputBox("请输
有时候我们需要批处理一些Excel文件,Vbscript可以帮助我们用简单的程序实现之。Vbscript脚本保存为.vbs文件,则可以双击运行,非常方便。
这个是示例代码,请保存为 run.vbs 文件:
' on error resume next ' define params: dim ExcelApp dim objWork