我想创建一个以管理员权限运行.xlsm文件的.vbs文件 [英] I would like to create a .vbs file that runs the .xlsm file with administrator privileges
本文介绍了我想创建一个以管理员权限运行.xlsm文件的.vbs文件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想创建一个.vbs文件,该文件以管理员权限运行.xlsm文件.
I want to create a .vbs file that runs the .xlsm file with administrator privileges.
我想到的方法是
- 以管理员身份运行excel文件
- 使用管理员权限打开的Excel中打开.xlsm文件
我以管理员身份打开.xlsx,但是...
I opened .xlsx as an administrator, but...
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.EXE", "" , "", "runas", 0
我无法控制由GetObject(,Excel.application)以管理员身份打开的.xlsx文件
I cannot control the .xlsx file that I opened as an administrator by GetObject(,Excel.application)
我谨向您寻求帮助.
推荐答案
您可以尝试使用此vbs文件:
You can give a try with this vbs file :
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:\Path\file.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
'-------------------------------------
这篇关于我想创建一个以管理员权限运行.xlsm文件的.vbs文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文