自动更新库存【在zhaogang1960指导下解决】

lisan · 发表于 2011-1-9 09:57

如附件，问题：
根据销售表.xls的B列中的序列号，查找同文件夹中库存.xls中的D列：
若该序列号存在，则在库存.xls的G列自动填入当前日期，且在销售表.xls的C列填入已登记（直接保存库存.xls）。
若该序列号不存在，则在销售表.xls的C列填入库存不存在。
烦请高手指点，谢谢！

Desktop.rar (3.96 KB, 下载次数: 53)

最佳答案详见7楼。

[ 本帖最后由 lisan 于 2011-1-9 17:08 编辑 ]

lisan · 发表于 2011-1-9 11:08

顶上去再求赐教！

zhaogang1960 · 发表于 2011-1-9 12:56

如何实现自动更新库存删除转发返回 lisan
11-1-9 11:38
http://club.excelhome.net/thread-671024-1-1.html
又给您添麻烦了，谢谢您！

'引用Microsoft ActiveX Data Objects 2.x Library
Sub Macro1()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL$, arr, i&
arr = Range("b3:b" & [b65536].End(xlUp).Row)
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\库存.xls"
[b2].CurrentRegion.Offset(1, 1).ClearContents
For i = 1 To UBound(arr)
      SQL = "select * from [库存表$] where 序列号='" & arr(i, 1) & " '"
      Set rs = New ADODB.Recordset
      rs.Open SQL, cnn, 1, 3
      If rs.RecordCount Then
         SQL = "update [库存表$] set 销售日期 =#" & Date & "#  where 序列号='" & arr(i, 1) & " '"
         Set rs = cnn.Execute(SQL)
      Else
         Cells(i + 2, 3) = "库存不存在"
      End If
Next
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

lisan · 发表于 2011-1-9 15:36

不好意思，我实在是菜鸟，如何实现，能否给个附件？

zhaogang1960 · 发表于 2011-1-9 15:40

原帖由 lisan 于 2011-1-9 15:36 发表
不好意思，我实在是菜鸟，如何实现，能否给个附件？

Desktop.rar (9.16 KB, 下载次数: 81)

lisan · 发表于 2011-1-9 15:59

若该序列号存在，则在库存.xls的G列自动填入当前日期，且在销售表.xls的C列填入已登记。

若该序列号存在，能否在销售表.xls的C列再填入已登记？

zhaogang1960 · 发表于 2011-1-9 16:30

原帖由 lisan 于 2011-1-9 15:59 发表
若该序列号存在，则在库存.xls的G列自动填入当前日期，且在销售表.xls的C列填入已登记。

若该序列号存在，能否在销售表.xls的C列再填入已登记？

Sub Macro1()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL$, arr, i&
arr = Range("b3:b" & [b65536].End(xlUp).Row)
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\库存.xls"
[b2].CurrentRegion.Offset(1, 1).ClearContents
For i = 1 To UBound(arr)
      SQL = "select * from [库存表$] where 序列号='" & arr(i, 1) & " '"
      Set rs = New ADODB.Recordset
      rs.Open SQL, cnn, 1, 3
      If rs.RecordCount Then
         SQL = "update [库存表$] set 销售日期 =#" & Date & "#  where 序列号='" & arr(i, 1) & " '"
         Set rs = cnn.Execute(SQL)
         Cells(i + 2, 3) = "已登记"                '新加
      Else
         Cells(i + 2, 3) = "库存不存在"
      End If
Next
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

lisan · 发表于 2011-1-9 17:07

谢谢zhaogang1960老师！每次碰到问题都能在您的指导下迎刃而解！谢谢您！

		自动登录	找回密码
密码			免费注册

[已解决] 自动更新库存【在zhaogang1960指导下解决】