跨工作簿录查改删数据

quqiyuan

分别写了4个模块，供参考。

除了查询模块对员工编号没要求外，其他的都最少有编号，请看源码吧

WANT-T

ado+sql，实现起来相对容易些

baofa2

SCWYZJ

quqiyuan 发表于 2024-5-3 14:48
分别写了4个模块，供参考。

除了查询模块对员工编号没要求外，其他的都最少有编号，请看源码吧

老师你们的代码都不错，录入查询都好，就是修改和删除不行。也许是我的要求没表达清楚。现在我已截图形式再描述一下，但愿老师能理解，并帮忙解答。谢谢（以员工编号为ID）

quqiyuan

增加了批量的三个模块。我测试是可以的，供你参考。单个的新增、修改、删除在第五行输入数据，主要是员工编号是关键字。后面的批量的几个也是员工编号是关键字

quqiyuan

新增刚刚修改了一下，如果员工编号已经在数据库里，就不增加的

1. Sub 新增()
   
2. Set sh1 = ThisWorkbook.Sheets("表2")
   
3.     If sh1.[d5] = "" Then Exit Sub
   
4. Application.DisplayAlerts = 0
   
5. f = ThisWorkbook.Path & "\数据.xls"
   
6. Set wb = Workbooks.Open(f, 0)
   
7. Set sht = wb.Sheets("表1")
   
8. Set d = CreateObject("scripting.dictionary")
   
9.     rr = sht.Cells(Rows.Count, 2).End(3).Row
   
10.     arr = sht.Range("b5:n" & rr)
    
11.     For i = 1 To UBound(arr)
    
12.         d(arr(i, 3)) = arr(i, 3)
    
13.     Next
    
14.     If Not d.exists(sh1.[d5].Value) Then
    
15.         sh1.Range("b5:n5").Copy sht.Range("b" & rr + 1)
    
16.         With sht.Range("b" & rr + 1).Resize(1, 13)
    
17.             .Font.Color = 1
    
18.             .HorizontalAlignment = xlCenter
    
19.             .VerticalAlignment = xlCenter
    
20.             .Font.Size = 10
    
21.             .Font.Bold = False
    
22.             .Borders.LineStyle = 1
    
23.         End With
    
24.     Else
    
25.         MsgBox "数据库已经有了，不需要加入！！"
    
26.     End If
    
27. wb.Save
    
28. wb.Close 0
    
29. Application.DisplayAlerts = 1
    
30. Beep
    
31. End Sub

复制代码

SCWYZJ

quqiyuan 发表于 2024-5-3 22:44
新增刚刚修改了一下，如果员工编号已经在数据库里，就不增加的

老师谢谢，新增，修改都可以。就是删除，我想的是只删除我选中的数据行（或选中的多个员工编号），不是所有的查询结果区域数据、能否麻烦老师，您再改改？谢谢

quqiyuan

SCWYZJ

谢谢老师，可以了！