Set icnn = CreateObject("adodb.connection")
   icnn.Open "provider=microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0';data source=" & xjbook.FullName
xjbook.Sheets(1).Range("A2").CopyFromRecordset icnn.Execute(Sql)

提示“未找到提供程序。该程序可能未正确安装。”
是有什么没引用吗？