vba串口编程

⑴ 刚开始接触VBA开发，为什么我的没有串口通信控件

1. 开发环境，以你现在最常用的环境为好，三个选项中推荐OFFICE2007。

2. 串口通信控件显然是第三方的，在所有的电脑上需要安装后才能使用。

3. 电脑上的控件多少与操作系统及所安装软件的多少、种类相关，缺少的控件一般在需要时再进行安装。控件的安装有的是跟随应用程序直接安装，有的找到控件的文件（通常是DLL或OCX文件），使用regsrv32命令注册一下就可以了。
   

⑵ vba串口通讯实时接收

PrivateSubMSComm1_OnComm()
SelectCaseMSComm1.CommEvent
CasecomEvReceive'收到RThreshold#of
DimsAsString,s2AsString
s=MSComm1.Input
s2=Trim(s)'s2就是接受到的数据
CaseElse
EndSelect
EndSub

⑶ 用VBA可以进行串口通讯吗如果可以的话，该怎么实现，多谢大侠赐教！！

以两台PC机串行通信为例：

一.将两台PC机串行口的连接（如图）

2.VB编程：
'PC机串行口用命令按钮启动接收/发送VB程序

Private Sub Form_Load()
MSComm1.PortOpen = True '开启通信控件的端口
End Sub

'点击“发送”命令按钮发送数据
Private Sub Command1_Click()
MSComm1.Output = Text1.Text'将文本框Text1的数据发送至对方
End Sub

'点击“接收”命令按钮接收数据
Private Sub Command2_Click()
Dim st As String
st = MSComm1.Input
Text2.Text = st '将接收到的数据至入文本框Text2
End Sub

三.运行

⑷ VBA 串口通讯问题

1 mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。

1.1 通信方式

mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1、事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：
mscomm-er-break 收到1个break signal
mscomm-er-cdto cd 信号超时
……
mscomm-ev-cd cd信号改变
……
2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。

1.2 通信控件的属性

利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：

commport：设置或返回通信口编号。
settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。
portopen：设置或返回通信口状态（包括打开和关闭1个通信口）
……
3、 实例
本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。

本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。

2.1 窗体各控件初始化程序

设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。

sub form-load ()
mscomm1.commport=2 ’选用com2串行口
mscomm1.settings="9600，n8，1" ’波特率9600，无奇偶校验位，8位数据位1位停止位
mscomm1.inputlen=0 ’input将读取接收缓冲区的全部内容
mscomm1.inbuffersize=1024 ’设置接收缓冲区的字节长度
mscomm1.portopen=true ’打开通信口
mscomm1.inbuffercount=0 ’清除发送缓冲区数据
mscomm1.outbuffercount=0 ’清除接收缓冲区数据
periodic.inteval=100 ’设置ls定时间隔，使遥测命令每隔ls发送1次
nonperiodic.inteval=500 ’设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令
command-pressed=false ’命令按钮为未激活状态
ring- periodic=false ’周期性命令数据传输尚未开始
ring- nonperiodic=false ’非周期性命令数据传输尚未开始
end sub
2.2 非周期性命令发送程序

根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。
sub nonperiodic-command-click ()
command-pressed=true ’命令按钮激活
end sub

sub nonperiodic-timer ()

if ring- periodic=true or command-pressed=false

then exit sub ’若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。

command-pressed=false ’命令按钮恢复为未激活状态

call senddata (nonperiodic-command) ’发送非周期性命令

mscomm1.rthreshold=r-nonperiodic-byte’发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件

end sub

2.3 periodic定时器程序

在periodic定时器的中断程序中发送周期性命令：

sub periodic-timer ()

if ring- nonperiodic=true then exit sub ’若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。

ring-periodic=true ’设置周期性命令数据传输状态为正在进行中
call senddata (periodic-command) ’发送周期性命令
mscomm1.rthreshold=r-periodic-byte ’发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件
end sub
2.4 oncomm事件程序

根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
sub mscomm1-oncomm ()

select case mscomm1.commevent ’在此可插入处理各种不同错误或事件的代码

case mscomm-ev-receive

receivestring$=mscomm1.input

select case mscomm1.rthreshold
case r-periodic-byte ’周期性命令的应答数据

call disposedata(periodic-command) ’处理接收数据

ring periodic=false ’设置周期性命令数据传输状态为结束

case r-nonperiodic-byte ’非周期性命令的应答数据

call disposedata(nonperiodic-command) ’处理接收数据

ring-nonperiodic=false ’设置非周期性命令数据传输状态为结束

end select
end select
end sub

随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

⑸ 如何用VBA读取串口数据

