Question

我有以下代码：

Private Sub CommandButton3_Click()
    Dim SPATH As String
    Dim myFileName As Variant

    If MsgBox("Some Question...", vbYesNo) = vbNo Then Exit Sub

'Used to open the VO2 report taken from the Metabolic Cart. Will close later
    myFileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xls*")
    If myFileName <> False Then
        Application.ScreenUpdating = True
        Workbooks.Open Filename:=myFileName
    End If

    MultiPage2.Value = 3

End Sub

它的工作是在用户窗体与当前绑定到的工作簿一起运行的同时，搜索并打开另一个Excel文件，可见= False：

Private Sub Workbook_Open()

    Application.ScreenUpdating = False

    ThisWorkbook.Application.Visible = False
    UserForm2.Show
    Windows(ThisWorkbook.Name).Visible = True
    Application.Visible = True
    Application.ScreenUpdating = True

End Sub

同样重要的一点：此用户表单的显示模式为True

当使用Excel 2016运行此程序时，它没有问题（即，我可以在用户窗体上使用refedit，而可见加载的Excel文件可以在其上使用它）。

在具有旧版Excel的工作计算机上，加载的Excel文件不可见（这意味着我无法使用用户窗体上的引用）。

有人知道会发生什么或有可能的解决方法吗？

早于Excel 2016的版本的GetOpenFilename行为不同

0 个答案: