[リストへもどる]
一括表示

投稿時間: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

投稿時間:2002/11/20(Wed) 08:50
投稿者名:A221
Eメール:
URL :
タイトル:
Re: バイナリデータをテキスト変換して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

これでできませんか?
         xlSheet.Cells(j, 2) = StrConv(Buffer,VbUnicode)