我想创建一个.vbs文件，以管理员权限运行.xlsm文件

Question

我想创建一个.vbs文件，以管理员权限运行.xlsm文件。

我想到的方法是

1. 以管理员身份运行excel文件
2. 从以管理员权限打开的Excel中打开.xlsm文件

我以管理员身份打开了.xlsx，但。。。

Set objShell = CreateObject("Shell.Application") 
objShell.ShellExecute "C:Program Files (x86)Microsoft OfficeOffice16EXCEL.EXE", "" , "", "runas", 0

我无法控制以管理员身份通过GetObject(，Excel.application(打开的.xlsx文件

我谨请求你的帮助。

Answer 1

您可以尝试使用此vbs文件：

Option Explicit
Call Run_as_Admin() ' We execute our script with admin rights !
Dim Ws,EXCEL_FILE_PATH
Set Ws = CreateObject("Wscript.Shell")
EXCEL_FILE_PATH = "C:Pathfile.xlsm" ' Just change this line into your path file
Ws.run EXCEL_FILE_PATH,1,True
'----------------------------------------
Sub Run_as_Admin()
If Not WScript.Arguments.Named.Exists("elevate") Then
CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _
, DblQuote(WScript.ScriptFullName) & " /elevate", "", "runas", 1
WScript.Quit
End If
End Sub
'--------------------------------------
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'-------------------------------------