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

    xiaoxiao2021-03-25  157

    将用条码枪盘点的标签号码存入一个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

    转载请注明原文地址: https://ju.6miu.com/read-17003.html

    最新回复(0)