需引用microsoftactiveXDataObjects2.8library1.sql="select构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺from[参数$B2:K1916]where(大样代码='"&DYDH&"')and(内外框='WKXC')"