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
这些定义都是有的。
VB xlApp.Visible = False 为什么无法隐藏EXCEL应用程序窗口
答案:4 悬赏:10
解决时间 2021-02-17 08:34
- 提问者网友:小姐请专情
- 2021-02-17 05:44
最佳答案
- 二级知识专家网友:许你一世温柔
- 2021-02-17 07:02
Set xlApp = CreateObject("Excel.Application")
运行后,会创建excel的实例,在任务管理器中会看到进程excel.exe
此时xlApp的Visible属性默认值是False,所以xlApp是隐藏的,运行
xlapp.Visible = True后才会显示。所以说不存在“无法隐藏”的问题。
说明:XP + office2003
运行后,会创建excel的实例,在任务管理器中会看到进程excel.exe
此时xlApp的Visible属性默认值是False,所以xlApp是隐藏的,运行
xlapp.Visible = True后才会显示。所以说不存在“无法隐藏”的问题。
说明:XP + office2003
全部回答
- 1楼网友:甜野猫
- 2021-02-17 09:40
看看是不是没有DIM XLAPP,
试试:Dim xlapp As Excel.Application
- 2楼网友:佛说妍妍很渣
- 2021-02-17 08:06
这个是做不到的.excel仅仅只是提供对接.并不会代为处理..没办法一直隐藏.你只能把excel里面的内容读取到你窗体的控件里面去.然后关闭excel..因为excel的打开程序都是同一个.即使你隐藏了.也是一样的.
- 3楼网友:滚出爷的世界
- 2021-02-17 07:48
我测试了,是隐藏了窗口的啊,只是需要声明两个数组dim a(),b()
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