对FileSystemObject一直略有耳闻,VBA爱好者常常简称为FSO对象. 在Scripting类库中有三个可以直接使用NEW关键字实例化的类,第一个就是常用的字典,第三个是FSO. 一.FSO对象引用的方法: 前期绑定:先要引用类库文件scrrun.dll,写代码的时候有智能提示.如果程序发给别人用,就要用后期绑定方式. Dim fso As New Scripting.FileSystemObject 后期绑定:不需要引用类库文件,但没有智能提示. Set fso = CreateO

需求:因为处理学生学籍照片,从照相馆拿回来的寸照是按班级整理好,文件名是相机编号的文件.那么处理的话,是这么一个思路,通过Excel表格打印出各班A4照片列表,让学生自行填上照片对应姓名.表格收回来后Excel表格上填入对应姓名,通过VBA更改电子档照片文件名.(此次重写使用了类模块和fso,并对插入的图片类型进行了过滤,避免了插入非图片类型文件) 大概流程如下图: 操作界面如下图: vba代码模块如下图,包括ThisWorkbook的open事件代码.测试过程代码(即插入图片.删除图片.重命名

最近需要做一个一劳永逸的XML文档生成,给项目内部专用的,直接VBA方便了,才第一次用.现学现卖了....抽时间还是系统的学习下这方面的知识吧 输出到UTF-8编码的XML文档.并且换行符是Unix的\n换行符. Sub WriteToXml() Dim FilePath As String Dim ClientID As String Dim Name As String Dim LastCol As Long Dim LastRow As Long Dim fso As FileSystem

看过很多人写的VBA代码,一团一团的,一点规划都没有,为了VBA编程更具工程性,这里讨论一下,并列出自己的一些建议:0.给VBA工程定义一个名字,而非直接使用默认的名称——"VBAProject",以方便以后可能要进行的跨VBA工程编码1.定义一个命名为“O”的标准模块[拼音中“O”字母的读音,意指“我”这个字],用于定义所有的全局对象,管理本工程的代码与数据,主要API:    [1]About(Optional ShowDetail As Boolean = False)函数:对本

'Upload File to the specific folder Sub UploadImages(s$, c$) 's$ Buttom number 'c$ Specify a location to show image 'souf$ The local path of the image file 'des$ The dest path of the image file 'dt$ Get date for Named file Dim fso As Object, souf$, d

背景 有个PHPCMS的网站停了,但是网站的历史文章又想要看看,网站停了以后,管理员发来了网站的所有数据. 分析 因为不会PHP,所有本地环境跑网站不优先考虑. 有MySQL数据库文件,但是不熟悉MySQL数据库,也就不下载数据库了. 有PHPCMS导出的SQL文件,但是不是标准的SQL文件,不能用于导入数据库.不过这个文本格式的文件已经包含了所有文章的内容. 尝试 1.将v9_news 文章主表,v9_news_data 文章从表 用 vlook 函数拼接了一个 “news full”表. 2

VBA/VBScript提取Word(*.doc)文件中包含的图片(照片)   要处理的人事简历表是典型的Word文档,其中一人一份doc,里面包含有个人的照片,如果要把里面的照片复制出来就比较麻烦了,一般手动的做法是选择文件另存为,保存类型选择“网页(*.htm; *.html)”,这样就会另存为网页形式,同时会有个以文件名开头,以.files结尾的文件夹,点击进去就可以看到Word里面嵌入的所有资源,包含所需要的图片资源. 值得注意的是该文件夹里同一张图片正常会有两个副本,其中一张图片文件体

因为工作的原因,需要用到VBA,碰到读图片和写图片: Sub Macro01() '从工作表中保存图片 Application.ScreenUpdating = False Dim pth, shp, n pth = ThisWorkbook.Path & "\导出图片\" For Each shp In ActiveSheet.Shapes Then n = n + shp.Copy , , shp.Width, shp.Height).Chart .Parent.Selec

还可以读取Excel文件,并使用VBA将单元格的内容写入文本文件.VBA允许用户使用两种方法处理文本文件 - 文件系统对象(FSO) 使用Write命令 文件系统对象(FSO) 顾名思义,FSO对象帮助开发人员使用驱动器,文件夹和文件. 在本节中,我们将讨论如何使用FSO. 编号 对象类型 描述 1 Drive Drive是一个对象. 包含收集有关连接到系统的驱动器的信息的方法和属性. 2 Drives Drives是一个集合. 它提供了连接到系统的驱动器的物理或逻辑列表. 3 File Fil

问题描述 用VBA来取出MySQL数据库中的所有表的结构后生成一个Excel的文档 首先创建MySQL的数据源,如何创建数据源在前章已经写过,之后把下面的信息填写上即可 在window7 64位系统上面可能会出现错误,出错的原因是因为mysql的驱动问题,你需要安装window7的32位的MySQL驱动.这样就不会出现问题. 在window10上面则没有这种问题. 说明 DSN是你所创建的数据源的名称 SERVER是你本地的数据库 DB是你的数据库的名称 UID是登入数据库的用户名 PWD是登入

利用vba脚本,使用Scripting.FileSystemObject对象可以实现对文本文件的操作,下面以一个朋友的实际例子为例将截获的字符串进行页面显示. Private Sub CommandButton3_Click() Dim fso Dim txtfile Dim msrt3 As String Dim ma3() As String Dim msrt1, ma1, msrt2, ma2, tempp, tempp2, i, a, j Set fso = CreateObject("

VBA 格式化字符串 VBA 的 Format 函数与工作表函数 TEXT 用法基本相同,但功能更加强大,许多格式只能用于VBA 的 Format 函数,而不能用于工作表函数 TEXT ,以下是本人归纳的几点用法,希望对学习VBA有所裨益.Format(值,格式(可选参数))一.数字格式:1.General Number:普通数字,可以用来去掉千位分隔号和无效 0 .如:Format("1,234,567.80", "General Number")="1

1. Range / Cells / Columns / Rows 2. 绝对引用 $F$13 / 相对引用 F13 公式所在单元格的被复制到其他位置时,绝对引用不变 3. VLookup / NLookup / LLookup 4. =if(ISNA(C1:C17); "There are #N/A's in one of the cells"; "") other similars: ISERROR(), ISERR(), ISBLANK(), ISEVEN()

打算花两三天学习VBA的基础,学习资料为<别怕,VBA其实很简单>,为了快速学习,先了解大致框架,后续再深入学习各种属性.方法和技巧. 1.VBA编程环境基本操作,手工操作,熟悉即可 2.了解过程:Sub(对应宏)和Function(对应函数) Sub过程对应手工录制的宏代码,是一堆操作的集合 Function过程是Excel的函数代码,我们可以自己编写,然后再窗口界面调用 要注意,Excel界面的函数和VBA的内置函数是不同的!Function编写的就相当于Excel的界面函数 3.VBA的

VBA实际上就是操作Excel,把Excel进行拆解,划分多层对象,由顶至下为(也可以说是层层包裹): Application:代表Excel程序本性,之后我们操作对象都在它之下,因为是唯一且至高点,所以代码中可以忽略不写它,因为必定是它的. Workbook:代表一个工作薄,加个s后的Workbooks代表当前打开的所有的工作薄. Worksheet:代表一个工作表,加工s后的Worksheets代表当前工作薄的所用工作表. Range:可以理解为一个工作表中的工作范围.同等级的还有Rows和

'================================ ' VBA采用Application.OnTime实现计时器 ' ' http://www.cnhup.com '================================ Public RunWhen As Double ' two minutes Public Const cRunWhat = "TheSub" ' the name of the procedure to run Sub StartTimer

Function findAndCopy(srcFile As String, destFile As String, cmdFile As String) Dim WSH As Object, wExec As Object, result Dim val, n Dim i As Integer Dim sFile As Object, Fso As Object Dim cmdStr As String Set WSH = CreateObject("WScript.Shell")

今天遇到一个任务,要把excel中的相同行合并:没有找到直接的办法(vlookup大概能做),试了试VBA挺好用 数据结构 第一.二列是描述字段,第二列元素唯一:第三到第八列是标志位 任务 合并描述字段相同的行,描述字段不变,标志位合并 方法: 1.录制空宏(命名为test1),查看宏进入VBA编辑器模式 2.代码 Sub test1() Dim i As Integer Dim j As Integer i = 2 '跳过标题行 ).Value <> "" ).Value

一直以来,ArcGIS10.1 的VBA安装后,菜单栏里也没相关菜单,听说是许可的问题,直到遇到这个问题才知道真正的原因. 由于项目需要使用了ArcGIS10.0, 不知道操作了什么,打开ArcMap就报这个错: 于是尝试去百度上搜索VBA安装包,居然没找到,然后又去桌面安装包里去找,找到了SDK VBA,安上就对了. 安装好这个VBA菜单也可以看得到了. 参考: http://blog.csdn.net/sydbc/article/details/17173833

今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起