Excel VBA批量处理寸照名字

Excel VBA批量处理寸照名字（类模块加FSO版）

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

Excel VBA批量处理寸照名字

需求:因为处理学生学籍照片,从照相馆拿回来的寸照是按班级整理好,文件名是相机编号的文件.那么处理的话,是这么一个思路,通过Excel表格打印出各班A4照片列表,让学生自行填上照片对应姓名.表格收回来后Excel表格上填入对应姓名,通过VBA更改电子档照片文件名. Function getSubDirectory()'获取当前文件的下层所有目录 Dim strCurDir, strDirectoryName, strDirs As String Dim arrDirectoryName() Dim…

Excel VBA ——批量工作表重命名

虽然平常在用excel 2010重命名工作表的时候,一般可能会用"双击工作表"的方法来重名,但是遇到大批量重名的时候就很麻烦. 我的方法,先建一张新表,然后在第一列写好要命名的表名字,然后在VBE窗口里面输入代码 Sub rename() '批量工作表重命名 Dim i As Integer For i = 1 To 5 Worksheets(i).Name = Cells(i, 1) Next End Sub…

Excel VBA批量修改文件夹下的文件名

今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_Click() Dim varFileList As Variant MsgBox "选择要重命名文件所在的文件夹,点击确定!" With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = F…

Excel vba：批量生成超链接，添加边框，移动sheet等

Excel vba 操作批量生成sheet目录并添加超链接 Sub Add_Sheets_Link() 'Worksheets(5)为清单目录页 '在sheet页上生成sheet页名字并超链接 To ThisWorkbook.Worksheets.Count Worksheets().Cells(i + , ).Value = Worksheets(i).Name Worksheets().Hyperlinks.Add Anchor:=Worksheets().Cells(i + , ), A…

将excel文件批量转成pdf

