需要在VB6.0中以管理员模式运行Excel宏

我正在用VB 6.0编写此代码

我有一个excel文件，里面有一个宏。但如果我以管理员身份打开excel，宏将运行。我得到以下代码，将以管理员身份打开excel程序，但我无法打开已保存在驱动器中的特定excel宏文件

私有声明函数ShellExecute Lib“shell32.dll”别名“ShellExecuteA”（ByVal hWnd为长，ByVal lpOperation为字符串，ByVal lpFile为字符串，ByVal lpParameters为字符串，ByVal lpDirectory为字符串，ByVal nShowCmd为长）为长 常数SW_SHOWNORMAL=1

'这将打开带有新书的excel

副标题（）

ShellExecute 0，“runas”，“C:\Program Files（x86）\Microsoft Office\Office12\EXCEL.exe”，命令，vbNullString，SW\U SHOWNORMAL

端接头

但我需要打开保存在路径“C:\Users\user\Desktop\My Trading Robot\Automation\u Ver3.0.xlsm”中的excel文件，对于管理员，我没有给出任何密码，并且我拥有笔记本电脑的管理员权限 有人可以帮助我如何在Windows07机器中使用ExcelVB6.0实现这一点吗

提前感谢,，

---

Arun C M

你想做什么有点不清楚，但这可能会帮助你。它通过

ShellExecute

命令打开Excel，打开特定文件，然后运行宏：

Sub Main()

    ShellExecute 0, "runas", "C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.exe", Command, vbNullString, SW_SHOWNORMAL

    Dim xl As Excel.Application
    Set xl = GetObject(, "Excel.Application")
    With xl
        .Visible = True
        .Workbooks.Open ("C:\Users\user\Desktop\My Trading Robot\Automation_Ver3.0.xlsm")
        .Run "YourMacroName"
    End With

End Sub

---

注意：

GetObject

方法将获取它找到的第一个Excel实例，因此请确保在执行此操作之前您尚未运行Excel。

完美的代码，我看起来完全一样，感谢您的帮助。感谢您的快速响应和帮助