一 VBA 与对象1.1 VBA 基础application 就是 VBA里的 Aapplication 就是 EXCEL程序，VBA寄生的这个宿主工具，估计也可能是WORK,PPT等EXCEL程序下，可能开启很多EXCEL工程（多个EXCEL表）1.2 Application 即 excel ， excel 就是 VBA的最大对象集合EXCELwordPPT1.3 什么是
最近一直在研究VBA，写报表的工作。将所得的知识，经验总结一下，与大家分享。工具篇，VBA1.EXCEL一个最好用的功能就是录制宏，当一个函数拿不准要怎么写，用什么函数表示的时候，录制就帮了大忙了。2.VBA相对于录制的宏，可以更精确，更聪明，逻辑更清晰，执行也更有效。特别是它的循环和递归，直接解放了人的双手。3.VBA的基本操作（1）定位：基本单位：sheets(页)，Rows(行），Colum
转载
2024-08-26 14:24:00
534阅读
目录一、问题假设1.待处理文件2.假设处理要求二、关键思路1.遍历Excel单元格2.Word中查找替换三、参考代码四、操作步骤及效果1.步骤（1）准备（2）开始运行（3）选择文件（4）点击确定，处理完成2.验证五、代码源文件注意：因为此问题可以结合大学日常用得较多的Excel，作为存储多个关键词的载体。此文便在Excel中写代码，也方便操作。一、问题假设1.待处理文件假如现在有一个文件夹，里面有
转载
2024-05-06 16:26:31
63阅读
本文基于以下文件http://pan.baidu.com/s/1nvJtsu9（部分）内容预览：1. 边框样式Sub cell_format()
Dim sht As Worksheet
Dim rng As Range
Set sht = Worksheets("Parameter")
Set rng = sht.Range("B2:C20")
转载
2024-03-24 14:45:24
427阅读
第一种情况保留不重复的记录行，重复的只保留一行。
1、打开有重复数据的EXCEL 2、Alt+F11 打开宏的VB编辑器 3、左边双击：ThisWorkBook 4、贴入以下代码并运行即可： Sub 删除重复数据() '删除col列的重复数据 '本例是删除标题为sheet1的EXCEL表中A列（从A2单元格开始）的重复数据 Application.ScreenUpdating = False
转载
2024-04-05 12:39:35
269阅读
1 VBA和EXCEL使用符号常数有语法差别1.1 语法差别比如EXCEL里使用char(10)VBA中只能写成 chr(10)VBA的语法错误，VBE没有把第1个首字母大写就应该看出来 char(13) 是错误的 1.2 举例： chr(32) 类空格MsgBox "hello" & Chr(32) & "world" &
ACCESS模糊查询出现的问题,开发中需要注意! 在SQL Server中模糊查询通常是这样的Select * from articleTable where authorName like '%jacky%' 但是在Access中用这条语句执行的时候竟然发现查不出结果，怎么可能呢？ 后来查了下资料，发现问题如下： 要进行模糊查找，则必须使用通配符，ACCESS库的通配符和SQL SERVER的通
转载
2024-03-23 11:03:40
69阅读
Excel利用VBA实现下拉列表，同时支持输入时动态查询，根据输入的不同实现动态的查询先看一下实验效果：当点击website这一列时会出现所有的网站列表，双击可点击选择数值填入输入关键字时会只出现包含关键字的结果在C，D两列选择单元格后会出现仅在此网站下的数据如果网站为空则会自动向上寻找，同时也支持自定义的搜索接下来为主要的实现方法：第一部分为工作表选取改变事件，实现的是当有单元格被选定时会自动出
转载
2024-06-23 20:39:45
176阅读
我们先来看看SetWindowPos函数的定义和参数： 使用API函数之前必须先在程序中声明如下： Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx A
转载
2024-04-19 07:40:30
426阅读
# 使用VBA从MySQL查询结果到变量的完整指南
在开发中，使用VBA（Visual Basic for Applications）连接MySQL数据库并进行查询是一项非常实用的技能。对于刚入门的新手，这个过程可能会有些复杂，但我会一步一步引导你完成这个目标。
## 整体流程概述
我们可以将整个过程分为以下几步：
| 步骤 | 描述 |
|------|------|
| 1 |
# 使用VBA查询MySQL数据行数的实例
在日常工作中，我们常常需要从数据库中提取数据，而VBA（Visual Basic for Applications）作为一种强大的编程工具，能帮助我们高效地与MySQL数据库进行交互。本文将展示如何使用VBA从MySQL数据库中查询数据行数，并提供相应的代码示例。
## 环境准备
在开始之前，需要确保您已经完成以下准备工作：
1. **安装MyS
环境：windows+wps2019+vba7.01.建立文件：新建xlsx文件，打开并另存为启用宏的工作簿（.xlsm）类型文件，命名为“查询工具"，即最终工具文件为"查询工具.xlsm"。2.创建自定义用户窗体：Alt+F11（或Fn+Alt+F11)打开VB编辑器（备注：默认WPS个人版是没有安装VBA插件的，需自行下载安装，若未安装，则无法做VBA开发)，右键对象窗体下工作簿对象，插入一个
转载
2023-07-11 22:55:21
226阅读
这位“兰色幻想”老师还真是苦口婆心，在教VBA的过程中，连SQL也都附带教一遍，很有心！'按条件筛选---数字条件
'直接用对比符号,><=
Sub 按条件筛选1()
Dim sql As String
Dim data As New 数据库
sql = "Select * from [sheet1$] Where 销售单价 > 100"
data.执行筛选 data.Exc
转载
2023-12-24 14:13:25
332阅读
Option Explicit
Sub 输出数据表(strSql As String, Work As String) '传值处理
'''''''''''''''''''''''''''''''''''''''''''
Dim data As New 数据库
Dim
原创
2017-04-22 22:21:44
4814阅读
# 在VBA中获取MySQL数据：不查询（直接访问）的方法
在现代数据库管理中，VBA（Visual Basic for Applications）常常与各种数据源结合使用，尤其是MySQL数据库。本文将介绍如何在VBA中直接访问MySQL数据，而不仅仅是执行传统的查询操作。我们将以代码示例进行说明，并提供相应的流程图和关系图，以帮助读者理解整个过程。
## 1. 了解VBA和MySQL的关系
一、VBA使用SQL查询表，统计数据Sub统计数据()DimCNNAsObjectDimsqlAsStringThisWorkbook.Sheets("统计表").ActivateWithThisWorkbook.Sheets("统计表")Cells.ClearCells(1,1)="部门名称"Cells(1,2)="名单总人数"EndWithSetCNN=CreateObject("ADODB.
原创
2019-08-01 08:19:28
8550阅读
文件中特定字符串的寻找与替换是一种极其常见的操作，在Win95中，可以很容易地使用"写字板"、"Word"等软件的"替换"功能在某个文件中完成寻找替换的工作，而如果要在多个文件中进行寻找替换，则需费一翻精力。针对这一问题，笔者用Visual Basic 5.0编制了一个小程序，使用它可以快速地完成在多个文件中查找与替换的任务。
正文： 众所周知，文本文件中特定字符串的寻找与替换是一
转载
2024-01-01 12:23:30
200阅读
日常开发中，经常会针对默写数据表进行增删改查。每次都要单独处理，费时费力，考虑通过一个窗体进行封装。（借鉴当时接触的某家公司的套路）外围在调用时，传入sql字符串，展示字符串，然后 被调用窗体根据传入的信息进行排版展示。同时通过设置 增删改查标志，提供增删改查的关联操作。Public m_Sql As String
Public m_lbls As String
Public m_View As
转载
2024-05-02 15:01:34
696阅读
1．创建Excel对象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．设置第3个工作表为激活工作表
eole.Worksheets(″sheet3″).Activate
4．打开指定工作簿
eole.Workbooks.Op
转载
2024-09-27 09:31:36
133阅读
我用的是Oracle 11g + Microsoft Office 2010 旗舰版
首先要添加引用类库：
Microsoft ActiveX Data Objects Recordset 6.0（或者2.8）Library
Microsoft Activex Data Objects 6.1（或者2.8） Library
链接Ora
原创
2013-04-23 21:28:09
2931阅读
