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

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

复制代码

附件如下：

roych

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

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