Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 目标存储在变量而不是单元格中_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel 目标存储在变量而不是单元格中

Excel 目标存储在变量而不是单元格中

excel vba

Excel 目标存储在变量而不是单元格中,excel,vba,Excel,Vba,下面我的当前代码将站点字符串添加到工作表中，然后引用单元格以确定代码适用于哪个国家 是否可以只从查询中提取信息而不必将其添加到工作表中，以便稍后在代码中应用 因此，我可以直接将其输入“pc”以检查站点字符串，而不是“Destination:=Range”（“A2”）吗 Const SITE = "SELECT site_id FROM site WHERE category = 'ID001' " Set rs = conn.Execute(SITE) With ActiveShee

下面我的当前代码将站点字符串添加到工作表中，然后引用单元格以确定代码适用于哪个国家

是否可以只从查询中提取信息而不必将其添加到工作表中，以便稍后在代码中应用

因此，我可以直接将其输入“pc”以检查站点字符串，而不是“Destination:=Range”（“A2”）吗

    Const SITE = "SELECT site_id FROM site WHERE category = 'ID001' "

Set rs = conn.Execute(SITE)

With ActiveSheet.QueryTables.Add(Connection:=rs, Destination:=Range("A2"))
    .Refresh
End With

Range("A1").Select
Dim pc As String
    pc = Cells(2, 1)

If InStr(1, pc, "Z") = 1 Then
    pc = "NI"
ElseIf InStr(1, pc, "W") = 1 Then
    pc = "Wales"
ElseIf IsNumeric(Left(pc, 1)) Then
    pc = "Scotland"
Else
    pc = "England"
End If
似乎希望您的
pc
变量成为
记录集中
对象
rs
的第一个值。请直接尝试，不要使用任何
查询表
：


Set rs = conn.Execute(SITE)
Dim pc As String
pc = rs.Fields(0).Value



我对VBA有非常基本的了解，但我不想在单元格中输入查询值，然后检查并删除单元格。我只需要查询值，这样我就可以直接检查它，而无需创建工作表并引用工作表中的单元格。非常感谢