问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

使用VBA在查询WORD中表格的内容

发布网友 发布时间:2022-04-29 21:25

我来回答

2个回答

热心网友 时间:2022-06-23 03:07

1.实例分析
分析:的目的是将指定工作表找出来,并且将其激活为当前工作表,这里首先要找出工作表,这个操作我们可以直接通过sheets("工作表名称")来指定,这个工作表名称接收用户输入,这里用一个inputbox就可以;然后就是选中激活为当前工作表,这里有一个select关键字就可以。
2.程序设计
根据上面的实例分析,我们编写出下面这套程序:
Sub SelSht() '工作表查找
Dim Sht As String
Dim str As String
On Error Resume Next 【1】
Sht = InputBox("请输入工作表名称:") 【2】
Sheets(Sht).Select 【3】
str = Err.Description 【4】
If str <> "" Then 【5】
MsgBox "不存在该工作表或名称输入有误!" 【6】
End If
End Sub
3.程序分析
【1】这句代码的意思是如果下面程序有错误不报错,这样做的目的是为了防止,用户输入的工作表名称不存在而导致程序无法运行
【2】接收用户输入工作表名称,并赋给Sht这个变量
【3】如果工作表存在,那么这句代码就会选中工作表,并将其激活为当前工作表
【4】如果前面代码出现错误,这个时候str就会被赋予一个变量,该变量值为所提示的错误字符串
【5】对str进行判断,很明显如果str为空值说明前面的程序没有出错,也就是工作表找到了,但是如果不为空,说明出错了,工作表没有找到,进而进入if语句内执行
【6】提示用户不存在该工作表或名称输入有误
4.将程序制定到Excel界面按钮上
在工具栏空白处,单击右键,选择窗体,弹出一个对象框,然后选择按钮,将指定的程序连接给该按钮。

热心网友 时间:2022-06-23 03:08

'仅 供 参 考
'此段代码没有对数据进行校验

Sub SearchCell()
Dim inp As String
Dim r As Row, c As Cell
Dim CELL_ENDING As String
CELL_ENDING= vbCr & Chr(7) 'word表格单元格文本结束符
inp = InputBox("输 入 关 键 字:")
inp = inp & CELL_ENDING
For Each r In ThisDocument.Tables(1).Rows '这里只查找文档中第1个表格
For Each c In r.Cells
If inp = c.Range.Text Then '这里也是完全相同,也可用instr'InStr(1, c.Range.Text, inp, vbTextCompare) = 1
MsgBox Replace(r.Range.Text, CELL_ENDING, vbTab)
Exit Sub
End If
Next
Next
End Sub追问非常感谢!
请问word表格单元格文本结束符不就是回车符vbCr吗?为什么还要Chr(7)?

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
狂犬疫苗放在保温壶里在放进了冰箱有用吗 美团外卖怎么做兼职骑手-美团外卖兼职骑手加入教程 ...大洋百货买了件羽绒服回来怎么看怎么丑,可以退过吗,有经验人士速... 在商场买的羽绒服可以全额退款吗?丈母娘嫌买贵了。 电脑扩容win7win7怎么把电脑内存变大 如何利用win7系统的磁盘管理工具给C盘扩大容量?(前提:不重装系统) WIN7系统如何在不重装系统的情况下增加C盘的容量(硬盘重新分区)_百度... ...天津,求问办一张京津城际铁路的中铁银通卡划算不划算 我的订单号是;VA06239116166请问到哪了打电话查不出来 京滨中转场是哪里 我想通过vb读取word表格里面的数据,wordojb.Tables(1).Cell(2, 3).Range.Text用的这个。 请问vb可不可以读取word文件中特定的行与特定列的文字?谢谢 请问vb如何访问word中的嵌套表格中的数据? vbnet怎么实现读取指定WORD文档中的内容 求助:VB怎么读取Word中的内容显示出来 excel表显示不全 vb.net怎么实现读取指定WORD文档中的内容 VB 如何读取WORD单元格中用于计算的公式? 100求:word的VB程序中需要提取word中其中一个表格内的内容时怎样提取 男性如何提高那方面的能力? 被注消怎么办 为什么自动会被注销? 被别人注销该怎么办? 我在事业单位工作十年辞职了,离职后可以自己缴纳保险吗?办理流程是? 父母与孩子最好的沟通方式应该是什么呢? 父母与孩子交流沟通的技巧有哪些? 被别人恶意注销了怎么恢复? 非深圳户口,在深圳工作交了十年社保,现在决定回老家!社保怎么处理最合适? 父母应该怎样和孩子沟通? 十年前我在一家公司上班公司给我交了五险一金后来辞职了现在社保还有名吗_百度问一问 在VB中有办法获取Word中选中的文字吗 VB编程如何加载word或excel内容 vb.net 后台获取word中表格 VB提取WORD域中的内容 VB:把指定的word文档里的内容复制并新建路径保存。 VB要输出一个完整的表格(WORD或EXCEL),并在表格内输出相应数据_百度... 如何用vb调用word,画出表格,然后向表格中写入东西 怎样制作ppt中的矩形逻辑单元 如何让每一页PPT都有逻辑? 海南万宁石龟机场? PPT文字太单调?可以把它制作成逻辑结构图? 坐飞机到海南,想到达万宁市,请问是选择在海口机场下飞机还是三亚机场下飞机后交通比较近 万宁的飞机场叫什么名字? 手机wps怎么添加ppt逻辑结构 从北京去海南万宁 飞到哪最近 从重庆出发怎样能到海南的万宁 请问:从海口美兰机场怎么坐高铁到万宁 一份优秀的PPT是怎样炼成的 在拼多多如何&#x00A5;9.9买到华为P30? 求问:从海口机场怎么去万宁市?