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

@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]

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

Новые блоги и статьи Все статьи Все блоги /
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .

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

	Присвоение переменной имени книги и листа 17.11.2013, 19:04. Показов 60317. Ответов 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