Office中国论坛/Access中国论坛

标题: 有没有大神帮忙解决一下这个难题 [打印本页]

作者: 欧阳使者871118 时间: 2021-12-25 15:35
标题: 有没有大神帮忙解决一下这个难题
[attach]64236[/attach]如图表格通过日期调取供应商交期追踪表的数据，调取出来后，可能需要修改F-J列，可能是本身没内容添加内容，也可能是本身有内容修改内容，对应添加或者修改后保存数据回供应商交期追踪表，匹配条件可以用箱包号，因为箱包号是唯一的！

[attach]64235[/attach]

作者: roych 时间: 2022-1-9 23:31
按惯例，先贴代码。

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

复制代码

附件如下：
[attach]64244[/attach]

作者: 欧阳使者871118 时间: 2022-1-14 09:13

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

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

作者: roych 时间: 2022-2-18 00:01

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)