Question

我在vba引用一个工作薄之前加上了application.screenupdating= false 后，那个文件我怎么打开都不显示！

这个是为什么，我试过用VBA,勇 application.screenupdating = true 后，双击打开还是不显示，
但是转到VBA界面里面却是显示打开的！！怎么办啊！！急！！！
Public Sub Workbook_Open()
Application.ScreenUpdating = False
Dim wb As Workbook, dd As Workbook
For Each wb In Workbooks
If wb.Name = "订单.xlsm" Then
Exit Sub
Else
ChDir "E:\Dropbox\生产数据"
Set dd = GetObject("E:\Dropbox\生产数据\订单.xlsm")
End If
Next
Application.ScreenUpdating = True
End Sub

Answer 1

application.screenupdating语句的作用只是在Excel的工作表里面数据发生变化后False禁止实时刷新，True为默认值表示实时更新数据。
与你显示没显示没有任何关系。
你需要检查的是你的代码中是如何引用工作簿的，是否使用了app.visible = false，诸如类似将visible这样的属性设置为False的语句。

建议你提供完整代码，以供大家分析！

追问

已经附上代码了，大神帮帮忙啊，，现在那个工作薄打开就看不到了。

我没用visible false之类的啊。。

追答

怪不得，你用的是GetObject，你在:

Set dd = GetObject("E:\Dropbox\生产数据\订单.xlsm")
这句代码后面加上 Windows(dd.Name).Visible = True试试，完整代码如下：

Public Sub Workbook_Open()
Application.ScreenUpdating = False
Dim wb As Workbook, dd As Workbook
    For Each wb In Workbooks
        If wb.Name = "订单.xlsm" Then
            Exit Sub
        Else
            ChDir "E:\Dropbox\生产数据"
            Set dd = GetObject("E:\Dropbox\生产数据\订单.xlsm")
                Windows(dd.Name).Visible = True
        End If
    Next
Application.ScreenUpdating = True
End Sub

追问

提示运行错误'9'
下标越界
你有QQ啊什么的吗？我想亲自请教你。。

追答

你的方法并不是唯一可用的方法，给你两个例子：

'·½·¨Ò»£ºÊµ¼ÊÉÏÎÒÃÇ¿ÉÒÔÖ±½ÓÀûÓÃWorkbooks.OpenÃüÁî´ò¿ª¹¤×÷²¾£¡
Public Sub Workbook1_Open()
    Application.ScreenUpdating = False
    Dim wb As Workbook, dd As Workbook
    For Each wb In Workbooks
        If wb.Name = "¶©µ¥.xlsm" Then Set dd = wb: GoTo ddOpened
    Next
    Set dd = Workbooks.Open("E:\Dropbox\Éú²úÊý¾Ý\¶©µ¥.xlsm")
ddOpened:
    Application.ScreenUpdating = True
End Sub

Public Sub Workbook2_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    Set wb = Workbooks("¶©µ¥.xlsm")   
    If Err.Number = 9 Then Set dd = Workbooks.Open("E:\Dropbox\Éú²úÊý¾Ý\¶©µ¥.xlsm")
    Application.ScreenUpdating = True
End Sub

晕死，全乱码。你下附件吧！我的QQ是:1346 7914

Answer 2

Exit Sub 前要加句 Application.ScreenUpdating = True ，跳出模块前应该还原屏幕刷新设置。

Answer 3

Set dd = GetObject("E:\Dropbox\生产数据\订单.xlsm")下面加句
dd.Windows(1).Visible = True

Answer 4

说明与这个设置无关