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

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

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

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

@Alex77755 · 17.11.2013, 19:09

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

Visual Basic

Dim F As Worksheet
Set F = Worksheets("Отчёт") '
Set F = Worksheets(1) '
Set F = Лист1 '

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

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

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

Visual Basic

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]

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

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

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

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

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 362
	17.11.2013, 19:59 [ТС]	7
	Сообщение от Hugo121 Set wb = Workbooks.Open(filename, False, True) По моему это не совсем то, что я хотел. Я хотел, чтобы при открытии книги переменной присваивалось имя этой же книги: wb=имя_книги.xls Добавлено через 18 минут Сам разобрался Set wb = Application.ActiveWorkbook 0

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

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 362
	17.11.2013, 20:45 [ТС]	11
	Сообщение от Hugo121 В чём принципиальная разница? Лист могут переименовать? Так могут же и передвинуть! В таком случае можно ли при загрузке книги запретить переименование и перемещение листов? 0

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

@ali_vlad 5 / 5 / 2 Регистрация: 21.07.2013 Сообщений: 362
	17.11.2013, 21:02 [ТС]	13
	Сообщение от Hugo121 При загрузке? Вы им запретите это делать до сохранения! Ну раз там такие тупые сотрудники, что просто сказать - не работает, то используйте кодовое имя листа - такой пример тоже выше уже упоминался. Только вот я бы не использовал Лист1 - это имя у меня на работе например превратится в Sheets1. Я бы дал листу своё имя, т.е. изменил родное на другое. В моей книге идет "онлайн" расчет, При работе на 1м листе идет выборка данных со 2-го и наоборот. Если в процессе работы переименовать или переместить листы, то это вызовет "kernel panic" . Вот бы запретить переименование и перемещение сразу после открытия. Как бы "защита от дурака". А как они называются - это не важно. Да и еще как запретить открывать другие книги при открытой этой? 0

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

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