Question

我们每天都使用Excel存档输入前一天的数据。此Excel是自动进行的，因此我们在其他存档和公式中有大量数据。很好，这本书可以正常工作。今天，我介绍了新公式，该公式可以在另一个Excel中获取数据，但是我遇到了问题。通常，当您从另一个Excel中选择数据时，不需要同时打开两个数据。那不是我的情况。每天24小时都会使用我在其中提取数据的存档，这会给我带来麻烦。 Excel无法获取数据，它返回“ #VALUE！”。然后，当我打开收集数据的工作簿时，我尝试以后台只读模式打开此存档。我做了我的宏，这些宏打开了存档，并尝试使其不可见。现在，当我打开包含宏的主工作簿时，所有窗口都不可见。

我只想使第二本工作簿不可见，而当我关闭书本时再次使它可见。

这是我的代码：打开文件：

Private Sub Workbook_Open()
Dim wb As Workbook
Dim mine As ThisWorkbook


Set wb = Workbooks.Open("P:\L**\40 Estadística recepción\2019\Estadística de recepción 02.2019.xlsx")

wb.Application.ScreenUpdating = False
wb.Application.Visible = False

关闭文件：

   Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWb As Workbook

ThisWorkbook.Save
ThisWorkbook.Saved = True

Range("D2").Value = 33
Range("D3").Value = 13
With Workbooks.Open("P:\L*\1* Seguimiento indicadores\Actualizacion diaria de datos tablero\HojaDeDatosAnual.xlsx")
ActiveWorkbook.Save
ActiveWorkbook.Close



    For Each xWb In Application.Workbooks
    If Not xWb.ReadOnly Then
        xWb.Activate
        ActiveWindow.Visible = True
        xWb.Save
        End If
        Next
Workbooks("Estadística de recepción 02.2019.xlsx").Saved = True
ThisWorkbook.Saved = True
Application.Windows("Estadística de recepción 02.2019.xlsx").Visible = True

 Application.Windows("Estadística de recepción 02.2019.xlsx").Close
 ThisWorkbook.Save
ThisWorkbook.Saved = True
 End With


    End Sub

路径很好...

如何仅设置一个不可见的工作簿

0 个答案: