数据采集卡,高速数据采集卡,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采集软件, 欢迎您使用并提出宝贵意见.