Добрый день. Имеется макрос, который вызывает диалоговое окно открытия файла, из которого в дальнейшем будут ВПРится данные. Как можно сделать так, чтоб до открытия диалогового окна выполнялась проверка открыт или закрыт данный файл. Если он открыт, то сразу из него ВПРить, если закрыт, то вызвать окно открытия макроса.
Код |
---|
Sub VPR() FileOpen = Application.GetOpenFilename Workbooks.Open FileOpen FileName = ActiveWorkbook.Name Workbooks("qqqqqqq1.xlsm").Activate Range("B1").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-1]," & FileName & "!R1C1:R7C2,2,0)" End Sub |