MSComm控件提供了两种处理通信的方式：一种为事件驱动方式，该方式相当于一般程序设计中的中断方式。当串口发生事件或错误时，MSComm控件会产生OnComm事件，用户程序可以捕获该事件进行相应处理。另一种为查询方式，在用户程序中设计定时或不定时查询MSComm控件的某些属性是否发生变化，从而确定相应处理。在程序空闲时间较多时可以采用该方式。 常用属性和方法 利用MSComm控件实现计算机通信的关键是理解并正确设置MSComm控件众多属性和方法。以下是MSComm控件的常用属性和方法：
●Commport：设置或返回串口号。
●Settings：以字符串的形式设置或返回串口通信参数。
●Portopen：设置或返回串口状态。
●InputMode：设置或返回接收数据的类型。
●Inputlen：设置或返回一次从接收缓冲区中读取字节数。
●InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。
●InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。
●Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。
●OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。
●OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。
●Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。
●Rthreshold：该属性为一阀值。当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。用户可在OnComm事件处理程序中进行相应处理。若Rthreshold属性设置为0，则不产生OnComm事件。例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold设置为1。这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。
●Sthreshold：该属性亦为一阀值。当发送缓冲区中字符数小于该值时，MSComm控件设置Commevent属性为ComEvSend，并产生OnComm事件。若Sthreshold属性设置为0，则不产生OnComm事件。要特别注意的是仅当发送缓冲区中字符数小于该值的瞬间才产生OnComm事件，其后就不再产生OnComm事件。例如Sthreshold设置为3，仅当发送缓冲区中字符数从3降为2时，MSComm控件设置Commevent属性为ComEvSend，同时产生OnComm事件，如发送缓冲区中字符始终为2，则不会再产生OnComm事件。这就避免了发送缓冲区中数据未发送完就反复发生OnComm事件。
●CommEvent：这是一个非常重要的属性。该属性设计时无效，运行时只读。一旦串口发生通信事件或产生错误，依据产生的事件和错误，MSComm控件为CommEvent属性赋不同的代码，同时产生OnComm事件。用户程序就可在OnComm事件处理程序中针对不同的代码，进行相应的处理。 CommEvent通信事件代码 常数 含义
1 ComEvReceive 接受到Rthreshold个字符。该事件将持续产生，直到用Input属性从接受缓冲区中读取并删除字符。
2 ComEvSend 发送缓冲区中数据少于Sthreshold个，说明串口已经发送了一些数据，程序可以用Output属性继续发送数据。
3 ComEvCTS Clear To Send信号线状态发生变化。
4 ComEvDSR Data Set Ready信号线状态从1变到0。
5 ComEvCD Carrier Detect信号线状态发生变化。
6 ComEvRing 检测到振铃信号。
7 ComEvEOF 接受到文件结束符。
CommEvent通信错误代码 常数 含义
1001 ComEvntBreak 接受到一个中断信号。
1002 ComEvntCTSTO Clear To Send信号超时。
1003 ComEvntDSRTO Data Set Ready信号超时。
1004 ComEvntFrame 帧错误。
1006 ComEvntOverrun 串口超速。
1007 ComEvntCDTO 载波检测超时。
1008 ComEvntRxOver 接受缓冲区溢出，缓冲区中已没有空间。
1009 ComEvntRxParity 奇偶校验错。
1010 ComEvntTxFull 发送缓冲区溢出，缓冲区中已没有空间。
1011 ComEvntDCB 检索串口的设备控制块时发生错误。

⑹ 如何用VBA编写关于串口通讯的程序啊~~~

请参阅如下网址本人的答复:
http://..com/question/12535506.html
http://..com/question/12522809.html
http://..com/question/11725744.html
http://..com/question/11040704.html
http://..com/question/10941227.html

⑺ VBA 串口通讯

Dim RcvData$, aa$
Dim temp As Long
Private Sub Form_Load()
'
With MSC
.InputLen = 12
.InBufferSize = 1024
.RThreshold = 12
.CommPort = 5 '自己改 串口端口
.Settings = "9600,N,8,1" '自己改 端口设置
.InputMode = comInputModeBinary
End With
If Not MSC.PortOpen Then MSC.PortOpen = True
End Sub

Private Sub MSC_OnComm()
If MSC.CommEvent = comEvReceive Then
RcvData = MSC.Input

End If
End Sub
以上回答你满意么？

⑻ vba运行不出结果,vba怎么读取串口数据

在基于对话框的应用中加入一个MSComm控件非常简单。只需进行以下操作即可：
打开“Project->Add To Project->Components and Controls->Registered Activex Controls”（工程/部件/控件），然后选择控件：Microsoft Communication Control,version 6.0（Microsoft Comm Control 6.0）插入到当前的工程中。这样就将类 CMSComm 的相关文件 mscomm.cpp 和 mscomm.h 一并加入到了工程中。编程时只需将控件对话中的 MSComm 控件拖至你的应用对话框中就OK了。

⑼ 求大神教如何用VBA读取并发送串口数据 mscomm函数我知道，具体操作不太清楚。

Private Sub NETComm1_OnComm()
Dim t1 As Long, str1 As String
t1 = Timer
Select Case NETComm1.CommEvent
Case comEvReceive
Do
DoEvents
Loop While Timer - t1 < 1.5
com_String = NETComm1.InputData
stop '加上这句，当程序暂停时把鼠标指针放到com_String上看。
End Select
End Sub

⑽ 关于VBA和串口通信问题，MSCOMM32，请大家帮帮忙

什么 系统？

VBA 不是 office 里的VB 吗？