[已解决]宏运行后，改动的excel文件打不开，无可视窗口。

guanyan55

Sub text()
Dim y%
Dim bname$, mypath$
Dim 区域
Dim wb As Workbook
'On Error GoTo 100
mypath = ThisWorkbook.Path & "\运营数据"
bname = "成功"
区域 = Array("玉州", "福绵")
Application.ScreenUpdating = False
For y = 0 To 1
    Set wb = CreateObject(mypath & "/" & 区域(y) & "_" & "运营数据.xlsx")
   wb.Sheets.Add.Name = bname
   wb.Close True
Next y
Application.ScreenUpdating = True
End Sub
运行后，到所在目录下双击打开"玉州_运营数据.xlsx"，发现根本没有窗口出现，但通过vba编辑窗口看见文件确实打开，新增工作表也完成，但问题是不能像平时有可视的excel窗口了。不知道怎么回事，请高手指点。

最佳答案

月排行榜 / 总排行榜

ghostjiao

2016-3-11 09:09

那是getobject  要增加一句windows

跳转到最佳答案楼层

爱疯

CreateObject 换为 workbooks.open

guanyan55

open已经打开了，网上查是要增加一句window的语句，貌似vba有点多此一举。

ghostjiao

那是getobject  要增加一句windows