有没有大神帮忙解决一下这个难题

欧阳使者871118

如图表格通过日期调取供应商交期追踪表的数据，调取出来后，可能需要修改F-J列，可能是本身没内容添加内容，也可能是本身有内容修改内容，对应添加或者修改后保存数据回供应商交期追踪表，匹配条件可以用箱包号，因为箱包号是唯一的！

roych

按惯例，先贴代码。

1. Sub save_data()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim strSQL As String
   
4.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source='" & ThisWorkbook.FullName & "'"
   
5.     strSQL = "update [供应商交期追踪表$A2:P11] a inner join [按交期查询$A3:J11] b on a.箱包号=b.箱包号 " _
   
6.             & "set a.实际到货日期=b.实际到货日期,a.延误到货日=b.延误到货日,  a.其他备注=b.其他备注"
   
7.     cnn.Execute strSQL
   
8.     cnn.Close
   
9.     MsgBox "已完成，请及时保存结果"
   
10. End Sub

复制代码

附件如下：

欧阳使者871118

roych 发表于 2022-1-9 23:31
按惯例，先贴代码。
附件如下：

感谢大神，可以使用，但是有个问题，储存数据少是没问题，就是说三五行五六行的没问题
有时候存储数据多可能在三五十行的话 速度好慢，1分多钟才跳出来保存成功

roych

欧阳使者871118 发表于 2022-1-14 09:13
感谢大神，可以使用，但是有个问题，储存数据少是没问题，就是说三五行五六行的没问题
有时候存储数据多 ...

怎么说呢？excel本身就不是数据库啊。你指望它能有数据库的功能？没主键，没索引。。。。