Invalid procedure call or argument

@Matan! · Регистрация: 31.05.2013

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

Доброго времени суток всем

Есть такой скрипт:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Sub AutoForm()
 
' --------------
' Перенос ячеек
' --------------
    Range("A3").Cut Range("C2")
 
    Range("A23").Cut Range("D2")
    Range("C23:C42").Cut Range("D3")
 
    Range("A43").Cut Range("E2")
    Range("C43:C62").Cut Range("E3")
 
    Range("A63").Cut Range("F2")
    Range("C63:C82").Cut Range("F3")
 
    Range("A83").Cut Range("G2")
    Range("C83:C102").Cut Range("G3")
 
    Range("A103").Cut Range("H2")
    Range("C103:C122").Cut Range("H3")
 
    Range("A123").Cut Range("I2")
    Range("C123:C142").Cut Range("I3")
 
    Range("A143").Cut Range("J2")
    Range("C143:C162").Cut Range("J3")
 
    Range("A163").Cut Range("K2")
    Range("C163:C182").Cut Range("K3")
 
    Range("A183").Cut Range("L2")
    Range("C183:C202").Cut Range("L3")
 
    Range("A203").Cut Range("M2")
    Range("C203:C222").Cut Range("M3")
 
    Range("A223").Cut Range("N2")
    Range("C223:C242").Cut Range("N3")
 
    Range("A243").Cut Range("O2")
    Range("C243:C262").Cut Range("O3")
       
' ----------------------
' Перемещение диаграммы
' ----------------------
'    ActiveSheet.Shapes("Диаграмма 1").IncrementLeft 46.3636220472
'    ActiveSheet.Shapes("Диаграмма 1").IncrementTop 316.3636220472
    
' ---------------------
' Изменение значений X
' ---------------------
'ActiveSheet.ChartObjects("Диаграмма 1").Activate
 
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    ActiveChart.FullSeriesCollection(2).Select
    ActiveChart.FullSeriesCollection(2).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(3).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(4).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(5).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(6).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(7).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(8).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(9).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(10).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(11).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(12).XValues = "=Лист1!$B$3:$B$22"
    
' ----------------------------
' Удаление прежних значений X
' ----------------------------
    Range("B23:B252").Select
    Selection.ClearContents
    
' ----------------------------
' Удаление заливки
' ----------------------------
    Cells.Select
    Range("B23").Activate
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        
End Sub

Там, где кат-паст - я писал сам, а работу с графиком - через рекорд макрос.
При отладке спотыкается на строке

Visual Basic
1
ActiveSheet.ChartObjects("Диаграмма 1").Activate

с ошибкой
Run-time error '5': Invalid procedure call or argument

Ок, ординарной кавычкой закомментирую строки:

Visual Basic
1
2
    'ActiveSheet.ChartObjects("Диаграмма 1").Activate
    'ActiveChart.FullSeriesCollection(2).Select

Теперь код с графиком будет такой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
ActiveChart.FullSeriesCollection(2).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(3).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(4).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(5).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(6).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(7).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(8).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(9).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(10).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(11).XValues = "=Лист1!$B$3:$B$22"
    ActiveChart.FullSeriesCollection(12).XValues = "=Лист1!$B$3:$B$22"

Почему отладчик спотыкается на первой строке?
Ошибка Run-time error '91': Object variable or With block variable not set
Куда и какой With мне втыкнуть?

Добавлено через 1 минуту
А, да, версия Excel 2013

@КостяФедореев · 17.08.2020, 11:48

Matan!,

Visual Basic
1
Option Explicit

попробуйте в самое начало кода вставить и запустите
покажет где и какие переменные не заданы

@Matan! · 17.08.2020, 11:54 **[ТС]**

КостяФедореев, перед Sub?

passedbyz · 17.08.2020, 11:56

Сообщение от Matan!

перед Sub?

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

@Matan! · 17.08.2020, 11:56 **[ТС]**

Сообщение от КостяФедореев

покажет где и какие переменные не заданы

Ни простым запуском, ни запуском с отладкой эта опция ничего не показала. Просто текст ошибок, которые я приводил выше..

I can · 17.08.2020, 11:58

Сообщение от КостяФедореев

Option Explicit

В данном случае мало поможет. Скорее всего на активном листе нет Диаграмма 1

@Matan! · 17.08.2020, 12:01 **[ТС]**

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

Сам файл бы приложили с проблемой?

Файл с макросом или с данными?

Добавлено через 1 минуту
Я попробовал такое:
вместо

Visual Basic
1
ActiveSheet.ChartObjects("Диаграмма 1").Activate

пишу

Visual Basic
1
ActiveSheet.ChartObjects(1).Activate

получил такую ошибку:
Run-time error '1004': Application-defined or object-defined error

passedbyz · 17.08.2020, 12:02

Так сложно всё у нас? Упростите проблему до максимума (лишь бы она осталась), обезличте персональные данные...

@Matan! · 17.08.2020, 12:03 **[ТС]**

Да, должен был сказать раннее.
Макрос у меня написан в отдельном файле. В файле с данными я просто выбираю и запускаю макрос из другого файла.

Добавлено через 51 секунду

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

