VBA通过一定规律匹配后另存为文件

最新推荐文章于 2023-07-27 16:40:02 发布
VIP文章 最新推荐文章于 2023-07-27 16:40:02 发布
阅读量666 收藏
点赞数
分类专栏： VBA 文章标签： VBA 文本处理
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/liuxiaoddd/article/details/120996536
版权

下载下来80多个文件只有中文机构名，通过机构对照表匹配对应的机构号，然后用机构号来另存文件。

运行前：

运行后：

 

机构表：

 

代码附上：

Sub GetAll()
Dim MyPath$

最低0.47元/天 解锁文章
liuxiaoddd
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【VBA研究】 另存为自动命名
03-12
公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。 公司各种系统需要各式各样的导入模板，需要快速的制作模板另存为特定的工作簿，工作簿的命名要求一定的格式：年月日时分+区分标识。 在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。在vb中array() 函数用于创建数组，表示返回一个包含数组的 Variant。通常用Array数组函数选定指定的多个工作表： Worksheets(Array("清单信息")).Copy 复制问题解决后，使用saveas解决另存为的问题。在代码中用format函数取现在的时间，VBA 的 Format 函数与工作表函数 TEXT 用法基本相同，但功能更加强大，许多格式只能用于VBA 的 Format 函数，而不能用于工作表函数 TEXT 。 Format(Now, "yyyymmddhhmm") 把format函数嵌套进 saveas 代码中，即可实现工作簿命名自动取当前的时间，必要是可以加下后缀，避免工作簿名称重复。format函数取到分钟即可。不过在一分钟内不要再点另存为，否则工作簿名称重复。另存为后活动工作簿为新的工作簿。想返回原来工作簿的童鞋们可以用Activate返回指定的工作表。这样做代码，即高效又避免工作簿名称杂乱无章。
VBA每日一练（1）：如何把EXCEL的1个或多个sheet 整体导出为/ 另存为 txt ？
奔跑的犀牛先生
11-19 4287
一些废话：对命题的思考和解题步骤 Q：为什么要导出一个sheet为txt ？ A：很多时候，很多程序只能读txt，能直接读excel的偏少 我思考这个问题的几个步骤，我打算从简单到复杂，分步骤实现 先试着把一个sheet导出为txt 接下来，我打算试试导出成其他格式 把多个sheet导出为多个其他文件？ 然后考虑试试从txt等文件格式里导入 从多个文件导入到多张表 多个文件...
Excel VBA-批量将多个sheet表另存为单独的工作薄文件
热门推荐
Crystal_Data的博客
08-06 4万+
欢迎使用Markdown编辑器写博客 本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦： Markdown和扩展Markdown简洁的语法 代码块高亮 图片链接和图片上传 LaTex数学公式 UML序列图和流程图 离线写博客 导入导出Markdown文件 丰富的快捷键 快捷键 加粗 Ctrl + B 斜体 Ctrl + I
VBA中新建、读取、保存和另存EXCEL
weixin_33841722的博客
08-29 838
Dim app_excel As Excel.Application Dim book_excel As Excel.Workbook Set app_excel = New Excel.Application '申请一个Excel.Application内存...
VBA程序--文件夹内所有文件_文件类型csv另存为xlsx
STR_Liang的博客
10-24 1527
Function 文件类型csv另存为xlsx() '请记得先改一下路径，做好备份，最好不要另存为原路径 'ActiveWorkbook.SaveAs Filename:=Replace(ActiveWorkbook.Path, "新数据", "新数据-新") & "/" & Replace(ActiveWorkbook.name, "csv", "xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False .
学以致用——使用VBA复制整理后的数据到新的工作表并另存为新文件(Save a worksheet as a workbook)
预见未来to50的专栏
06-18 2万+
需求：某个字段需要基于当前数据和十几个独立的源文件定期整理，整理后的文件会多出0到n条新数据。目前采用全量更新的方式导入这些新数据。即，需要提供包括这几条新数据在内的所有数据的完整文件。而这个完整文件，可通过以下代码自动生成。（很简单的一个VBA小段程序）Sub createNewDataFile() Dim sourceRows As Integer '整理后的数据行数（用...
VBA一键sheet页另存为Excel
07-03
VBA一键sheet页另存为Excel，批量拆分Excel sheet页为单个文档。
vba另存为”对话框备份文件
05-27
vba另存为按钮，代码原件。可直接复制插入
VBA 保存文件名和储存
feixiaoniu987的博客
07-08 2566
Sub 保存文件名() Range("A1:J20").Select aa = Mid(ActiveWorkbook.Name, 1, 22) '切片文件名字符 Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\excel-HONG\" & aa & ".pdf" _ , Quality:=xlQualityStandard, ...
VBA操作WORD（六）另存为不含宏的文档
最新发布
rielzhou的博客
07-27 1687
所以考虑用dialog弹出另存的对话框，由用户选择文件类型和修改文件名（默认默认为文件内容的第一行（标题），减少手工劳动），但又有新的问题，dialog的.execute命令会直接将当前文档另存为新文档，导致VBA宏代码等也跟着到新文档，徒增文件体积。而我希望不要把宏代码带到新文档，采用声明一个新的文档对象，并且把当前文档的内容复制过去的形式，再使用了SaveAs2方法另存为新生成的文档对象。上面的代码很好的结合了两方的优点，解决了缺点，完美！上面的处理方法是原创，反正我没看到过类似的解决方案。
vba 中代码实现另存为，支持2007及2003格式
11-15
vba 中代码实现另存为，支持2007及2003格式
EXCEL vba 循环复制 粘贴 另存为 新的文件VBA代码 分别设置单元格内容
12-02
EXCEL vba 循环复制 粘贴 另存为 新的文件VBA代码 分别设置单元格内容 With Workbooks(ThisWorkbook.Name) Application.EnableEvents = False Application.ScreenUpdating = False Application.DisplayAlerts = False If Application.CutCopyMode = True Then Application.CutCopyMode = False Application.StandardFont = "宋体"
使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式
12-08
使用vb按指定路径及文件名将EXCEL另存为横版PDF等格式
ExcelVBA.zip
10-26
VBA加解密工具，秒破VBA工程密码
VBA事件-自动另存重命名.xls
04-07
VBA事件-自动另存重命名.xls
两万常用汉字的拼音+首字母缩写+unicode编码对照表
liuxiaoddd的专栏
08-14 9346
最近做项目遇到一项需求，为了隐藏汉字，对医院名称使用首字母代替，对医生名称用拼音代替。 查阅了众多资料，比较分散，也不规范，做一个统一，问题包括以下几方面： 1. 读出汉字的拼音首字母可通过Excel 公式实现； 2. 读出汉字的拼音实现方法，基本需要借助编程，但是目前网上流传最广的版本是比较老旧的版本，不仅编码覆盖不全，而且有错误的mapping。 3. 得到2万个常用的汉字并不容易，最...
最近开发的基于Excel的考试系统---VBA
liuxiaoddd的专栏
12-03 8791
应朋友之邀，用EXCEL做了一个简单的考试系统，由于没有服务器，所以没有网络通信，只是简单的本地判断得分。 在每台电脑上面都可以进行考试，根据题库随机出题，交卷后自动统计分数。 共50道单项选择题，题目可以通过其他页签自行定制。 技术并不复杂，主要还是从一个小型系统的健壮性出发，对VBA整体加深了解，历时两天。 . 资源已经上传： https://download.csdn.n...
VBA 入门进阶 实用小程序
liuxiaoddd的专栏
02-25 4198
这些都是平时用到的小程序，涉及到知识点的都总结下来了，主要包括循环的利用，文件读写，学会了很简单，只要把逻辑整理清楚就好。 最复杂的是没有规律的Excel文档，这个最让人头疼。。 --------------------------------------------------------------------------------------------------------
Excel VBA遍历所有sheet创作目录并超链接，无视特殊符号
liuxiaoddd的专栏
07-02 3168
通过VBA遍历所有的sheet并在第一页创建超链接很简单，网上已经提供了很多相关的例子，我在此列举一种最简单的，直接copy即可使用，如下： Sub lianjie() Dim x As Long x = 0 For x = 1 To Sheets.Count '从第四页开始     Sheet1.Hyperlinks.Add Anchor:=Cells(x, 1),  _
vba另存为excel文件
06-08
好的，以下是 VBA 代码示例，可以将当前正在运行的 Excel 文件另存为指定的文件路径和文件名： ```vb Sub SaveAsExcelFile() Dim filePath As String filePath = "C:\Users\YourName\Desktop\example.xlsx" ' ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值