VBA打开文件夹选项并在后台打开Excel并对其进行激活
时间: 2024-05-12 18:17:02 浏览: 452
您可以使用以下的VBA代码来实现这个功能:
```
Sub OpenFolderAndActivateExcel()
'Open Windows Explorer
Shell "explorer.exe /select," & "C:\MyFolder\MyFile.xlsx", vbMaximizedFocus
'Activate Excel
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "C:\MyFolder\MyFile.xlsx"
xlApp.Workbooks("MyFile.xlsx").Activate
End Sub
```
这个代码将打开Windows资源管理器并选中指定的Excel文件,然后在后台打开Excel并激活指定的工作簿。请确保将" C:\MyFolder\MyFile.xlsx "替换为您要打开的Excel文件的实际路径和文件名。
阅读全文
相关推荐







