PowerPoint VBA调用Excel生成/打开的工作簿不在任务栏显示问题求助

你代码中直接调用的Application对象默认指向当前VBA的宿主程序（也就是PowerPoint），你设置的可见性根本没有作用到你创建的Excel实例上，所以所有可见性设置都无效。

1. 新建Excel工作簿的正确写法（前期绑定，已添加Excel库引用时使用） #

Dim xlApp As Excel.Application
Dim wb As Excel.Workbook

' 先创建独立的Excel应用实例
Set xlApp = New Excel.Application
' 针对Excel实例设置可见性
xlApp.Visible = msoTrue
' 通过实例创建工作簿
Set wb = xlApp.Workbooks.Add

2. 打开现有Excel文件的正确写法 #

Dim xlApp As Excel.Application
Dim MyWorkbook As Excel.Workbook
Dim fullpath As String
fullpath = "替换为你的Excel文件完整路径"

Set xlApp = New Excel.Application
xlApp.Visible = True
Set MyWorkbook = xlApp.Workbooks.Open(fullpath)

兼容写法（无需提前添加Excel库引用，后期绑定） #

如果需要适配不同版本的Office，不需要提前添加Excel库引用，可以用以下写法：

Dim xlApp As Object
Dim wb As Object

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
' 新建工作簿
Set wb = xlApp.Workbooks.Add
' 打开现有文件替换为：Set wb = xlApp.Workbooks.Open("文件路径")

测试前先打开任务管理器，结束所有后台运行的Excel.exe进程，避免之前测试遗留的隐藏Excel实例干扰测试结果。
如果后续不需要保留Excel窗口打开，使用完后请按以下规则释放对象，避免后台残留进程：

' 示例释放代码
wb.Close SaveChanges:=True ' 根据需求设置是否保存修改
xlApp.Quit
Set wb = Nothing
Set xlApp = Nothing

内容的提问来源于stack exchange，提问作者Charlie