使用Dim表和单元格的QueryTables目标

时间:2019-03-05 13:50:39

标签: 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:\Operations\001 Daily Management\PPL Check Report\FMSQRY.CSV" _
        , Destination:=rng)

我很清楚,通常我会使用:

Destination:=Worksheets("Data").Range("A:2")

但是当我尝试使用

Destination:=ws.rng我刚遇到方法错误

很显然,这是一个非常简单的问题,但目前正困扰着我

1 个答案:

答案 0 :(得分:2)

您在分配范围变量时使用工作表:

Set rng = ws.Cells(2, 1)