随笔分类 - VBA
摘要：定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一
阅读全文
摘要：Excel多表合并之vba实现 需求 保留列名，复制每一个excel里的数据，合并到一个excel 操作步骤 合并多个excel每个excel有多个sheet，每个sheet单独合并，代码如下 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName
阅读全文
摘要：本示例为设置密码窗口 (1)If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行Else MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If'本示例为设置密码窗口 (1)X = MsgBox("是否
阅读全文
摘要：本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBo
阅读全文
摘要：在网上找EXCEL多文件合并的方法，思路： 一、Linux 或者window+cmder，直接用命令行cat合并EXCEL文件，但是，需要安装辅助东西才能直接处理（也许也不可以，但是，可以用文件格式转换工具转换是可行的，把EXCEL文件转换成txt文件，再操作，操作好了，再转换成EXCEL格式）；还
阅读全文
摘要：Sub 分列行转表() '将按照某列分类保存到各工作表中，前提新建以某列数据命名的工作表 '原理：源数据每一列进行归类 Dim i As Long, pq As String, rng As Range i = 2 pq = Worksheets("浙南战区").Cells(i, "a").Value 'pq确定为某列的数据；红字部分根据实际情况命名 ...
阅读全文
摘要：Sub 合并工作簿包含工作表名称() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件...
阅读全文
摘要：实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。 开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。 代码如下：'功能：把多个工作簿的第一个工作表合并到一个工
阅读全文
摘要：四、利用API函数来处理文件 通过前面三种方法的介绍，你是否已经觉得足够了？是的，前面的方法完全可以应付几乎所有的文件操作。但是为了普及一下API，展示一下API的魅力，最后向大家介绍一下如何利用API函数来处理文件。另一方面也是本人对API情有独钟，为她做一下广告，呵呵。 大家对API的强大也是有
阅读全文
摘要：三、利用FileSystemObject对象来处理文件 FileSystemObject对象模型，是微软提供的专门用来访问计算机文件系统的，具有大量的属性、方法和事件。其使用面向对象的“object.method”语法来处理文件夹和文件，使用起来十分方便（需Office 2000以后版本）。File
阅读全文
摘要：在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。 本文主要介绍四种常用的方法：
阅读全文
摘要：Excel-VBA操作文件四大方法之二 二、利用VBA文件处理语句来处理文件 VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。 （一）文件处理 1.Name 语句 语法：Name oldpathname As newpathname
阅读全文
摘要：诸君好，前前期我们聊了VBA编程和数据的常规排序……VBA常用小代码105：Rang对象的排序操作……今天我们再聊下自定义排序……何谓自定义排序，就是按指定的顺序对数据源进行排序呗……今一共分享了三种方法。第1种方法是系统自带的OrderCustom，优点是代码简洁，缺点是自定义序列有字符长度限制（
阅读全文
摘要：VBA二次学习笔记（2）——两个Excel表内容比较 说明（2018-9-3 22:38:58）： 1. 就是之前问同事要来的作业，有两个格式一样的Excel文件，一个是正确答案，一个是员工作答的。通过代码将两个文件进行比对，把不同之处列出来。 正文： Sub test1() Dim wb1 As
阅读全文
摘要：VBA学习笔记（9）--生成点拨（1） 说明（2017.3.26）： 1. 还没写完，写到新建文件夹了，下一步新建word，重命名，查找点拨，把点拨复制进去，因为要给点拨编号，应该会很麻烦 1 Public Sub test1() 2 Dim path 3 Dim filename 4 Dim fo
阅读全文
摘要：VBA学习笔记（7）--vba的数组函数 说明（2017.3.25）： 1. split(str,"-")和join(arr,",")函数，用法跟其他语言差不多。 2. filter函数，filter(数组，字符串，true/false)判断一个字符是否在数组中，返回满足条件的元素组成一个数组 'f
阅读全文
摘要：VBA学习笔记（5）--事件，记录每次操作改动 说明（2017.3.24）： 1. 记录sheet1里面的每次改动，和改动时间！ 2. 不能记录大范围的删除、改动，会提示“类型不匹配” 1 Private Sub Worksheet_Change(ByVal Target As Range) 2 W
阅读全文
摘要：VBA学习笔记（6）--抽取第一列中叫“虹虹”的个人信息 说明（2017.3.25）： 1. 知识点为dim arr2(1 to 1000, 1 to 4)先定义一个足够大的二维数组，不然后面需要transpose转置成一维数组。 1 '抽取列表中叫“虹虹”的所有信息，设置arr2数组1到1000，
阅读全文
摘要：VBA学习笔记（4）--文件夹和文件遍历一层 说明（2017.3.22）： 1. 1 '遍历指定文件夹里的文件 2 '遍历指定文件夹，返回第一层文件（不含文件夹） 3 Public Sub test1() 4 Dim k% 5 Dim filename$ 6 Dim path$ 7 path = T
阅读全文
摘要：VBA学习笔记（3）--文件夹操作 说明（2017.3.22）： 1. 根据兰色幻想VBA80集视频教学，总结 2. 大部分可以用自带函数处理，不过复制文件夹需要用到FileSystemObject对象，打开文件夹用到shell 1 Public Sub test1() 2 '1. 判断文件夹是否存
阅读全文
浙公网安备 33010602011771号