Извините мой второй пост на ту же тему.У меня есть некоторый код, написанный на VBA с использованием Excel 2016, который мне нужно перенести для поддержки по крайней мере Excel 2013.
Я написал, чтобы спросить, есть ли у кого-нибудь идеи о том, как перенести код - пока я жду ответа на этот вопрос., Я попытался установить надстройку Power Query, что было успешно выполнено, но код VBA по-прежнему выдает ошибку времени выполнения 438.
По умолчанию надстройка Power Query включена - я отмечаюФайл -> Параметры -> Надстройки COM, и запрос питания проверен.
Код, который я запускаю, таков:
For i = 1 To ActiveWorkbook.Queries.Count
If ActiveWorkbook.Queries.Item(i).Name = itemToMatch Then
ActiveWorkbook.Queries.Item(i).Delete
End If
Next
ActiveWorkbook.Queries.Add Name:=itemToMatch, Formula:=Formula
End Sub
Выдает ошибку в ActiveWorkbook.Queries.Count, который должен быть допустимым форматом?
Еще раз спасибо заранее.