VBA打开EXCEL文件并不在前端显示

永非勇

求助各位大神，只是一个很简单的打开EXCEL文件读取数据的操作，所有代码都不超过22行，就是打开的文件看不到，确定是在后台打开了，取数也能取到，就是不能显示在活动窗口，很苦恼，不知道是哪里设置不对。EXCEL版本是2016。
各种方法都试了， windows.visible=true, 显示越界了, Set GIT = ActiveWorkbook没反应， GIT.activate没反应。
可以看到在任务窗口里，有一个EXCEL的程序在跑，但是没有名字，所以用windows(XXX).visible肯定会越界。不知道还有什么办法可以显示在活动窗口看到具体的内容方便调试。

代码如下
Private GITFilename As String
Private dataExcel As Application, GIT As Workbook, Mysheet As Worksheet, filePath
Sub fileSelect()

    Dim period As String
    Set dataExcel = CreateObject("Excel.Application")
    filePath = Application.GetOpenFilename(Title:="Select the XXFUN0107 Report File", MultiSelect:=False)

    If filePath <> False Then
        Set GIT = dataExcel.Workbooks.Open(filePath)
        GITFilename = GIT.Name
'        Set GIT = ActiveWorkbook
   Application.ScreenUpdating = True
     
      
      
        Set Mysheet = GIT.Worksheets(1)
        
        Mysheet.Activate
    period = Mysheet.Cells(9, 2)  ‘能取到数
        
     ’  ActiveWorkbook.Close
     ‘  Set GIT = Nothing
      ’ Set Mysheet = Nothing
         
      Else
         Exit Sub
End If
End Sub

永非勇

已解决。
换了一个方法打开workbook就可以了。
Workbooks.Open Filename:=filePath

microyip