Открыть файл Ексель скриптом формата vbs - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Открыть файл Ексель скриптом формата vbs (Макросы/Sub)

Открыть файл Ексель скриптом формата vbs

Egider

Дата: Пятница, 17.01.2020, 18:33 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

СПАСИБО БОЛЬШОЕ ВАМ. И извините за надоедливость. Разбираюсь. Пока пишет что не находит файл ПРОБА01.
Возможно будет проще воспользоваться объединением макросов. К макросу с открытием пароля добавлять открытие следующих листов.
Попробовал, вроде работает. Еще раз спасибо ВАМ.

Пенсионер

Ответить

boa

Дата: Суббота, 18.01.2020, 00:31 | Сообщение № 22

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

Egider,

Цитата Egider, 17.01.2020 в 18:33, в сообщении № 21 ()

К макросу с открытием пароля добавлять открытие следующих листов.

а я вам что написал?

Сообщение отредактировал boa - Суббота, 18.01.2020, 00:46

Ответить

Egider

Дата: Суббота, 18.01.2020, 11:37 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Что-то не получается, не видит файла Тест01. Ошибка: Run-time trror '1004'
В макросе остановка на:
[vba]

Код

Set OpenBook = Application.Workbooks.Open(Filename:=sFileName, Password:="123")

[/vba]

Пенсионер

Ответить

boa

Дата: Суббота, 18.01.2020, 13:32 | Сообщение № 24

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

Репутация: 167 ±

Замечаний: 0% ±

365

Egider,
Да, это я не проверил

поменяйте функцию
[vba]

Код

Function IfFileOpened(ByRef sFileName$) As Boolean
    Dim oWb As Workbook, sName$
    sName = Split(sFileName, PS)(UBound(Split(sFileName, PS)))
    For Each oWb In Workbooks
        If oWb.Name = sName Then IfFileOpened = True: sFileName = sName: Exit For
    Next
End Function

[/vba]

Ответить

Egider

Дата: Воскресенье, 19.01.2020, 09:25 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Работает как часы, большое СПАСИБО!!!

Пенсионер

Ответить

Открыть файл Ексель скриптом формата vbs (Макросы/Sub)

Страница 2 из 2
«
1
2