在线客服
首页 > 技术文章 >
技术文章
技术文章

方便快捷的数据采集方法--在excel中做数据采集

数据采集卡,高速数据采集卡,USB数据采集卡,PCI数据采集卡,PCIe数据采集卡,高速采集卡

Excel 是美国微软公司开发,具有强大的数据处理功能, 许多数据采集用户希望把采集到的数据输入到excel中处理.一般将采集数据输入到excel中有两种方法: 第一种方法,使用OLE接口调用excel功能. 第二种方法是: 使用专门控件把数据存成excel格式文件. 这两种方法都需要用excel之外的编程语言编写采集及数据转换程序, 使用复杂速度慢. 有没有在excel中直接控制硬件进行数据采集的方法呢? 答案是肯定的.

最近北京迪阳科技有限公司开发了可以直接进行数据采集的Excel数据表, 您可以不需任何编程直接在excel中采集处理数据. 当您点击具有数据采集功能的数据表文件(.xls文件), 在数据表格之上将弹出采集设置窗体, 您可以输入采集通道, 采样频率, 采集数据长度等参数, 然后点击开始采集按钮, 数据将自动填充到数据表格之内, 采集结束后关掉采集窗体(也可自动关闭), 您立刻就可以进行数据处理或存储. 您还可以再次打开采集窗体再次进行采集工作. 使用这种方法可以免除编程和繁琐的操作, 方便快捷的完成您的工作.

下面是一个例子,数据采集的显示函数里增加的把数据添加到excel的文件里的方法!!!供用户参考!SubShowDigitProc()Screen.MousePointer=vbHourglass'''''''''''表示等待状态DimxlsAsObject'Excel格式输出数据Setxls=CreateObject(Excel.Application)xls.Visible=Truexls.Caption=FourSignalsSetxlbook=xls.Workbooks.Add'Excel格式输出数据DimRowAsIntegerDimColAsIntegerDimi,jAsIntegerDimchannelpotAsIntegerDimch0(511),ch1(511),ch2(511),ch3(511)AsSinglechannelpot=(4096-(4096ModChannelCount))'原型为:channelpot=(8192-(8192ModChannelCount))Fori=0ToChannelCount-1s$=s$¦CHStr$(Hist_Header.FirstChanneli)NextGrid.FormatString=s$s$=;Fori=0m_OffsetTo((channelpot/ChannelCount)-1m_Offset)s$=s$¦Str$(i)NextGrid.FormatString=s$'OpenD:\05.txtForOutputAs#1''文本格式读出数据ForRow=1To((4096-(4096ModChannelCount))/ChannelCount)Col=0''''''''''''''''''''''''''可以存取数据了!!!Grid.TextMatrix(Row,Col1)=Format(((((InRegionUser((Row-1)*ChannelCountCol)Xor&H2000)And&H3FFF)-&H2000)*PoltvalueChange)/1000,#.00000)ch0(511)=Grid.TextMatrix(Row,Col1)ch0(511)=Val(ch0(511))Text3.Text=ch0(511)xls.Cells(Row,1).Value=ch0(511)'Excel格式输出数据Col=1''''''''''''''''''''''''''可以存取数据了!!!Grid.TextMatrix(Row,Col1)=Format(((((InRegionUser((Row-1)*ChannelCountCol)Xor&H2000)And&H3FFF)-&H2000)*PoltvalueChange)/1000,#.00000)ch1(511)=Grid.TextMatrix(Row,Col1)ch1(511)=Val(ch1(511))Text4.Text=ch1(511)xls.Cells(Row,2).Value=ch1(511)'Excel格式输出数据Col=2''''''''''''''''''''''''''可以存取数据了!!!Grid.TextMatrix(Row,Col1)=Format(((((InRegionUser((Row-1)*ChannelCountCol)Xor&H2000)And&H3FFF)-&H2000)*PoltvalueChange)/1000,#.00000)ch2(511)=Grid.TextMatrix(Row,Col1)ch2(511)=Val(ch2(511))Text5.Text=ch2(511)xls.Cells(Row,3).Value=ch2(511)'Excel格式输出数据Col=3''''''''''''''''''''''''''可以存取数据了!!!Grid.TextMatrix(Row,Col1)=Format(((((InRegionUser((Row-1)*ChannelCountCol)Xor&H2000)And&H3FFF)-&H2000)*PoltvalueChange)/1000,#.00000)ch3(511)=Grid.TextMatrix(Row,Col1)Text6.Text=ch3(511)xls.Cells(Row,4).Value=ch3(511)'Excel格式输出数据'Write#1,ch0(511),ch1(511),ch2(511),ch3(511)''文本格式读出数据'Draw_Click'Picture2.PSet(ch0(511),ch2(511)),RGB(255,0,255)Next'Close#1''文本格式读出数据Screen.MousePointer=vbDefault'''''''''''''表示形状由对象确定EndSub

  目前我公司生产的各种数据采集硬件产品(USB采集器,PCI采集器, 并口采集器, 各种采集板卡...)均可提供excel采集软件, 欢迎您使用并提出宝贵意见.

 

北京迪阳世纪科技有限责任公司 版权所有 © 2008 - 2018 著作权声明
010-62156134 62169728 13301007825 节假日:13901042484 微信号:sun62169728
地址:北京市西城阜外百万庄扣钟北里7号公寓
E_mail:sales@pc17.com.cn 传真: 010-68328400
京ICP备05038211号 公备110108007750