主页 / coding / 问题 / 77853768
Accepted
Danny Coleiro
Asked: 2024-01-21 14:10:19 +0800 CST

我想通过 VBA 代码打开 Windows 设置屏幕

  • 772
  1. 按Windows + R以打开“运行”对话框。
  2. 在“运行”对话框中键入ms-settings:。
  3. 按确定以打开Windows 设置屏幕。

您知道任何VBA代码可以给我提供与上述操作相同的结果吗？

我的意思是我只想通过VBA代码打开Windows 设置屏幕。

请注意，我是Windows 10用户。

vba

1 个回答

  1. Best Answer
    • 使用APIShellExecute​​执行脚本Start-Process ms-settings:
    Option Explicit

#If VBA7 Then
    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
#Else
    Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#End If

Sub OpenSystemSettings()
    ShellExecute 0, "open", "ms-settings:", vbNullString, vbNullString, vbNormalFocus
End Sub
    • 1

相关问题