Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA. Открыть лист по текущей дате
 
#1
18.08.2017 14:25:42
Всем добрый день！Очень прошу вашей помощи в написании кода. Есть книга Эксель, с листами, которые называются, соответственно названиям месяцев: ЯНВ, ФЕВ, МАР, АПР и т.д. Нужно, чтобы VBA опрелял текущий месяц и открывал нужный лист, соответствующий этому месяцу.
Заранее спасибо за помощь！
 
 
 
#2
18.08.2017 14:28:05
Цитата
Есть книга Эксель, с листами
А у нас их нет
 
 
 
#3
18.08.2017 14:29:53
Как вариант
Код
dim dt as string
dt = format(Now(), "mmm")

dt = switch( dt = "Январь", "ЯНВ", dt = "Февраль", "ФЕВ" и т.п. и т.д.)
 
 
 
#4
18.08.2017 14:31:46
Lex4990,
А, если, какого-то листа не будет в книге?
 
 
 
#5
18.08.2017 14:36:08
Автор просил открывать лист по дате, а не проверять есть ли он.
Но пусть я и не делал этого, в теории можно перебирать коллекцию листов циклом и проверять есть ли лист с искомым названием.  
 
 
 
#6
18.08.2017 15:39:22
Lex4990, спасибо большое, что откликнулись! Но, к сожалению, макрос не сработал.
Возможно я не достаточно четко указала, что именно я хочу получить на выходе. Из рабочего файла я запускаю макрос на открытие другой книги с данными, где и находятся листы, именованные как месяцы: ЯНВ, ФЕВ, МАР, ... НОЯ, ДЕК.  Нужно, чтобы эта книга открылась именно на актуальном листе. То есть, сейсас август, значит она должна открыть лист АВГ. А дальше уже идет следующи цикл операций по копированию информации с этого листа.
Вот начало кода, который мне удалось написать:
Код
Sub OpenF()
Dim a As String 'путь к родительской папке
Dim b As String 'путь к папке, где находится файл
Dim c As String 'имя файла, который нужно открыть

a = Sheets("Адрес").Range("B1") 'указываем значение переменной а, которое является путем к родительской папке
b = Sheets("Адрес").Range("B2") 'указываем значение переменной b, которое является путем к папке, где находится файл
c = Sheets("Адрес").Range("B3") 'указываем значение переменной c, которое является названием файла

Application.Workbooks.Open a & b & c 'открываем файл

End Sub
Изменено: Gina - 18.08.2017 15:39:53
 
 
 
#7
18.08.2017 15:43:53
Код
Sub OpenF()
Dim a As String 'путь к родительской папке
Dim b As String 'путь к папке, где находится файл
Dim c As String 'имя файла, который нужно открыть
Dim dt as string
 
a = Sheets("Адрес").Range("B1") 'указываем значение переменной а, которое является путем к родительской папке
b = Sheets("Адрес").Range("B2") 'указываем значение переменной b, которое является путем к папке, где находится файл
c = Sheets("Адрес").Range("B3") 'указываем значение переменной c, которое является названием файла

dt = format(Now(), "mmm")
dt = switch( dt = "Январь", "ЯНВ", dt = "Февраль", "ФЕВ" и т.п. и т.д.)
 
Application.Workbooks.Open a & b & c 'открываем файл
Sheets(dt).Activate
 
End Sub
Изменено: Lex4990 - 18.08.2017 15:44:11
 
 
 
