如何通过VBA代码打开Windows 10系统设置界面？

你可以通过调用Windows API中的ShellExecute来实现需求，以下是完整的VBA代码：

' 声明Windows API函数
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long _
) As LongPtr

Sub OpenWindowsSettings()
    ' 调用ShellExecute打开Windows设置URI
    ShellExecute 0, "open", "ms-settings:", vbNullString, vbNullString, 1
End Sub

代码说明 #

• ShellExecute函数用于启动外部程序或打开URI协议，这里ms-settings:是Windows设置的官方URI协议，和你手动在运行对话框输入的内容完全一致。
• 参数1表示以正常窗口大小打开设置界面，和手动点击"确定"后的效果匹配。
• 代码中的PtrSafe和LongPtr是为了兼容32位和64位版本的Office。

内容的提问来源于stack exchange，提问作者Danny Coleiro