PPT宏新建Excel工作簿时Excel窗口不显示

Carlwantsmore

通过以下代码：

Excel.Application.Workbooks.Add
Excel.Application.WindowState = xlNormal

希望能新建一个空白的Excel表格用来存储PPT中的所有对象（如果是矩形或文本框就获取内容），但是一直失败，断点检查的时候能看出来新建成果了，但是Excel窗口不显示，调整了Windowstate也不现实。希望能够得到帮助，谢谢，
如果问题表诉有不清楚的还请及时指正

守候_CJ

TTP调用Excel示例
一、代码

1. Sub TTP调用Excel()
   
2.     Dim ex As Object
   
3.     Dim wb As Object
   
4.     Dim sht As Object
   
5.    
   
6.     Set ex = CreateObject("Excel.Application")
   
7.     ex.Visible = True 'Excel程序可见性设置为是
   
8.     Set wb = ex.workbooks.Add
   
9.     Set sht = wb.sheets.Add
   
10.    
    
11.     With sht
    
12.         .Name = "新建工作表"
    
13.         .Range("a1") = "示例数据"
    
14.     End With
    
15.    
    
16.     Set ex = Nothing
    
17. End Sub

复制代码

二、操作图示

三、附件有示例文件