#excel #vba
#excel #vba
Вопрос:
Я пытаюсь исключить использование Select
в моем скрипте. У меня нет проблем с большинством проблем, но QueryTables
меня ставит в тупик
Вот мой текущий код
Dim ws As Worksheet
Dim rng As Range
Set ws = Worksheets("Data")
Set rng = Cells(2, 1)
With ActiveSheet.QueryTables.Add _
(Connection:="TEXT;N:Operations01 Daily ManagementPPL Check ReportFMSQRY.CSV" _
, Destination:=rng)
Я хорошо знаю, что обычно я бы использовал:
Destination:=Worksheets("Data").Range("A:2")
но когда я пытаюсь использовать
Destination:=ws.rng
Я просто получаю ошибку метода
Очевидно, что это очень простая проблема, но в настоящее время это происходит прямо у меня над головой
Ответ №1:
Вы используете рабочий лист при назначении переменной диапазона:
Set rng = ws.Cells(2, 1)
Комментарии:
1. Да, полностью пропустил это… Изменение
With ActiveSheet.QueryTables
наWith ws.QueryTables
также исправит следующую ошибку