![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
数据库
Fenrir9999
/*n*/
展开
-
VBA+SQLserver 逐个比较数组元素与数据库元素,如果符合条件,则替换
表AID 列1(替换后的同义词) 列2(替换前的同义词)1 同义词1 同义词2 同义词3 同义词4……以下为笔者使用的同义词词库所用的相关代码, 其能够实现以下功能:在表A中逐个查询数组元素,如果在列2中查到相应数据(同义词2~N),则将其替换为列1中的同义词1。注:下述代码中,已在先将数组变量name_part(0 to 999)...原创 2019-02-17 17:11:05 · 830 阅读 · 0 评论 -
VBA word自动排版(8)——批量自动搜索并提取带有特定关键词的内容
在做数据筛选时,会要求提取带有特定关键词的短句。楼主比较懒,代码只提供了提取关键词短句的部分,并未加入重复检测功能待提取的word文档格式如下:(关键词为XX)aaaxxaabbbxxbbsssssccccxxccsddssfsdfsdfsdfxxdddd以下代码能够实现批量提取出word文档内的带有关键词的数据Sub 提取内容() Dim temp_text, tex...原创 2019-02-19 15:50:22 · 7534 阅读 · 1 评论 -
VBA word自动排版(10)-结合SQL数据库批量替换WORD文本
笔者的使用环境是SQL-SERVER2014 和VS2017首先在SQL-server中建立如下表格序号 列名1 列名2001 aa bb002 bb cc003 cc aa以下是word中的VBA代码:'——————————————————————————————声明公共变量Public rs As New AD...原创 2019-03-07 23:37:50 · 781 阅读 · 0 评论