如何把总表的信息自动填入另外一个工作簿中对应的各部门里面呢？谢谢

春天的棉花

就是两个工作簿，总表和部门表（部门表里面很多个sheet：各车间的名字），每次所有的证书到后，我需要把信息登记到“总表”，然后再把证书信息按车间复制粘贴到“各部门”里面，很麻烦，这两个表格的格式排列也不完全相同，但是关键字段相同， 有没有办法把总表信息自动登记到各部门呢，还有自动删除“各部门”有效期过期的整行信息，先谢谢大家了~

春天的棉花

谢谢

daphy123

没什么难度 只是你分部门表 与总表对应关系说清楚 哪些数据更新  你想以哪个数据当关键字找数据

半夏离落

1. Sub ChaiFen()
   
2. Dim i%, cnn As Object
   
3. Dim arr
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     On Error Resume Next
   
7.     MaxRow = ActiveSheet.UsedRange.Find("*", , , , , xlPrevious).Row
   
8.     Set cnn = CreateObject("adodb.connection")
   
9.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=YES;';Data Source=" & ThisWorkbook.FullName
   
10.     Sql = "select distinct 使用单位 from [201504$a4:k" & MaxRow & "]"
    
11.     arr = cnn.Execute(Sql).getrows
    
12.     Set f = Workbooks.Open(ThisWorkbook.Path & "\部门表.xls")
    
13.         For Each UseUnit In arr
    
14.             Sql = "select 序号,器具名称,规格型号,生产厂家,出厂编号,有效日期,检定周期,检定人,安装位置 from [201504$a4:k" & MaxRow & "] where 使用单位='" & UseUnit & "'"
    
15.                 With f
    
16.                     For Each sh In Worksheets
    
17.                         With sh
    
18.                             If sh.Name = UseUnit Then
    
19.                                 UnitMaxRow = .UsedRange.Find("*", , , , , xlPrevious).Row
    
20.                                 .Range("a3:i" & UnitMaxRow).ClearContents
    
21.                                 .Range("a3").CopyFromRecordset cnn.Execute(Sql)
    
22.                                 GoTo aa
    
23.                             End If
    
24.                         End With
    
25.                     Next
    
26.                 End With
    
27. aa:
    
28.         Next
    
29.     cnn.Close
    
30.     f.Close True
    
31.     Application.DisplayAlerts = True
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    

复制代码

说明和数据都很乱，不知道是不是你想要的。

半夏离落

请查看附件。

春天的棉花

半夏离落 发表于 2015-4-12 18:06
请查看附件。

谢谢你啦！  因为各车间的证书有很多种类  这次的总表只是其中台秤的总信息    你发的是我需要的 只是把各车间不过期的证书信息也替换掉了  还有出厂编号是文本的单元格 没法赋值到“各车间”是空白。。

春天的棉花

半夏离落 发表于 2015-4-12 18:06
请查看附件。

那个过期不过期是根据有效日期判断的

半夏离落

春天的棉花 发表于 2015-4-13 08:20
谢谢你啦！  因为各车间的证书有很多种类  这次的总表只是其中台秤的总信息    你发的是我需要的 只是把各 ...

如果你的是一个总表和分表的话，总表应该包含分表的数据，所以我把原来的数据清除再覆盖，不然每次都得判断这个数据是否已经导过去了，很明显现在你分表和总表对不上，如果你这样不规范的话，是很难去做限制的。

另外，你的有效日期我认为应该在总表里面删除，但是你分表的数据比总表还多。你也没有明确说明是删哪个，我没有做这个功能。

春天的棉花

明白你说的意思 总表确切的是“台秤的总表”，证书是隔一段时间来一批的，先统计这一次到的证书到“总表”，这个总表仅仅是这一次的新证书，然后把它分类到各车间，所以分表的类型更多证书更多。可能我表述不到位，不管怎样，百忙之中麻烦你帮忙，非常感谢~

春天的棉花

总表确切的说是新到证书的表，不一定替代“各车间”中的证书，有可能是新购仪器证书，也有可能是之前仪器重新检定，所以只要根据有效日期删除各车间到期证书信息，不用判断重复或者替代。