vba单片机串口

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

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

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

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

② 如何用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读取并发送串口数据 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 吗？

⑤ 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串口通讯实时接收

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

⑦ 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可以进行串口通讯吗如果可以的话，该怎么实现，多谢大侠赐教！！

以两台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.i

⑩ 如何用VBA读取串口数据

不知道VBA是否能胜任,VB的代码到是不少,网上随便找找VB传口编程很多的。然后VB调用EXCEL
微软MSDN上有例子的。
网络上也有很多现成的代码。