Question

在Vba中运行SQL，它正常运行，一切正常，但我想添加多个“With”，如下图所示，有人可以解释一下吗？我试过谷歌搜索但我似乎无法找到我的答案或是否有另一种方法来做到这一点？

我想从单元格A3添加“Postnr”，从单元格A5添加“Ordrenr”，从单元格A7添加“Sendersref”。

还是可以从excel细胞中获取列表？喜欢来自Cell A2的Postnr（tabel）和来自Cell A3的Value？（将是最好的解决方案）。

...
sSQL = "SELECT top 1 *" & _   
        " FROM tklient" & _    
        " WHERE klient = ?;"    
Set rDest = Sheets("Sheet1").Range("B2")

Set qt = rDest.Parent.ListObjects.Add(SourceType:=xlSrcExternal, _   
    Source:=Array(Sconnect), Destination:=rDest).QueryTable

**With qt.Parameters.Add("klient", xlParamTypeVarChar)    
    .SetParam xlRange, Sheets("Sheet1").Range("A1")    
    .RefreshOnChange = True    
End With**    
With qt    
    .CommandText = sSQL   
    .CommandType = xlCmdSql   
    .AdjustColumnWidth = True  
    .BackgroundQuery = False   
       .Refresh   
End With

Set qt = Nothing   
Set rDest = Nothing   
End Sub

使用VBA添加多个单元？

0 个答案: