Страницы: 1
RSS
Выполнение действий относительно названия файла
 
Добрый день! Подскажите пожалуйста, может ли excel считывать название обрабатываемого файла и относительно него выполнять действия?
Например если файл называется Иван, то удалить первую строку, иначе удалить вторую строку. Возможно ли такое?
 
Можно как-то так:
Код
Private Sub Workbook_Open()
    If InStr(1, ThisWorkbook.Name, "Иван") > 0 Then
        ActiveSheet.Range("A1") = "Иван тут"
    End If
End Sub

Код в модуль книги. Книгу сохранить либо в двоичном, либо с поддержкой макросов. А потом открыть.

З.Ы. Да, книгу обозвать "Иван" надо для получения зримого результата работы :)
Изменено: Пытливый - 17.03.2020 17:36:56
Кому решение нужно - тот пример и рисует.
Страницы: 1
Наверх