问题描述
我在笔记本上开这个的时候没问题,在公司电脑上开就出现标准表达方式中的数据类型不匹配。Sub取得客户()Application.ScreenUpdating=FalseSetconn=CreateObject("adodb.connection")conn.Open"provider=microsoft.jet.oledb.4.0;extendedproperties='excel8.0;imex=1';datasource="&ActiveWorkbook.FullName'hdr=noSheet4.Activatex=[E65536].End(3).Row+1Range("E"&x&":G5000").ClearContentsSql="selectdxkh,'未知'from(selectdistinct代销客户asdxkh,1asxhfrom[代销情况表$]where代销客户>''unionall"&_"select代销客户asdxkh,2asxhfrom[信息表$E1:E]where代销客户>'')groupbydxkhhavingsum(xh)=1"Range("E"&x).CopyFromRecordsetconn.Execute(Sql)Sheet11.Activateconn.CloseSetconn=NothingApplication.ScreenUpdating=TrueEndSubSub代销筛选客户()Application.ScreenUpdating=FalseSetconn=CreateObject("adodb.connection")conn.Open"provider=microsoft.jet.oledb.4.0;extendedproperties='excel8.0;imex=1';datasource="&ActiveWorkbook.FullName'hdr=noRange("AA2:AC500").ClearContentsSql="selecta.代销客户,b.代销地区from[代销情况表$]ainnerjoin[信息表$]bona.代销客户=b.代销客户where销售日期>=cdate('"&[I2]&"')and销售日期<=cdate('"&[K2]&"')groupbya.代销客户,b.代销地区"[AA2].CopyFromRecordsetconn.Execute(Sql)conn.CloseSetconn=NothingApplication.ScreenUpdating=TrueEndSub
解决方案
解决方案二:
有一行黄色的看不清楚是[AA2].CopyFromRecordsetconn.Execute(Sql)