| 投稿日 | ： 2002/11/20(Wed) 08:50 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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)