投稿日 | : 2002/11/19(Tue) 20:12 |
投稿者 | : sn |
Eメール | : |
URL | : |
タイトル | : バイナリデータをテキスト変換してExcelに代入する方法 |
VB初心者の者なのですが、デジタルマルチメータで測定した電圧値を、一定時間ごとにRS232Cを使ってデータを取得し、そのデータを逐次Excelに書き込みしたいと考えています。しかし、デジタルマルチメータからは、バイナリ形式でデータが送られてくるため、そのデータを直接セルに代入することができません。そこで、どのようにすれば、バイナリデータをテキストに変換しセルに値を代入することができるのでしょうか。ぜひご教授下さい。
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Dim Buffer As Variant
Buffer = ""
MSComm1.InputLen = 10
MSComm1.InputMode = comInputModeBinary
Buffer = MSComm1.Input
xlSheet.Cells(j, 2) = Buffer