Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть файл Ексель скриптом формата vbs (Макросы/Sub)
Открыть файл Ексель скриптом формата vbs
Egider Дата: Пятница, 17.01.2020, 18:33 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Egider
Дата добавления - 17.01.2020 в 18:33
boa Дата: Суббота, 18.01.2020, 00:31 | Сообщение № 22
Группа: Друзья
Ранг: Ветеран
Сообщений: 543
Репутация: 166 ±
Замечаний: 0% ±

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

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




Сообщение отредактировал boa - Суббота, 18.01.2020, 00:46
 
Ответить
СообщениеEgider,
К макросу с открытием пароля добавлять открытие следующих листов.

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

Автор - boa
Дата добавления - 18.01.2020 в 00:31
Egider Дата: Суббота, 18.01.2020, 11:37 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Что-то не получается, не видит файла Тест01. Ошибка: Run-time trror '1004'
В макросе остановка на:
[vba]
Код
Set OpenBook = Application.Workbooks.Open(Filename:=sFileName, Password:="123")
[/vba]


Пенсионер
 
Ответить
СообщениеЧто-то не получается, не видит файла Тест01. Ошибка: Run-time trror '1004'
В макросе остановка на:
[vba]
Код
Set OpenBook = Application.Workbooks.Open(Filename:=sFileName, Password:="123")
[/vba]

Автор - Egider
Дата добавления - 18.01.2020 в 11:37
boa Дата: Суббота, 18.01.2020, 13:32 | Сообщение № 24
Группа: Друзья
Ранг: Ветеран
Сообщений: 543
Репутация: 166 ±
Замечаний: 0% ±

2013, 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,
Да, это я не проверил :(
поменяйте функцию
[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]

Автор - boa
Дата добавления - 18.01.2020 в 13:32
Egider Дата: Воскресенье, 19.01.2020, 09:25 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Egider
Дата добавления - 19.01.2020 в 09:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Открыть файл Ексель скриптом формата vbs (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!