不打开外部客户信息工作薄前提条件下，想用VBA把B3内容保存到外部工作薄客户信息

cqx888625

1. Sub 保存客户()
   
2. Dim i%
   
3. With Sheets("客户信息") '要保存的工作薄
   
4. Dim sht As Worksheet
   
5. Set sht = Worksheets("92") '提取信息的工作薄
   
6. i = .Range("A65536").End(xlUp).Row + 1
   
7. .Cells(i, 1) = sht.Range("B3")
   
8. End With
   
9. Set sht = Nothing
   
10. '删除重复项
    
11. Sheets("客户信息").Select
    
12. Columns("A:A").Select
    
13.     ActiveSheet.Range("$A$1:$A$65536").RemoveDuplicates Columns:=1, Header:=xlNo '自动保存
    
14. Sheets("92").Select '返回活动窗口
    
15. 
    
16. End Sub

复制代码

我改了好几次没改成，求高手

perfect131

上附件，可以不打开获取数据，不能写入数据
参考：
https://club.excelhome.net/forum ... 79&pid=11197330

cqx888625

perfect131 发表于 2023-3-25 11:30
上附件，可以不打开获取数据，不能写入数据
参考：
https://club.excelhome.net/forum.php?mod=redirect& ...

主要目的想做下拉列表数据用的，不能增加写入新数据，就没异议了
谢谢你的回复，还有高手帮忙吗？