В общем, решил автоматизировать обновление данных запросов PQ при изменении ячейки на листе. Ячейка R1C1 на Листе1 является выпадающим списком в диапазоне из таблицы на Листе2. Присвоил этой ячейке имя Folder. Создал скрипт vba такого содержания (для Листа1):
При таком синтаксисе при изменении моей ячейки (выборе любого значения из выпадающего списка) возникает ошибка Run-time error 1004: Method 'Range' of object '_Worksheet' failed. Если меняю номер ячейки на ее заранее установленное имя Folder:
Тогда при тех же манипуляциях вылезает ошибка Run-time error '9': Subscript out of range. Смотрел подобные задачи и у всех этот простой код работает. Но не у меня. В чем может быть дело?
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R1C1")) Is Nothing Then
ActiveWorkbook.Connections("Query - G_File").Refresh
End If
End Sub
|
При таком синтаксисе при изменении моей ячейки (выборе любого значения из выпадающего списка) возникает ошибка Run-time error 1004: Method 'Range' of object '_Worksheet' failed. Если меняю номер ячейки на ее заранее установленное имя Folder:
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Folder")) Is Nothing Then
ActiveWorkbook.Connections("Query - G_File").Refresh
End If
End Sub
|
Тогда при тех же манипуляциях вылезает ошибка Run-time error '9': Subscript out of range. Смотрел подобные задачи и у всех этот простой код работает. Но не у меня. В чем может быть дело?
Изменено: - 12.02.2026 09:54:57
