Foxtable(狐表)用户栏目专家坐堂 → [求助]如何判断EXCEL表中是否存在符合条件的行


  共有2176人关注过本帖树形打印复制链接

主题:[求助]如何判断EXCEL表中是否存在符合条件的行

帅哥哟,离线,有人找我吗?
yyzlxc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]如何判断EXCEL表中是否存在符合条件的行  发帖心情 Post By:2015/7/13 9:22:00 [只看该作者]

下面这段代码是从"工序资料.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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 9:48:00 [只看该作者]

用sql语句查询,参考

 

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


 回到顶部