Назначение таблиц запросов с использованием затемненного листа и ячейки

#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 также исправит следующую ошибку