Question

VB xlApp.Visible = False 为什么无法隐藏EXCEL应用程序窗口

Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\all.xls")
Set xlSheet = xlBook.Worksheets("all")
i = 5
For i = 5 To 179
a(i) = Trim(Right(xlSheet.Cells(i, 1), Len(xlSheet.Cells(i, 1)) - 1))
a(i) = Left(a(i), InStr(a(i), "镇"))
b(i) = xlSheet.Cells(i, 7)
Next i

xlApp.DisplayAlerts = False
xlBook.Saved = False
xlBook.Close
end sub

PS:该excel文件是由网页文件另存为的，所以带有一定的网页格式。

————————
请问如何隐藏这个excel应用程序窗口，谢谢啦。
每次运行程序的时候，还是会弹出excel2007 窗口
Dim xlApp As Excel.Application '定义读取excel所需参量
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim a(2100) As String
dim b(2100) as double
dim i as integer
这些定义都是有的。

Answer 1

Set xlApp = CreateObject("Excel.Application")
运行后，会创建excel的实例，在任务管理器中会看到进程excel.exe
此时xlApp的Visible属性默认值是False，所以xlApp是隐藏的，运行
xlapp.Visible = True后才会显示。所以说不存在“无法隐藏”的问题。

说明：XP ＋ office2003

Answer 2

我测试了，是隐藏了窗口的啊，只是需要声明两个数组dim a(),b()

Answer 3

看看是不是没有DIM XLAPP,
试试：Dim xlapp As Excel.Application