sql = "select f6,f2,f3,f4,f5,f7,f13,f24 -f25 from [sheet1$] where f24 -f25(f13<>'C3' or f13 is null)" Set yy = x.Execute(sql) Range("a:h").ClearContents Range("a1:h1") = Array("编号", "品名", ...
赵余的博客这是代码:Sub Excel_QueryTable()Sheet2.Cells.ClearContentsDim oCn As ADODB.ConnectionDim oRS As ADODB.RecordsetDim ConnString As StringDim SQL As StringDim qt As QueryTableConnStrin...