请教如何使用VBA根据总表信息自动更新固定模板的去

luikias

各位前辈好
现在有个难题，需要将总表的全部履历，根据设备编号自动填入履历表格中，
怎么样实现一键全部生成？
请大家帮帮忙。

不知道为什么

http://club.excelhome.net/forum. ... ead&tid=1434535

可以参考这个链接，几乎一样，体力活，自己可以写的

iwangyi

Sub CC()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "SELECT distinct 部署名称,生产线名,工程名称,设备名称,设备编号 from [故障总表$]"
Set rs = cn.Execute(Sql)
Do Until rs.EOF
sqll = "select 故障编号,发生日,故障编号*0,设备停止类型,故障编号*0,故障编号*0 from [故障总表$] where 设备编号=" & rs.fields(4) & ""
n = [a65536].End(3).Row
a = rs.fields(0)
Cells(n - 1, 3) = rs.fields(0): Cells(n - 1, 7) = rs.fields(1): Cells(n - 1, 14) = rs.fields(2): Cells(n - 1, 18) = rs.fields(3): Cells(n - 1, 22) = rs.fields(4)
Range("a" & n + 1).CopyFromRecordset cn.Execute(sqll)
m = [a65536].End(3).Row
Range("a" & n).Offset(-1).Resize(2, 23).Copy Cells(m + 3, 1)
rs.movenext
Loop
End Sub

iwangyi

附件***********

iwangyi

楼主须注意
1.表格不规范，如须加工数据的表，尽量不要事并单元格
2.数据源表头含有换行等不可见字符，ADO+SQL是找不到这些字段名的
3.数据源表头不规范等换行不可见字符本想规范一下，楼主还把表头锁起来。
4.剩下没有处理的几个字段，呵呵，楼主自已规范处理吧。

luikias

iwangyi 发表于 2018-9-12 15:54
附件***********

感谢帮忙，
我看了下附件，一部分数据还是没有分出来，能不能与设备编号导出的单独1个工作表，不是全部都集中在1个表上

luikias

不知道为什么 发表于 2018-9-12 14:44
http://club.excelhome.net/forum.php?mod=viewthread&tid=1434535

可以参考这个链接，几乎一样，体力活 ...

感谢，由于我不会VBA，所以才发这个帖子来求助大家的。