Добрый день. Имеется макрос, который вызывает диалоговое окно открытия файла, из которого в дальнейшем будут ВПРится данные. Как можно сделать так, чтоб до открытия диалогового окна выполнялась проверка открыт или закрыт данный файл. Если он открыт, то сразу из него ВПРить, если закрыт, то вызвать окно открытия макроса.
Код |
---|
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
|