Question

如何通过 Visual Basic 或 VBA 使用 ADOX 处理 Excel 数据

Answer 1

1.启动excel从：工具-->宏-->Visual Basic 编辑器,打开excel VBA。
2.在ThisWorkbook上右单击鼠标选择插入--用户窗体 。
3.单击一下插入的窗体，单击菜单上的--工具--附加控件--选择Microsoft Communications Control, version 6.0 。
4.在窗体上添加mscomm1,添加commandButton1 。
5.单串口机子，短接rs232的2脚和3脚，双串口机子用232线连接两个串口，注意2、3线交叉，这里以单串口短接举例。
6.复制以下代码到窗体里：
VB code
'VBA代码
Private Sub CommandButton1_Click()
MSComm1.Output = "BEG1END"
End Sub
Private Sub MSComm1_OnComm()
Dim t1 As Long, com_String As String
Static i As Integer
t1 = Timer
Select Case MSComm1.CommEvent
Case comEvReceive '收到 RThreshold定义的字符数1字节
MSComm1.RThreshold = 0