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

lisan

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

2011-1-9 09:57 上传

点击文件名下载附件

最佳答案详见7楼。

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

lisan

顶上去再求赐教！

zhaogang1960

如何实现自动更新库存删除转发返回   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

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

zhaogang1960

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

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

2011-1-9 15:40 上传

点击文件名下载附件

lisan

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

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

zhaogang1960

原帖由 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

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