Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос выбора файла через диалоговое окно - как сделать файл активным
 
#1
09.05.2021 20:22:42
Добрый день.
Мне надо открыть файл через диалоговое окно и сделать этот файл активным, чтобы выполнить дальнейшую обработку.
Вот код макроса, который запускает окно выбора файла, и открывает файл.
Однако при этом открытый файл не становиться активным, и дальше макрос не работает.
Как я понимаю, надо где-то сохранить имя открытого файла, и затем через Workbooks.Open Filename:= надо или открыть конкретный файл, или указать ячейку на листе, куда заносится имя открытого файла.
Так как имена файлов, которые будут открываться, постоянно меняются, то надо универсальное решение.
Заранее большое спасибо всем за помощь!


Код
Sub open_price()
    Dim OP As FileDialog
    Dim x, lf As Long
       Set OP = Application.FileDialog(msoFileDialogOpen)
    With OP
        .AllowMultiSelect = False
        .Title = "Выбрать файл прайса АЗБУКА"
        .Filters.Clear
        .InitialFileName = ""
        If OP.Show = 0 Then Exit Sub
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf)
            Workbooks.Open Filename:=x

            
        Next
    End With
    End Sub
 
 
 
#2
09.05.2021 21:25:07
пропишите дополнительно следующие две строчки в Вашем коде:
Код
x = Dir(x, vbNormal)
Workbooks(x).Activate
 
 
 
#3
09.05.2021 21:55:45
Спасибо большое!
Все работает.

Цитата
Владимир Баукин написал: пропишите... две строчки: 12x = Dir(x, vbNormal)    Workbooks(x).Activate
И еще вопрос, пока макрос работает, х — это имя открытого файла? И пока работает макрос, к открытому файлу можно обращаться по имени Х? Расширение не обязательно?
 
 
 
#4
09.05.2021 22:03:46
Цитата
karlson7 написал: Все работает.
получение правильного результата, не означает правильность кода
Код
Set WB=Workbooks.Open Filename:=x
WB.Activate

Это решит и второй вопрос, так как к книге можно обращаться по WB
Изменено: БМВ - 09.05.2021 22:08:38
По вопросам из тем форума, личку не читаю.
 
 
 
#5
09.05.2021 22:06:17
Цитата
БМВ написал:
получение правильного результата, не означает правильность кода
Понятно, спасибо
 
 
 
#6
09.05.2021 22:35:35
Цитата
karlson7 написал:
х — это имя открытого файла?
Да, пока макрос работает, эта переменная обозначает конкретное имя файла загруженной в приложение книги.
 
 
 
#7
10.05.2021 13:44:44
Ясно, спасибо
 
 
 
#8
10.05.2021 14:23:47
Цитата
БМВ написал:
Set WB=Workbooks.Open Filename:=x
Когда я добавляю эту строчку в код, то получаю сообщение "Syntax error"
 
 
 
#9
10.05.2021 14:35:20
А меня вот интересует, как можно открыть книгу методом Workbooks.Open, и не сделать ее активной?
 
 
 
#10
10.05.2021 14:41:36
Код
  Set WB = Workbooks.Open(Filename:=x)
Владимир
 
 
 
#11
10.05.2021 15:24:14
Спасибо, работает
 
 
 
Страницы: 1
Наверх