以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何判断EXCEL表中是否存在符合条件的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71502)

--  作者:yyzlxc
--  发布时间:2015/7/13 9:22:00
--  [求助]如何判断EXCEL表中是否存在符合条件的行
下面这段代码是从"工序资料.xls"文件中,将产品款号为ABC的的数据合并到项目的"工序资料"表中,不管是否有符合条件的数据,都可以执行。
要求:在运行这段代码前,判断在"工序资料.xls"文件中,是否存在符合条件的数据,并据此来决定是否执行合并代码。
实现上述要求,代码应该如何写,请各位老师指教,谢谢!


Dim mg As New Merger
mg.SourcePath = ProjectPath & "工序资料.xls" \'指定数据文件
mg.Format = "excel" \'指定格式
mg.SourceTableName = "工序资料$" \'指定要合并的表
mg.DataTableName = "工序资料" \'指定接收数据的表
mg.Filter = "产品款号 = \'ABC\'" \'指定合并条件
mg.Merge() \'开始合并

--  作者:yyzlxc
--  发布时间:2015/7/13 9:46:00
--  
在EXCEL文件中判断的VBA的代码如下,将这段代码应用到foxtable项目中,应该如何修改,请各位老师指教,谢谢!!


Private Sub CommandButton1_Click()
Dim t
t = "abc"
Columns(1).Select  \'A列
On Error GoTo ERR
Selection.Find(What:=t, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
MsgBox "找到啦"
Exit Sub
ERR:
MsgBox "没找到"
End Sub

--  作者:大红袍
--  发布时间:2015/7/13 9:48:00
--  

用sql语句查询,参考

 

下载信息  [文件大小:312.0 KB  下载次数:8]
图片点击可在新窗口打开查看点击浏览该文件:excel作为数据源_合并.table