vb程序如何編寫 用掃碼槍每次掃的壹串字符如何自動保存在csv（或excel）中

掃碼槍產生的結果似乎是壹串文本加壹個回車

所以程序需要做的只是啟動時使焦點處在文本框中，然後文本框裏遇到回車就保存和清空就可以了(或者不清空，而是回車後接受第壹個字符時就清空)

vba寫的存在當前excel表格中的代碼，實際保存語句按需改寫即可

Private?Sub?TextBox1_KeyDown(ByVal?KeyCode?As?MSForms.ReturnInteger,?ByVal?Shift?As?Integer)

If?KeyCode?=?13?Then

bcr?=?True

Cells(Cells(Rows.Count,?1).End(xlUp).Row?+?1,?1)?=?TextBox1.Text

ElseIf?bcr?=?True?Then

bcr?=?False

TextBox1.Text?=?""

Else

End?If

End?Sub