|
求助各位大神,只是一个很简单的打开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
|
|