请教Getobject函数

qwert40

　　　《别怕，Excel　vba其实很简单》１９７面有一个汇总同文件夹下不同工作簿数据的程序，该程序使用了一个Getobject函数，我运行该程序后，工作簿里的工作表并没有被隐藏，但是我运行下面的程序后，因为使用了Getobject函数，工作簿的工作表就被隐藏掉了，并且是有时会被隐藏，有时又不会（隐藏后我重新建工作簿再试），请教一下这是什么原因，谢谢帮助！程序如下：Sub 学习getobject函数()

'激活工作簿并新增工作表

    Dim w As Workbook, sht As Worksheet, i As Long, f As String, l As String, m As String, a As Range, _
        b As Range, n As String
    f = "C:\Documents and Settings\Administrator\桌面\学习ＶＢＡ\学习新建工作簿"
    l = f & "\绩效表.xlsx"

    '获得工作簿名称
    m = Dir(l)

    n = f & "\" & m

    '激活待复制工作簿
    Set w = GetObject(n)

    '添加工作表
    Workbooks(m).Worksheets.Add after:=Workbooks(m).Worksheets(Workbooks(m).Worksheets.count)
    Workbooks(m).Close True
End Sub

qwert40

哪位大侠能指点一下，是什么原因有时会隐藏，有时又不会，谢谢！

闻启学

真巧合我曾经提问过


关于Getobject 问题
http://club.excelhome.net/thread-1037713-1-1.html

这个帖子可以帮助你

ydlpc

qwert40 发表于 2014-9-20 09:27
哪位大侠能指点一下，是什么原因有时会隐藏，有时又不会，谢谢！

Workbooks(m).Close True  会隐藏
Workbooks(m).Close false     不会
可以加一条   Windows(ThisWorkbook.Name).Visible = True ，就都不会隐藏了