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上有例子的。
網路上也有很多現成的代碼。