Как открыть и установить рабочую книгу в одном утверждении?

Question

Я хочу открыть файл, выбрав его в диалоговом окне и установив рабочую книгу.Выбор файла и сохранение его местоположения в wbCombinedName работает нормально.

Однако wbCombined не всегда устанавливается правильно.Например, если у меня есть файл, открытый и сохраненный, тогда запускаю марко, он не работает.Когда я снова открываю файл, он работает.Когда я проверяю переменную полного имени wbCombined, я полагаю, что задано имя последнего открытого файла.

Есть ли способ настроить приведенный ниже оператор Set или я должен включить проверку, чтобы увидеть, является ли рабочая книга, которая будет открыта?уже открытая рабочая тетрадь?Спасибо

Set FileO = Application.FileDialog(msoFileDialogFilePicker)
With FileO
        .AllowMultiSelect = False
        If .Show <> -1 Then GoTo NextCode1
        wbCombinedName = .SelectedItems(1)
End With

Set wbCombined = Workbooks.Open(Filename:=wbCombinedName, UpdateLinks:=0)

Answer 1

Function WORKBOOK_OPEN(strWorkbookname As String, _
                        Optional strCheckPath As String = "") As Boolean

Dim w As Excel.Workbook

For Each w In Workbooks

    If w.Name = strWorkbookname Then

        WORKBOOK_OPEN = True

        If strCheckPath <> "" Then
            WORKBOOK_OPEN = w.Path = strCheckPath
        End If

    End If

Next w

End Function