Question

用vb编程，怎么从excel或txt（有n行6列）中取其中一列数据，要一个一个的取，小弟菜鸟，望大虾指教

取数据的时间间隔可以设定

Answer 1

Private Sub ComSend1_Click()
Dim fs As Variant
Dim a As String Dim i As Long
Dim filepath As String Dim m
filepath = App.Path & "\abc.txt" '文本文档名称为 123.txt
Open filepath For Input As #1

Line Input #1, a

Close #1
m = Split(a, ",")

If UBound(m) = 0 Then
Exit Sub '如果发送数据为空则退出过程
ElseIf MSComm1.PortOpen = False Then
MsgBox "串口未打开！", 64, "提示"
Exit Sub
End If

MSComm1.Settings = com_setting fs = Replace(TextSend.Text, " ", "")
For i = LBound(m) To UBound(m)
fs = CStr(Abs(m(i)))

MSComm1.Output = fs

Label11.Caption = Len(strsend) '发送计数
Next i
Close #1
End Sub

Answer 2

dim i as long
for i=1 to n
msgbox cells(i,x)
next

x表示你要读取的列