防止数据编辑.改动带来的不一致性,常常要将excel文件转成pdf文件再共享.发送给对方.有时excel文件还挺多,手头上保存实在是太慢了.就考虑用VBA批量转置. 掌握几个东西,就比较容易了: 1.首先要用Dir函数遍历文件夹中的excel文件.从excel2007开始就取消了FileSearch函数.只能Dir函数了. 2.Dir函数的目的就是遍历这个目录下的文件.第一次用Dir时,是要写参数的(就是在哪个目录下文件路径找什么格式的文件),比如说Dir("D:\Download\"…

【游戏开发】Excel表格批量转换成lua的转表工具

一.简介在上篇博客<[游戏开发]Excel表格批量转换成CSV的小工具> 中,我们介绍了如何将策划提供的Excel表格转换为轻便的CSV文件供开发人员使用.实际在Unity开发中,很多游戏都是使用Lua语言进行开发的.如果要用Lua直接读取CSV文件的话,又要写个对应的CSV解析类,不方便的同时还会影响一些加载速度,牺牲游戏性能.因此我们可以直接将Excel表格转换为lua文件,这样就可以高效.方便地在Lua中使用策划配置的数据了.在本篇博客中,马三将会和大家一起,用C#语言实现一个Exce…

bat批量修改图片的名字实现（两种方法）

问题描述: 业务中遇到需要批量修改大量图片的名字. 如下图,需要修改为图片名字“u=”之后和“,”之前的那一串解决思路1: bat批处理,网上查找相关代码如下: @echo off SetLocal EnableDelayedExpansion REM 要查找的文件 set ext=*.jpg REM 新文件名在原文件名中的起始位置,从0开始 REM 新文件名在原文件名中的长度 REM 遍历文件,并截取编号作为新文件名 for /r %%a in (!ext!) do ( REM 文件名 se…

【Python】通过python代码实现demo_test环境的登录，通过csv/txt/excel文件批量添加课程并开启课程操作--（刚开始项目页面模块元素这种鸟被称作pageobject 等这些搞完然后把你的定位器、数据和脚本在分离就是传说中那个叫数据驱动的鸟）

一.1.通过csv文件批量导入数据 1 from selenium import webdriver from time import ctime,sleep import csv #循环读取每一行每一个字段csv bid_info = csv.DictReader(open('E:\\script\\python-script\\demo_test_courses.csv','r')) dict_data = [] for lines in bid_info: if bid_info.line…

Excel VBA入门（九）操作工作薄

虽然我前面讲过,在VBA中操作工作薄并不是件明智的事,但有些时候,还是避免不了要这么做.绝大多数情况下,我们要做的是获取到某个工作薄对象,并以此来获得其中的工作表对象,然后再对工作表中的数据进行处理.而后面这一部分(操作工作表)在前面已经讲过了,所以本章只讲如何在VBA中打开.关闭工作薄,以及介绍两个常用的工作薄对象.在VBA中打开工作薄有两种方法:显式打开及隐式打开. 1. 显式打开显式打开即跟我们手动双击打开一个Excel文件一样,可以看到工作薄的内容,可以在里面进行各种操作.代码及示例如…

Excel VBA入门（八）单元格边框

本文基于以下文件 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") ' 设置边框格式 ' 这是常规的实线.细线,默认颜色为黑色 rng.Borders.LineStyle = xl…

Excel VBA入门（五）Excel对象操作

本章是本系列教程的重点.但我觉得应该不是难点.从第零章开始到学完本章,应该可以把VBA用于实战中了. Excel对象主要有4个: 工作薄 Workbook 工作表 Worksheet 单元格区域 Range 单元格 Cell 这里我只讲后面3个,不讲工作薄.原因有2点: 第零章里面讲过,工作薄其实就是一个Excel文件.我不建议直接操作Excel文件.因为文件属性被更改的机率高.比如修改了文件名,或者文件被移动到其它地方去了,这样的话,写死的VBA代码就不管用了.这是主要原因学完本章,或者后面…

Excel VBA 入门（零）

本教程所用系统环境: Windows 10 Excel 2013 1. 添加开发工具打开Excel,依然找到"文件"->"选项"->"自定义功能区",在右侧主选项卡下面的选项中,找到"开发工具",在前面的小框打勾,确定.返回Excel,即可在菜单栏右侧看到有开发工具: 2. 使用VBE VBE即VBA的编辑环境.通常有两种方式可以进入菜单栏 -> 开发工具 -> Visual Basic 快捷键:A…

如何调试Excel VBA代码

Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试. 1.编译错误常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色. 错误的语法结构,比如if和end if没有对应上:代码运行前会给出编译错误提示. 类型不匹配:函数输入的参数与定义时的参数类型不同时会出现该类错误. 变量未定义:指使用了没有申明的变量类型(当Option Explicit时) 建议: 格式规范化,严格缩进.VBA插件Smart Indent是一个很好的辅助工具.这…

【VBA研究】Excel VBA利用ADODB访问数据库使用小结

[转自] http://blog.csdn.net/iamlaosong/article/details/18043433 作者:iamlaosong ▲连接Oracle数据库 Set cnn = CreateObject("ADODB.Connection") cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;" dl580是tnsnames.ora中…

Excel VBA表格自行开发计划

Excel VBA表格自行开发计划要求功能 1. 批量删除 2. [X] 批量填充 3. [X] 批量重命名 4. [ ] 按颜色求和 5. [ ] 按底纹色选中单元格 6. [ ] 统计底纹颜色个数 7. [ ] 统计字体颜色个数 8. [ ] 按颜色求和 9. [ ] 升序.降序排序工作表 10. [X] 批量删除非活动工作表 11. [X] 批量删除空工作表 12. [X] 批量复制工作表并重命名排序 13. [ ] 删除空白行空白列 14. [ ] 删除工作表所有对象(子项:删除图片,…

Excel VBA入门（十）用户窗体开发

VBA 中的用户窗体就是指带 UI 的用户界面,在运行的时候会单独弹出一个窗口,类似于在 windows 系统中运行的一个可执行程序一样(这个说法不太严谨,因为可执行程序也可能是只有命令窗口而没有 UI 的).再具体一点,就是一个窗口界面当中,有可能会包含有文本框.复选框.单选按钮.下拉列表,就如在网页中填写的表单一样.再具体一点,就是如下图这样的: 1. 用户界面设计如上图,UI 设计的部分其实是很简单的,微软的特色,直接拖拉拽就可以实现了.而每一个控件(或者称为元素,也即放进窗体中的各种按…

来吧！带你玩转 Excel VBA

来吧!带你玩转 Excel VBA 从错失良机到艰辛的DOS征程,从坎坷购机自学路到转机起程,从爱好到事业,他从一个完全不懂电脑的人到VBA高级应用者,一切全是自学…… 我是罗刚君,来自四川的一个小县城——资中县. 我是个地道的三无人员——无高等学历(初中毕业).无突出特长.无显赫背景,所以1996年1月,当时才19岁的我就踏上了打工之路. 错失机遇在打工生涯的前几年,一直在东莞市裕元鞋厂流水线上工作,无缘接触电脑,甚至曾有一段时间在心理上抵触电脑. 记得大概是1998 埗年时,东莞市高镇…

C#调用Excel VBA宏

近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进行相应的处理.为了使用方便,我写了一个执行Excel VBA宏的帮助类 .放在博客里做个备份也希望对有类似需求的朋友有所帮助.帮助类仅提供了一个方法:RunExcelMacro 参数说明: string excelFilePath Excel文件路径 …

2017-5-29 Excel VBA 小游戏

---恢复内容开始--- 转一个Excel VBA的小游戏,最近对excel有了更深入的了解,功能很强大,也刷新了我对待事情的态度. 一.准备界面我们先来把游戏界面准备好,选中前4行,行高调成50,这时候单元格就近似一个正方形.然后给4*4的单元格加上全部框线,再加粗外框线.字体改成微软雅黑,加粗,居中.第6行A列写上SCORE,C列写上MOVES,都加粗. 一般2048这样的游戏需要用状态机来实现,就是程序无限运行直到游戏结束.在Excel中这种方法不太合适,使用工作表自带的Workshee…

【游戏开发】Excel表格批量转换成CSV的小工具

一.前言在工作的过程中,我们有时可能会面临将Excel表格转换成CSV格式文件的需求.这尤其在游戏开发中体现的最为明显,策划的数据文档大多是一些Excel表格,且不说这些表格在游戏中读取的速度,但就论占用内存来说,同样的数据量Excel表格所占用的内存要远远大于CSV,因此将Excel转换成CSV势在必行.如果单单转换一个Excel表格还好,直接另存为就搞定的,但是如何将一个文件下的N个Execl表格转成CSV呢?今天马三就来和大家一起用Python撸一个Excel表格批量转换CSV的小工具—…

使用Excel VBA编程将网点的百度坐标转换后标注到高德地图上

公司网点表存储的坐标是百度坐标,现需要将网点位置标注到高德地图上,研究了一下高德地图的云图数据模版 http://lbs.amap.com/yuntu/reference/cloudstorage和坐标转换服务http://lbsbbs.amap.com/forum.php?mod=viewthread&tid=724,云数据管理平台http://yuntu.amap.com/datamanager/ ,实现了excel文件的导入,现将实现步骤及使用的一些技巧总结一下: 本地数据导出为高德云…

Excel VBA附合导线平差自动计算表

这是6,7年前做的一个excel vba自动计算附合导线平差的表格. 对于做测绘的朋友来说,附合导线平差是最基础的技能,目前来说,能平差的软件和工具也很多,像南方的平差易,科傻平差.清华三维平差等,但这些软件操作较复杂,且界面不友好,于是很多人用excel强大的公式函数功能,做了很多自动计算的表格,但这些表格很死板,未知点的个数不能自定义,操作起来也并不简单,于是本人改进了表格,能够实现按自定义未知点个数进行平差计算,所有步骤都是自动化的,只需要输入起算点和观测数据即可,计算结果准确,使用方便.…

Excel VBA 连接各种数据库（二） VBA连接Oracle数据库

本文主要内容: Oracle环境配置 ODBC驱动设置.第三方驱动下载 VBA连接Oracle连接方法 Oracle10g官方免账号下载地址系统环境: Windows 7 64bit Excel 2016 64bit Oracle_win64_11gR2_client完整客户端(64bit) 1. VBA连接Oracle前的环境配置如果想连接本地数据库,必须先安装Oracle服务器端. 我这里使用的是内网其他电脑上的Oracle数据库,这里只安装Oracle客户端就可以. 1.1 安装Ora…

Excel VBA（宏）:添加宏

写在前面: .编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结合常用窗口进行编写.调试. .部分对象有提示,如Dim a As,敲击空格后有提示. .所有宏要运行,必须启动宏.(2007版启动宏,点击表格左上角 “excel选项” “信任中心” “信任中心设置” “启用宏”) .“无法在未启用宏的工作簿中保存以下功能”提示,选是后,宏会整个丢失. 2007版,…