以文本方式查看主题 - 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语句查询,参考
|