以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]数据导入的按钮制作  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18386)

--  作者:zi008
--  发布时间:2009/10/30 10:15:00
--  [求助]数据导入的按钮制作
我要把csv格式的文档数据通过按钮导入表1中,只要15行以下的数据,请问按钮怎么设置。RAR文件下载
易表和csv格式文档都放里面了。
--  作者:lyang70
--  发布时间:2009/10/30 10:27:00
--  
易表不能导入CSV格式的文件,必须将CSV文件转换成xls格式方可导入,记得昨天已告知楼主了...
--  作者:zi008
--  发布时间:2009/10/30 10:32:00
--  
可以导入啊,我这就是这样导入的啊。
If(MsgBox("将测试结果进行导入,并自动进行数据处理!确认吗?",2,3) = True ,ClearGrid("data") And DelFile("C:\\data.txt") And SetVariable("%导数%",Text(GetFileName("Csv文件|*.csv","导入第一次测试数据(Csv格式)",0))) And CopyFile(Text([%导数%]),"C:\\data.txt") And ImportTextFile("C:\\data.txt",",", Char(13), 15) And EvalFor("data","蓝移","[WD2] - [WD1]"),"")
您看下这个函数。
--  作者:lyang70
--  发布时间:2009/10/30 10:38:00
--  
既然可以那你在按钮中用Delfor将导入的数据前14行删除就可以了嘛!
--  作者:lyq
--  发布时间:2009/10/30 12:13:00
--  
楼主是同行呀,你们做LED芯片的吧!有时间交流交流!
--  作者:tzszw
--  发布时间:2009/10/30 12:43:00
--  
下面引用由zi0082009/10/30 10:32am 发表的内容:
可以导入啊,我这就是这样导入的啊。
If(MsgBox("将测试结果进行导入,并自动进行数据处理!确认吗?",2,3) = True ,ClearGrid("data") And DelFile("C:\\data.txt") And SetVariable ...

这个方法倒也不错!