Присвоение переменной имени книги и листа

@ali_vlad · Регистрация: 21.07.2013

Студворк — интернет-сервис помощи студентам

Есть файл (Расчет.xls). В нем 3 листа(Лист1, Лист2, Лист3). Как при открытии файла присвоить переменной (F) имя файла и имя нужного листа для использования в range(F.cells(....))

@Alex77755 · 17.11.2013, 19:09

вариантов несколько. Некоторые из них?

Visual Basic
1
2
3
4
Dim F As Worksheet
Set F = Worksheets("Отчёт") '
Set F = Worksheets(1) '
Set F = Лист1 '

@ali_vlad · 17.11.2013, 19:11 **[ТС]**

Сообщение от Alex77755

вариантов несколько. Некоторые из них?

Visual Basic
1
2
3
4
Dim F As Worksheet
Set F = Worksheets("Отчёт") '
Set F = Worksheets(1) '
Set F = Лист1 '

Мне надо F=Файл("Расчет")+Worksheets("Лист1")' так можно?
На случай если открыты несколько файлов

@Hugo121 · 17.11.2013, 19:17

Так нельзя.
Так можно:

Visual Basic
1
set F=activeworkbook.Worksheets("Лист1")

@ali_vlad · 17.11.2013, 19:23 **[ТС]**

Сообщение от Hugo121

Так нельзя.
Так можно:

Visual Basic
1
set F=activeworkbook.Worksheets("Лист1")

А VBA не перепутает книги, например если открыто 2 файла и в каждом есть свой код на VBA

Добавлено через 4 минуты
Я хочу при открытии Расчет.xls через код присвоить переменной F=имя_файла+имя_листа

@Hugo121 · 17.11.2013, 19:23

Вопрос был "Как при открытии файла присвоить переменной" - так что смотрите сами не перепутайте

А вообще обычно делают так - при открытии присваивают переменной открываемую книгу. И в общем этой одной переменной далее можно и обойтись.
Но чтоб сократить код - можно например лист тоже загнать в переменную:

Visual Basic
1
2
Set wb = Workbooks.Open(filename, False, True)
set sh=wb.sheets("очень длинное название из 32 символов")

@ali_vlad · 17.11.2013, 19:59 **[ТС]**

Сообщение от Hugo121

Set wb = Workbooks.Open(filename, False, True)

По моему это не совсем то, что я хотел. Я хотел, чтобы при открытии книги переменной присваивалось имя этой же книги: wb=имя_книги.xls

Добавлено через 18 минут
Сам разобрался
Set wb = Application.ActiveWorkbook

@Hugo121 · 17.11.2013, 20:16

Ещё за час до того, как Вы разобрались, было написано:

Visual Basic
1
set F=activeworkbook.Worksheets("Лист1")

@ali_vlad · 17.11.2013, 20:22 **[ТС]**

В Вашем примере указывается непосредственно "Лист1". Я же хотел, чтобы VBA сам получал имя файла и имя листа и присваивал это переменной. Set F = Application.ActiveWorkbook.Sheets(1)

@Hugo121 · 17.11.2013, 20:34

В чём принципиальная разница? Лист могут переименовать? Так могут же и передвинуть!

@ali_vlad · 17.11.2013, 20:45 **[ТС]**

Сообщение от Hugo121

В чём принципиальная разница? Лист могут переименовать? Так могут же и передвинуть!

В таком случае можно ли при загрузке книги запретить переименование и перемещение листов?

@Hugo121 · 17.11.2013, 20:50

При загрузке? Вы им запретите это делать до сохранения!

Ну раз там такие тупые сотрудники, что просто сказать - не работает, то используйте кодовое имя листа - такой пример тоже выше уже упоминался.
Только вот я бы не использовал Лист1 - это имя у меня на работе например превратится в Sheets1. Я бы дал листу своё имя, т.е. изменил родное на другое.

@ali_vlad · 17.11.2013, 21:02 **[ТС]**

Сообщение от Hugo121

При загрузке? Вы им запретите это делать до сохранения!

Ну раз там такие тупые сотрудники, что просто сказать - не работает, то используйте кодовое имя листа - такой пример тоже выше уже упоминался.
Только вот я бы не использовал Лист1 - это имя у меня на работе например превратится в Sheets1. Я бы дал листу своё имя, т.е. изменил родное на другое.

В моей книге идет "онлайн" расчет, При работе на 1м листе идет выборка данных со 2-го и наоборот. Если в процессе работы переименовать или переместить листы, то это вызовет "kernel panic"

