论坛 › Excel 自习室 › 调用系统 时间和日期 控制面板

nothingwmm 发表于 2011-1-25 10:40

调用系统 时间和日期 控制面板

本帖最后由 爱疯 于 2019-7-15 17:42 编辑

Sub ShowDateTimeDlg() '调用系统日期时间对话框
Dim Arg As String
Dim TaskID As Double
Arg = "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl" '设置变量
On Error Resume Next '容错处理
TaskID = Shell(Arg) '调用shell打开指定变量
If Err <> 0 Then
      MsgBox ("Cannot start the application.") '如果有错误，提示不能打开
End If
End Sub其他系统控制命令

Access.cpl 对应“辅助选项属性”
Appwiz.cpl 对应“添加/删除程序属性”
Desk.cpl 对应“显示属性”
Intl.cpl 对应“区域设置属性”
Inetcpl.cpl 对应“Internet属性”
Joy.cpl 对应“游戏控制器”
Main.cpl 对应“鼠标属性”
Mmsys.cpl 对应“多媒体属性”
Netcpl.cpl 对应“网络属性”
Password.cpl 对应“密码属性”
Powercfg.cpl 对应“电源管理属性”
Sticpl.cpl 对应“扫描仪和数码相机属性”
Sysdm.cpl 对应“系统属性”
Telephon.cpl 对应“拨号属性”
Timedate.cpl 对应“日期/时间属性”

liu_anwei 发表于 2011-1-30 14:08

要多来学学

imuv 发表于 2011-2-5 13:03

{:011:}多来学学

hjcexecl 发表于 2011-3-2 23:14

学学哈谢谢

西安专家 发表于 2011-3-4 09:32

学习学习

wgxfhi11 发表于 2011-3-7 10:56

学习学习，谢谢分享！

慕桧 发表于 2011-4-23 09:49

学习学习，谢谢分享！

tristan1898 发表于 2011-7-20 20:36

长回来看看哦

阿豪 发表于 2011-7-20 21:32

长回来看看哦

ypbnyn 发表于 2011-7-22 20:29

磨刀不误砍柴工

查看完整版本: 调用系统 时间和日期 控制面板