Упростите проблему до максимума (лишь бы она осталась), обезличте персональные данные.

Сейчас состряпаю файл, попробую на нём

@SlavaRus · 17.08.2020, 12:23

Возсожно проблема как раз в том, что макрос находится в другой книге.
В коде явно книга не указана, эксель берет активную в данный момент книгу.
Не факт что так задумано.
Попробуй явно указать книгу и лист, к которому идет обращение в коде.

@Matan! · 17.08.2020, 13:03 **[ТС]**

Пока экспериментировал, нашёл в чём проблема

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

Возсожно проблема как раз в том, что макрос находится в другой книге.

Именно

Я-то, наивный, искушённый всякими си-шарпами и прочим, думал, что достаточно вызвать метод, потому в файле с макросом диаграмму не создал.

Потом, когда создал, увидел, что всё равно данные из файла с макросом задействуются, хотя я вызываю макрос в другом файле.

Решил перемещением моего скрипта в PERSONAL.XLSB (Личная книга макросов).
Ну, и везде в коде позаменял "Диаграмма 1" на 1.
Всем спасибо за участие

Добавлено через 17 минут

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

В коде явно книга не указана, эксель берет активную в данный момент книгу.

Да, не указана, но ведь в данный момент времени активной может быть только одна книга?
Везде я обращаюсь к ActiveSheet.

@SlavaRus · 17.08.2020, 13:34

В vba необязательно должна быть активна книга, в которой нужно что-то изменить.
Для внесения изменений не нужны операторы select, activate. Главное правильно сослаться на нужный объект.
Книга, в которую вносится изменение должна быть открыта.

@Matan! · 17.08.2020, 13:51 **[ТС]**

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

Книга, в которую вносится изменение должна быть открыта.

Теперь понимаю - так как у меня макрос был записан в другой книге, то когда кликал по нему, активировалась эта самая другая книга.

passedbyz · 17.08.2020, 15:06

вот как раз тут и нужен OPTION EXPLICIT!
И объявление вовремя нужных листов и рэйнжев...

@Catstail · 17.08.2020, 15:20

А где вы его запускаете? В первой строке стоит Range("A3"), а на каком листе этот диапазон? Option Explicit - не о том.

Добавлено через 1 минуту

Сообщение от Matan!

искушённый всякими си-шарпами и прочим, думал, что достаточно вызвать метод,

- ха-ха! Вызвать метод какого объекта? Ошибка 91 - именно об этом и говорит...

passedbyz · 17.08.2020, 15:21

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

В первой строке стоит Range("A3"), а на каком листе этот диапазон?

на активном, тут как раз нет вопроса.

@Matan! · 17.08.2020, 15:49 **[ТС]**

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

Вызвать метод какого объекта? Ошибка 91 - именно об этом и говорит...

Хм..
Range() вроде эквивалентен .Range() или ActiveSheet.Range() .. Нет?

passedbyz · 17.08.2020, 16:57

Сообщение от Matan!

Range() вроде эквивалентен .Range() или ActiveSheet.Range() .. Нет?

Range() - это с активного листа или с того листа, где прописан код
.Range() - это про тот лист, где вы писали выше WITH SHEETS("ИМЯ_ЛИСТА")
ActiveSheet.Range() = ЭТО активный лист...

@Catstail · 17.08.2020, 18:01

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

на активном, тут как раз нет вопроса.

- добрый совет: в такие программы лист лучше передавать как параметр

Visual Basic
1
2
3
4
5
Sub .... (sh as WorkSheet,...)
 
   sh.Range(...)
 
End sub

А можно и Range передать. Тоже неплохо.

@anton-sf · 17.08.2020, 22:18

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

Range() - это с активного листа или с того листа, где прописан код
.Range() - это про тот лист, где вы писали выше WITH SHEETS("ИМЯ_ЛИСТА")
ActiveSheet.Range() = ЭТО активный лист...

добавлю

Range = ActiveBook.ActiveSheet.Range
.Range = вызовет ошибку если не в блоке With
ActiveSheet.Range = ActiveBook.ActiveSheet.Range

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	17.08.2020, 11:54 [ТС]
	КостяФедореев, перед Sub? 0

passedbyz Заблокирован
	17.08.2020, 12:02
	Так сложно всё у нас? Упростите проблему до максимума (лишь бы она осталась), обезличте персональные данные... 1

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	17.08.2020, 12:23
	Возсожно проблема как раз в том, что макрос находится в другой книге. В коде явно книга не указана, эксель берет активную в данный момент книгу. Не факт что так задумано. Попробуй явно указать книгу и лист, к которому идет обращение в коде. 1

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	17.08.2020, 13:34
	Сообщение было отмечено Catstail как решение Решение В vba необязательно должна быть активна книга, в которой нужно что-то изменить. Для внесения изменений не нужны операторы select, activate. Главное правильно сослаться на нужный объект. Книга, в которую вносится изменение должна быть открыта. 2

passedbyz Заблокирован
	17.08.2020, 15:06
	вот как раз тут и нужен OPTION EXPLICIT! И объявление вовремя нужных листов и рэйнжев... 0

Invalid procedure call or argument

Решение