. Вот бы запретить переименование и перемещение сразу после открытия. Как бы "защита от дурака". А как они называются - это не важно. Да и еще как запретить открывать другие книги при открытой этой?

@Hugo121 · 17.11.2013, 21:11

Линейкой по пальцам. Думаю самое простое и надёжное

Вот это "сразу после открытия" как понимать? "Сразу" это сколько?
Вообще запретить можно защитой книги.
Запретить открывать другие думаю можно макросом - при открытии книг проверять - если открыта "эта", то новые закрывать. Но Ведь они могут быть открыты уже ранее...
В общем, я бы решал всё комплексно и как-то иначе что-ли... Увеличил например зарплату и уровень сотрудников

P.S. Вообще правильно написанному макросу другие книги не помеха.

@ali_vlad · 17.11.2013, 21:19 **[ТС]**

Сразу это Workbook_Open()
Мне до ПРАВИЛЬНОГО - как до Марса пешком

@Hugo121 · 17.11.2013, 21:22

Ну просто старайтесь нигде не использовать selection и activate - и уже будет намного надёжнее. И быстрее.
И вот эти объектные переменные - тоже хорошо.

@ali_vlad · 17.11.2013, 21:25 **[ТС]**

Как это правильно оформить
If IsNumeric(ячейка_в_которую_вводится_знач ение.Value) = False Then ячейка_в_которую_вводится_значение.Value = 0

@Hugo121 · 17.11.2013, 21:29

Visual Basic
1
If not IsNumeric(ячейка_в_которую_вводится_значение.Value) Then ячейка_в_которую_вводится_значение.Value = 0

Хотя и Ваш вариант рабочий, но я обычно пишу Not.

@ali_vlad · 17.11.2013, 21:38 **[ТС]**

Сообщение от Hugo121

Visual Basic
1
If not IsNumeric(ячейка_в_которую_вводится_значение.Value) Then ячейка_в_которую_вводится_значение.Value = 0

Хотя и Ваш вариант рабочий, но я обычно пишу Not.

Так на что заменить (ячейка_в_которую_вводится_значение)

@Hugo121 · 17.11.2013, 21:43

Я например так сделал:

Visual Basic
1
Set ячейка_в_которую_вводится_значение = [a1]

Хотя конечно сомнительно, что тут нужна переменная, но бывает что и нужна...

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363

	Присвоение переменной имени книги и листа 17.11.2013, 19:04. Показов 61366. Ответов 34 Метки нет (Все метки) Есть файл (Расчет.xls). В нем 3 листа(Лист1, Лист2, Лист3). Как при открытии файла присвоить переменной (F) имя файла и имя нужного листа для использования в range(F.cells(....)) 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	17.11.2013, 20:22 [ТС]
	В Вашем примере указывается непосредственно "Лист1". Я же хотел, чтобы VBA сам получал имя файла и имя листа и присваивал это переменной. Set F = Application.ActiveWorkbook.Sheets(1) 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.11.2013, 20:34
	В чём принципиальная разница? Лист могут переименовать? Так могут же и передвинуть! 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.11.2013, 20:50
	При загрузке? Вы им запретите это делать до сохранения! Ну раз там такие тупые сотрудники, что просто сказать - не работает, то используйте кодовое имя листа - такой пример тоже выше уже упоминался. Только вот я бы не использовал Лист1 - это имя у меня на работе например превратится в Sheets1. Я бы дал листу своё имя, т.е. изменил родное на другое. 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.11.2013, 21:11
	Линейкой по пальцам. Думаю самое простое и надёжное Вот это "сразу после открытия" как понимать? "Сразу" это сколько? Вообще запретить можно защитой книги. Запретить открывать другие думаю можно макросом - при открытии книг проверять - если открыта "эта", то новые закрывать. Но Ведь они могут быть открыты уже ранее... В общем, я бы решал всё комплексно и как-то иначе что-ли... Увеличил например зарплату и уровень сотрудников P.S. Вообще правильно написанному макросу другие книги не помеха. 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	17.11.2013, 21:19 [ТС]
	Сразу это Workbook_Open() Мне до ПРАВИЛЬНОГО - как до Марса пешком 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.11.2013, 21:22
	Ну просто старайтесь нигде не использовать selection и activate - и уже будет намного надёжнее. И быстрее. И вот эти объектные переменные - тоже хорошо. 0

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 363
	17.11.2013, 21:25 [ТС]
	Как это правильно оформить If IsNumeric(ячейка_в_которую_вводится_знач ение.Value) = False Then ячейка_в_которую_вводится_значение.Value = 0 0