#8
18.08.2017 17:01:38
Lex4990, к сожалению, выдается ошибка "Run time error '94': Invalid use of Null" на этапе после выполнения этой строки:
Код
dt = switch( dt = "Январь.....
и перед выполнением следующей:
Код
Application.Workbooks.Open a & b &
 
 
 
#9
19.04.2018 13:50:08
Здравствуйте! У меня похожая ситуация, Листы в книге названы по месяцам, можно ли сделать так что бы при открытии книги открывался лист с актуальным месяцем!?  
 
 
 
#10
19.04.2018 17:29:46
И ни одного файла-примера....
Код
Private Sub Workbook_Open()
On Error Resume Next
Sheets(Left(MonthName(Month(Now)), 3)).Activate
End Sub
 
 
 
#11
19.04.2018 19:04:59
Если листы  отсортированы по месяцам то можно так
Код
dt = Format(Now(), "m")
dt = dt * 1
Worksheets(dt).Select
Изменено: skiv17 - 19.04.2018 19:05:16
 
 
 
#12
19.04.2018 19:55:47
Цитата
Алексей Афанфсьев написал:
актуальным месяцем!?
Просто любопытство заело, а не актуальный это как?
По вопросам из тем форума, личку не читаю.
 
 
 
#13
20.04.2018 10:26:19
Цитата
БМВ написал:
а не актуальный это как?
Лист другого месяца.
 
 
 
#14
20.04.2018 10:30:40
Цитата
skiv17 написал:
Если листы  отсортированы
А что значит отсортированы? Вы имеете ввиду название листов?
 
 
 
#15
20.04.2018 10:36:58
Алексей Афанфсьев, Я чуть глумлюсь, но точность формулировки порой сильно влияет на результат. Другой месяц по отношению к чему? Если к текущему, то и надо называть не актуальный, а текущим. Actual конечно имеет синоним Current, но всеж тяготеет к Real.  
По вопросам из тем форума, личку не читаю.
 
 
 
#16
20.04.2018 10:43:11
Вот файл в котором бы хотелось реализовать данную функцию! Если можно подробно объясните дилетанту как это сделать :oops:  
Изменено: Алексей Афанфсьев - 20.04.2018 10:44:57
 
 
 
#17
20.04.2018 10:49:45
Цитата
БМВ написал:
Если к текущему, то и надо называть не актуальный, а текущим
Согласен:), неправильно выразился)))
 
 
 
#18
20.04.2018 10:59:49
Алексей Афанфсьев,
 
 
 
#19
20.04.2018 12:10:34
Если не трудно объясните как это сделано, потому что мне это нужно реализовать в боевом графике!
 
 
 
#20
20.04.2018 12:17:03
Уважаемый Алексей Афанфсьев,

Anchoret, написал корректное и простое решение:

Чем оно Вам не подходит?
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
 
 
 
#21
20.04.2018 12:19:40
Цитата
ProFessor написал:
Чем оно Вам не подходит?
Я не понимаю как это сделать, куда и как записать скрипт!
Изменено: Алексей Афанфсьев - 20.04.2018 12:20:09
 
 
 
#22
20.04.2018 12:34:34
Код
Private Sub Workbook_Open()
   thisworkbook.Sheets(MonthName(Month(Now))).Activate
End Sub


1) Нажмите alt+11
2) Скопируйте это в "ЭтаКнига"
3) Нажмите ctrl + s

P.S. Решение - Anchoret,  я всего лишь доработал
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
 
 
 
#23
20.04.2018 12:39:31
Цитата
ProFessor написал:
2) Скопируйте это в "ЭтаКнига"
Открылось просто серое окно, не понял куда нужно скопировать?
 
 
 
#24
20.04.2018 14:01:23
См. скриншот
Двойной клик на "Эта книга"
И вставьте туда
Вся проблема сложных программ, целых томов кодов и состоит в несоблюдении принципа лезвия Оккама: «Не следует множить сущее без необходимости». Вся гениальность в простоте.
 
 
 
#25
03.05.2018 10:49:34
Цитата
ProFessor написал:
Двойной клик на "Эта книга" И вставьте туда
Я что то делаю не так? Или разные версии?
 
 
 
#26
03.05.2018 10:52:41
Вызов окна проектов
Ctrl+R
 
 
 
#27
03.05.2018 10:54:32
Ctrl+R
По вопросам из тем форума, личку не читаю.
 
 
 
#28
03.05.2018 11:15:56
Спасибо всем огромное, все получилось, все заработало!  :)  
 
 
 
Страницы: 1
Читают тему
Наверх