资产盘点帐实相符的条码录入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 #1End Sub