微信公众号原文系统：Windows 7 软件：Excel 2010 / Access 2010这个系列开展一个新的篇章，重点关注Access数据库主体框架：以Excel作为操作界面，Access作为数据库今天讲讲如何将数据库中满足要求的数据拿出来涉及知识：ADO，SQL：Select + Where...

作者：iamlaosong业务部门需要将各市公司收寄邮件按指定的条件筛选出来，然后合并到一张工作表中。源数据文件有16个，合并到一个工作表中，筛选条件可以*设置。为此做了一个筛选合并工具。1、指定一个文件名。如果这个文件存在，清空内容，如果不存在，创建一个。用这个文件来保存筛选合并后结果。2、指定...

1.首先我们要判断数据库是否存在，需要引用一个类“Microsoft ADO Ext.6.0 for DDL and Security”,用其catalog 对象来判断数据库是否存在，如果不存在，直接创建数据库和数据表，如果存在则删除Option ExplicitSub shifuchunzai()...

Excel的筛选是一个常用功能，即使是入门不久的小白也会使用。但是在VBA处理数据时，如果工作表中的数据表使用了筛选，那么使用VBA如何知道到底有多少行处于显示状态呢？如下图数据表中有12行数据（不包括标题行），经过筛选后，在状态条左侧可以轻松地知道：有4条记录符合筛选规则。下面看看如何使用代码获取...

同事需求，要提取单线图中的所有焊口编号和检测报告中的做比对。网上找了个有些麻烦，不能选取非文本，否则报错。于是修改代码如下。 用法：1、打开cad文件2、在VB编辑器中复制以下代码，然后运行3、此时回到CAD，选取要提取的文本，如果都需要提取，则全选。 选取非文本时脚本会自动跳过。右键完成。4、结果...

任务介绍在日常工作中，我们经常会遇到需要汇总多个表格的数据，将它们合并到一个表格里的情况。虽然复制粘贴大法好，但如果让你汇总几十人填报的个人信息并做成汇总表格，估计你也膜不动了。因此，这一次我们就通过VBA程序完成这个任务，从此妈妈再也不担心我数数到头秃。程序基本思路将要合并的Excel文件放到同一...

概述：这时候让我想起英语语法，太枯燥了，不过没办法，已经想玩游戏，你得知道游戏规则，才能玩的更骚。。。。1、 语法，编程的基础1.2、VBA中有哪些数据类型数据类型就是根据不同数据特性，定义不同类型，例如文本、日期、数值等VBA里的数据类型有：字节型（Byte）、整数型（Integer）， 长整数型...

 Is 比较两个对象的引用变量|| 对象1 Is 对象2 || 当对象1和对象2引用相同的对象时返回True，否则返回False Like 比较两个字符串是否匹配 || 字符串1 Like 字符串2 || 当字符串1与字符串2匹配时返回True，否则返回False   Range("A1") >...

excel中，假如我们知道每个员工的销售数量，又知道商品的单价，可以简单的计算出销售额，但是档员工人数特别多，即便是快速复制公式，仍然可以把你累死，这时候就要使用vba了，利用循环计算，你可以快速的计算上万员工的销售额，非常简单方便。   首先，我要知道商品的单价是12.5，在D1单元格输入【商品单...

excel中，假如我们知道每个员工的销售数量，又知道商品的单价，可以简单的计算出销售额，但是档员工人数特别多，即便是快速复制公式，仍然可以把你累死，这时候就要使用vba了，利用循环计算，你可以快速的计算上万员工的销售额，非常简单方便。   首先，我要知道商品的单价是12.5，在D1单元格输入【商品单...

https://www.cnblogs.com/icedream/archive/2013/03/05/2945158.htmlSub 拆分并填充单元格()'' 拆分并填充单元格 宏'' 可以将选中的所有单元格都拆开并填充' If Application.Selection.MergeCell...

最近在写一个VBA工具时，遇到一个比较怪异的问题，由于工具使用了ADODB方式查询（在VBA中使用SQL操作方式）处理数据，出现部分单元格的内容被固定的截断了。 经过多方查找原因，最后在一些博客中发现了可能存在的原因为Excel使用ADODB操作时，默认会以前8行数据来判断整列的数据类型及结构，包括...

最近在写一个VBA工具时，遇到一个比较怪异的问题，由于工具使用了ADODB方式查询（在VBA中使用SQL操作方式）处理数据，出现部分单元格的内容被固定的截断了。 经过多方查找原因，最后在一些博客中发现了可能存在的原因为Excel使用ADODB操作时，默认会以前8行数据来判断整列的数据类型及结构，包括...

Border 对象代表对象的边框。说明大多数具有边框的对象（除 Range 和 Style 对象外）都将边框作为单一实体处理，而不管边框有几个边。整个边框必须作为一个整体单位返回。例如，使用 TrendLine 对象的 Border 属性可返回此类对象的 Border 对象。示例下例更改活动图表中趋...

还有点小问题，EXCEL.exe这个进程会一直占用一个文件，很奇怪，如果有知道的大神，欢迎评论补充这个是统一更改为“Sheet1”这个名字Private Function GetDirectory() Dim fd As FileDialog Set fd = Application.F...

office word利用VBA给指定的多个字符字体批量标红加粗场景说明：比如我有一个英文的word文档，无需要把不认识的单词标成红色并且加粗，如果一个一个替换太麻烦，我想到用vba来实现 ，例如我要把abandon、abbreviation、abide、abiding、able、abnormal、...

常用语法with用法使用with时可以使用with 对象.操作1.操作2 end with同时对某个对象进行多个操作。调用单元格的方式使用Range+列行号Range("A1")strA = "A1"Range(strA)使用Range+列&行Range("A"&1)num = 1R...

Excel通过ADO方式连接到Oracle并操作Oracle给我们这些编程能力不强的人带来很大的福音，结合着Excel的数据处理与图表制作，就能很轻松地处理一些常规工作。 以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例Excel 通过VBA连接数据库需要...

Public Sub WriteCSV()Set wkb = ActiveSheetDim fileName As StringDim MaxCols As IntegerfileName = Application.GetSaveAsFilename("", "CSV File (*.csv), ...

结合前两篇高手代码，拼出以下代码：Public Sub WriteCSV()Dim sheet_name, bookPath, fileName As StringDim sheet_count,i As Integersheet_count = Sheets.CountbookPath = Thi...