在windows 10中更改系统日期
在windows 10中更改系统日期
提问于 2020-10-06 04:33:44
我已经搜索了这个主题，但没有解决它。我想要做的是通过VBA更改系统日期。我使用过Date = DateSerial(2020,10,6)，但这需要许可。我试过这样的方法
Sub Test()
Dim oShell As Object
Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cmd.exe", "date 10/6/2020", , "runas", 1
End Sub但它不起作用。看起来好像少了点什么。任何想法。
回答 1
Stack Overflow用户
发布于 2020-10-06 14:50:27
这就是解决方案
Sub Test()
Dim oShell As Object, d As Date
Set oShell = CreateObject("Shell.Application")
d = "10/06/2020"
oShell.ShellExecute "cmd.exe", "%comspec% /c" & "date " & d, , "runas", 0
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64215817
复制相关文章
相似问题
腾讯云开发者
