Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9

Ошибка Run time error '9':

20.08.2021, 23:19. Показов 1311. Ответов 15
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Просите за беспокойство, я начинающий.
Подскажите пожалуйста. Делаю так:
Visual Basic
1
2
3
4
5
6

Sub learning()
 
Workbooks("list1").Worksheets("1").Range("A3") = "Test"
 
 
End Sub
Пишет ошибку Run time error '9':
subscript out of range.

Название книги и листа сверил, пробовал на разных компьютерах, с разными книгами и листами - не помогло

Списибо
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 20.08.2021, 23:19
Ответы с готовыми решениями:

Ошибка run time error
Здравствуйте. Помогите пожалуйста, при запуске макроса выдает ошибку "Run-time error '-2147467259 (80004005)': Automation error ...

Ошибка Run-time error 76
Добрый день! У меня есть вот такой код для копирования файлов с одной папки в другую. Sub CopyReports() Dim aPath(), aErr() ...

Ошибка Run-time error ' 13'
Добрый день! Помогите, пожалуйста, исправить! Есть макрос и выдается ошибка.

15
Одесса - Украина
 Аватар для MikeVol
521 / 199 / 70
Регистрация: 01.04.2020
Сообщений: 615
21.08.2021, 03:45
Доброго времени суток. Наверное правильнее будет так:

Visual Basic
1
2
3

Sub Learning()       ' Запись в ячейку А3 в листе 1  
ThisWorkbook.Worksheets("Лист1").Range("A3") = "Test"
End Sub
Вы пытались получить доступ к рабочему листу, который не существует.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
21.08.2021, 09:14
Цитата Сообщение от MikeVol Посмотреть сообщение
Вы пытались получить доступ к рабочему листу, который не существует.
- или к рабочей книге, которая не существует/не открыта
0
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9
21.08.2021, 09:23  [ТС]
Все проверил. Вот скрин для наглядности
Миниатюры
Ошибка Run time error '9':  
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
21.08.2021, 09:40
Проверь, в "A3" буква А, часом, не русская?
0
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9
21.08.2021, 09:54  [ТС]
Проверил. Нет.

Добавлено через 11 минут
Вариант с ThisWorkbook работает, но я же хочу сослаться на конкретную книгу.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
21.08.2021, 09:56
ahilles13_88, попробуй

Visual Basic
1

       Application.Workbooks(...).
0
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9
21.08.2021, 10:03  [ТС]
Попробовал. Не помогло
Миниатюры
Ошибка Run time error '9':  
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4171 / 2457 / 511
Регистрация: 13.12.2016
Сообщений: 8,345
Записей в блоге: 5
21.08.2021, 10:04
ahilles13_88,имена все верные?
0
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9
21.08.2021, 10:15  [ТС]
Вот
Миниатюры
Ошибка Run time error '9':  
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
21.08.2021, 10:15
ahilles13_88, посмотри, какие книги доступны, выполнив этот код:

Visual Basic
1
2
3
4
5
6
7

Sub aaa()
 
    For Each wb In Application.Workbooks
        Debug.Print wb.Name
    Next
 
End Sub
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4171 / 2457 / 511
Регистрация: 13.12.2016
Сообщений: 8,345
Записей в блоге: 5
21.08.2021, 10:17
ahilles13_88, а вы компилировали? возможно ошибка вовсе не тут.
Я вижу, что файлов открыто несколько
0
Одесса - Украина
 Аватар для MikeVol
521 / 199 / 70
Регистрация: 01.04.2020
Сообщений: 615
21.08.2021, 12:12
Судя по скрину из #8 поста возможно у вас ошибка в название самой книги. В коде как будто вместо "list1" стоит 1(еденичка) в самом начале названия листа. Проверьте.
0
0 / 0 / 0
Регистрация: 20.08.2021
Сообщений: 9
21.08.2021, 12:59  [ТС]
Цитата Сообщение от АЕ Посмотреть сообщение
ahilles13_88, а вы компилировали? возможно ошибка вовсе не тут.
Я вижу, что файлов открыто несколько
Цитата Сообщение от АЕ Посмотреть сообщение
ahilles13_88, а вы компилировали? возможно ошибка вовсе не тут.
Я вижу, что файлов открыто несколько
Нет, я просто учусь и по ходу выполняю упражнения. В данном случае нужно прописать в конкретной книге листе ячейке слово "Test"

Добавлено через 7 минут
Цитата Сообщение от Catstail Посмотреть сообщение
ahilles13_88, посмотри, какие книги доступны, выполнив этот код:
Visual BasicВыделить код
1
2
3
4
5
6
7
Sub aaa()
For Each wb In Application.Workbooks
        Debug.Print wb.Name
    Next
End Sub
Выполнил ваш код, отобразилось название книги с расширением list.xlsm
Соответственно поменял у себя и всё заработало. Спасибо вам огромное!
Только не могу понять, это всегда книги нужно отображать с расширением?

Добавлено через 2 минуты
Option Explicit

Sub learning()

Workbooks("list.xlsm").Worksheets("131").Range("A3") = "Test"


End Sub
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38203 / 21135 / 4310
Регистрация: 12.02.2012
Сообщений: 34,741
Записей в блоге: 14
21.08.2021, 14:19
Цитата Сообщение от ahilles13_88 Посмотреть сообщение
Только не могу понять, это всегда книги нужно отображать с расширением?
- видимо это зависит от версии офиса
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
24.08.2021, 12:42
Это зависит от настройки системы "отображать расширения файлов" или типа того.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 24.08.2021, 12:42
Помогаю со студенческими работами здесь

Ошибка Run-time error '13'
При заполнении таблицы на 3-4 строке выскакивает вот это; 'общая стоимость Dim a As Currency a =...

Ошибка run time error 9
Помогите начинающему ,делаю курсовую,при выполнении выходит ошибка run time error 9 vba вот код макроса Sub prodaga_igr() Dim cena(5,...

Ошибка: Run-time error '5'
Доброго времени суток! Совсем недавно занялась изучением VBA и столкнулась с проблемой. Имеется программа: Function krug(x As Double)...

Ошибка run-time error 1004
Sub pract() korp = Val(InputBox("Введите номер столбца, где находятся адреса: ", "Столбец", 5)) Columns(korp + 1).Select ...

Ошибка 424 run-time error
Добрый день, написала макрос, все работало, потом открыла этот файл на компьютере с англ. версией Excel, когда снова открыла на компе с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
Новые блоги и статьи
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru