Овај водич ће показати како да добијете и поставите назив радне свеске у ВБА.
Можемо да добијемо или подесимо име активне радне свеске у ВБА или да прођемо кроз све отворене радне свеске у Екцелу и да добијемо или подесимо име сваке од њих помоћу ВБА петље.
Добијте назив радне свеске
Да бисмо добили име активне радне свеске, морамо да користимо својство наме објекта радних књига.
| 12345 | Под ГетВоркбоокНаме ()Дим стрВБНаме Ас СтрингстрВБНаме = АцтивеВоркбоок.НамеМсгБок стрВБНамеЕнд Суб |
Ако бисмо покренули горњи код, видели бисмо оквир за поруку на екрану са именом активне радне свеске.
Да бисмо прошли кроз све активне радне свеске и вратили називе радних свезака у Екцел, можемо покренути следећи код:
| 1234567 | Под ГетВоркбоокНамес ()Дим вб Као радна свескаЗа сваку вб у радним свескамаАцтивеЦелл = вб.НамеАцтивеЦелл.Оффсет (1, 0) .ОдаберитеСледећиЕнд Суб |
Горе наведени примери ће укључивати проширење датотеке (нпр. Кслск). Ако не желите да укључите екстензију, постоји неколико метода које можемо користити да добијемо само назив датотеке радне свеске.
Набавите назив радне свеске без проширења
Можемо користити функције ЛЕФТ и ИНСТР за уклањање свих знакова након тачке у називу датотеке:
| 12345 | Под ГетВоркбоокНаме ()Дим стрВБНаме Ас СтрингстрВБНаме = Лево (АцтивеВоркбоок.Наме, ИнСтр (АцтивеВоркбоок.Наме, ".") - 1)МсгБок стрВБНамеЕнд Суб |
Можемо користити функције ЛЕФТ и ЛЕН да уклонимо 5 знакова са краја имена датотеке:
| 12345 | Под ГетВоркбоокНаме ()Дим стрВБНаме Ас СтрингстрВБНаме = Лево (АцтивеВоркбоок.Наме, Лен (АцтивеВоркбоок.Наме) - 55)МсгБок стрВБНамеЕнд Суб |
Постављање назива радне свеске
Да бисмо поставили име радне свеске у ВБА, и даље користимо својство Наме радне свеске, међутим не можемо да користимо овај метод за промену имена активне радне свеске. То је због чињенице да је активна радна свеска отворена и доћи ће до грешке у приступу датотеци. Да бисмо то превазишли, можемо сачувати датотеку са новим именом, а затим избрисати стару датотеку.
| 12345678910 | Публиц Суб СетВоркбоокНаме ()Дим стрПатх Ас СтрингДим стрНевНаме Ас СтрингДим стрОлдНаме Ас СтрингстрОлдНаме = Име активне радне свескестрНевНаме = ИнпутБок ("Молимо унесите ново име за радну свеску")стрПатх = АцтивеВоркбоок.ПатхАцтивеВоркбоок.СавеАс стрПатх & "/" & стрНевНамеУбијте стрПатх & "/" & стрОлдНамеЕнд Суб |
Да бисмо преименовали радну свеску која није отворена, можемо користити методу Наме.
| 123 | Публиц Суб РенамеВоркбоок ()Назив "Ц: \ Дата \ МиФиле.клск" Као "Ц: \ Дата \ МиНевФиле.клск"Енд Суб |
