VB中如何将一长串数据顺序写到指定列中?[串口控制仪器]
VB中如何将一长串数据顺序写到指定列中?[串口控制仪器]
如何将一长串数据顺序写到指定列中?
问题:
使用串口控制仪器测量数据,发出取数指令后,仪器会发送一长串数据,数据之间用","隔开
在我受到这些数据的时候,如何将数据按次序地写到excel列中呢?
窗体文本框中的数据如下:
-1.93536027e-02,-1.93923677e-02,-1.94251688e-02,-1.94579700e-02,-1.94907711e-02,-1.95205904e-02,-1.95563734e-02,-1.95802288e-02,-1.96189938e-02,-1.96547769e-02,-1.97173973e-02,-1.97442346e-02,-1.97740538e-02,-1.98247465e-02,-1.98307103e-02,-1.98963126e-02,-1.99261319e-02,-1.99470053e-02,-1.99976980e-02,-2.00334811e-02,-2.00633003e-02,-2.01020653e-02,-2.01229388e-02,-2.01557399e-02,-2.01945049e-02,-2.02332699e-02,-2.02451976e-02,-2.02869446e-02,-2.03107999e-02,-2.03018542e-02,-2.03346553e-02,-2.03465830e-02,-2.03525469e-02,-2.03793842e-02,-2.03913119e-02,-2.04092034e-02,-2.04092034e-02,-2.04062215e-02,-2.03913119e-02,-2.03644746e-02,-2.03823661e-02,-2.03853480e-02,-2.03853480e-02,-2.03883299e-02,-2.03614926e-02,-2.03525469e-02,-2.03614926e-02,-2.03585107e-02,-2.03257096e-02,-2.03107999e-02, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04, 2.31667468e-04,
[解决办法]
- VB code
'在工程中引用microsoft office 11.0 controlDim xobject As New Excel.ApplicationDim xBook As New Excel.WorkbookDim xSheet As New Excel.WorksheetDim mydata() as stringSet xobject = CreateObject("excel.application")Set xBook = xobject.Workbooks.AddSet xSheet = xobject.Worksheets("sheet1")xSheet.Activatemydata=split(text1.text,",") 'text1中为接收到的数据for i=0 to ubound(mydata) xSheet.Cells(i+1, 1).Value = "a" '写到第一列next ixBook.visible=true
[解决办法]
- VB code
mydata=split(text1.text,",") 'text1中为接收到的数据for i=0 to ubound(mydata) xSheet.Cells(i+1, 1).Value = "a" '写到第一列next i
[解决办法]
看错了，是列中，不是行中。