资产盘点帐实相符的条码录入Excel方法

最新推荐文章于 2025-07-09 13:12:31 发布

原创最新推荐文章于 2025-07-09 13:12:31 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBA编写的简单程序，该程序用于通过读取条形码来更新Excel表格中的库存状态。程序通过打开一个包含条形码的TXT文件，并逐个读取条形码编号，然后在Excel中搜索匹配的条形码并标记其为“帐实相符”。此程序适用于小型仓库管理系统。

将用条码枪盘点的标签号码存入一个TXT文档，如1.txt，用Open input 方式打开，逐个标签进行扫描对照，将对应的那一个单元格进行标记。

Sub 盘点接入()
    Dim str As String, i As Integer
    Open "c:\1.txt" For Input As #1
    While Not EOF(1)
        Input #1, str
        For i = 3 To 3800
           If Cells(i, 1) = str Then
              Cells(i, 10).Value = "帐实相符"
           End If
        Next
        Debug.Print str
    Wend
    
    Close #1
End Sub