-
mfc保存文件至指定路径_神奇!批量获取指定路径下的文件名,这个方法1秒搞定...
2020-12-04 21:35:07另外:点击我的头像关注后,私信回复关键词【函数】~免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板工作中,有时候为了做一个文件目录,需要将指定路径下的文件名批量提取出来。...另外:点击我的头像关注后,私信回复关键词【函数】~
免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板
工作中,有时候为了做一个文件目录,需要将指定路径下的文件名批量提取出来。
可能,很多同学都是不管三七二十一,一个一个复制粘贴就是了!最后累得一头大汗。
其实,解决这个问题有很多种方法,比如VBA,比如批处理。但今天,小熊老师教大家一招必杀技——1秒完成文件名批量提取。
如下图,我们有100个每日一练课程的课件文档,现在要批量将课件名提取到Excel中。
方法超级简单!
1、鼠标放在地址栏,复制当前文件的地址路径。
2、粘贴到浏览器地址栏中,按下Enter键。别问为什么,奇迹马上发生!
这时,浏览器中就会显示所有文件名称,按CTRL+A全选所有内容,复制到Excel表格中。
虽然复制到Excel表格中显示是有超链接的,但是现在是打不开文件的,所以选中A列,右键删除超链接,现在就得到了所有文件目录。
下一步,我们要建立目录超链接。
超链接用到公式HYPERLINK($A$1&A4,A4),这里注意粘贴到Excel表格中的A1单元格内容“E:Excel每日一练 的索引"这里要修改一下,只保留“E:Excel每日一练”这部分就可以。
具体操作见下图GIF:
现在,一个带有超链接导航的文件名目录就做好了。
怎么样,超级简单吧?
今天的内容就到这里。
『今日推荐』
表格学院仪表营来了!
——《3天学会Excel高端仪表盘(Dashboard)制作》,两个案例实操+100个Dashboard模板赠送,你也可以做出高大上的数据面板!
案例1:通过交互实现指标全面切换
案例2:通过切片器实现人口流动的可视化
另外:点击我的头像关注后,私信回复关键词【函数】~
免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板
-
python截屏保存到指定文件夹_VBA中拆分工作薄中的工作表,工作表复制、保存到指定的文件夹...
2021-01-26 04:39:57上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用...语法:Dir[(pathname[, attributes])]Pathname:第一个参数表示文件或者文件夹的路径。Attributes:第二个参数是文件或者文件...上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用进行了综合举例,这一篇文章继续对上一章没有分享的内容继续举例。
在举例子之前先对Dir函数具体说明一下:
Dir函数的作用就是返回一个文件或者文件夹的名称。
语法:
Dir[(pathname[, attributes])]
Pathname:第一个参数表示文件或者文件夹的路径。
Attributes:第二个参数是文件或者文件夹的属性。
vbNormal 默认值,表示指定返回没有任何属性的文件
vbDirectory 表示指定返回没有任何属性的文件和文件夹
当函数中没有第二个参数attributes就是表示返需要返回没有任何属性的文件。
pathname参数指定的文件或文件夹找不到时,Dir函数返回一个0长度的空字符串” ”。
把一个工作薄中的所有工作表拆分成单个的工作薄并保存
程序运行的结果:
代码1:
Sub ce()
Application.ScreenUpdating = False
Dim f As String
Dim s As Worksheet
f = ThisWorkbook.Path & " 今天要新建的目录"
If Len(Dir(f, vbDirector)) = 0 Then
MkDir f
End If
For Each s In Worksheets
s.Copy
ActiveWorkbook.SaveAs f & "" & s.Name & ".xls"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
再举个例子:
从20到120数据中随机从里面抽取4个数字a.b.c.d(可以重复),这4个数字计算:a/b * c/d,输出结果需要精确到小数点后6位!
代码2:
Sub test1()
Dim arr(1 To 4) As Variant
Dim i As Integer, j As Integer
Dim k As Double
Randomize
For i = 1 To 4
arr(i) = Int((Rnd * 100) + 20)
Next
For j = 1 To 4
Worksheets("sheet49").Cells(j, 1) = arr(j)
Next
k = (arr(1) / arr(2)) * (arr(3) / arr(4))
Worksheets("sheet49").Range("A11").NumberFormatLocal = "0.000000_ "
Worksheets("sheet49").Range("A11") = k
End Sub
运行结果:
喜欢的请关注我,谢谢! 今天就先分享到这里,明天继续分享。
-
VBA常用技巧
2014-12-21 16:39:28技巧48 保存指定工作表为工作簿文件 12 技巧49 打印预览时不触发事件 12 技巧50 设置工作簿文档属性信息 12 技巧51 不打开工作簿取得其他工作簿数据 12 51-1 使用公式 12 51-2 使用GetObject函数 12 51-3 隐藏... -
VBA编程技巧大全
2013-08-05 09:03:19技巧48 保存指定工作表为工作簿文件 116 技巧49 打印预览时不触发事件 118 技巧50 设置工作簿文档属性信息 120 技巧51 不打开工作簿取得其他工作簿数据 121 51-1 使用公式 121 51-2 使用GetObject函数 122 51-3 隐藏... -
VBA SolidWorks 二次开发 API ---从宏开始
2019-09-16 13:34:05Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到所需要查询...然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚...Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到所需要查询的API函数。我们以最简单的做一个拉伸特征开始,看如何找到对应的API
1.显示Macro工具条:
2. 点击工具条上的录制按钮,然后手动进行零件的新建,选择一个基准面,画一个圆,拉伸特征。然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚保存的文件。
3.那么我们就可以看到刚才录制操作代码了:
4. 在不太熟悉的情况下,可以在VBA的界面上,进入到Main代码之后,按F8,进行逐步调试,看哪一步是我们想了解的操作。
5.在我们知道 FeatureExtrusion2 这一步是创建拉伸特征之后 ,我们就可以去API帮助里面查询对应的API了。
进去之后 ,注意要找到最新的,有很多旧的API已经被弃用了。
这个才是最新的:
然后查询结果中还有一些示例(后面以Example(VBA C# VB.net)的),可以进一步进行深入学习。
对于一些宏操作无法录制出来的命令,只能通过API帮助去找对应的信息了。
建议把solidworks设计为英文界面,这个有助于在帮助中查找到对应的信息。
-
ExcelVBA Workbook工作簿对象介绍
2020-02-24 20:48:38Workbooks是所有工作簿对象组成的集合,而Wrokbook对象是Workbooks集合的一个成员。 1.引用集合中的工作簿 利用工作簿名引用工作...通过代码获得指定工作簿的名称、保存的路径等文件信息,示例代码如下。 Sub WbMsg...Workbooks是所有工作簿对象组成的集合,而Wrokbook对象是Workbooks集合的一个成员。
1.引用集合中的工作簿
利用工作簿名引用工作簿,如已经打开了"Book1.xlsm"工作簿,那么
Workbooks("Book1.xlsm")
就代表这个工作簿对象。2.访问对象的属性,获得工作簿文件的信息
通过代码获得指定工作簿的名称、保存的路径等文件信息,示例代码如下。
Sub WbMsg() Range("B2") = ThisWorkbook.Name '获得工作簿的名称 Range("B3") = ThisWorkbook.Path '获得工作簿文件所在的路径 Range("B4") = ThisWorkbook.FullName '获得带路径的工作簿名称 End Sub
代码中的ThisWorkbook代表代码所在的工作簿对象。
注:后缀为.xlsx的工作簿无法保存VBA代码。如果工作簿中编写了宏代码,则将工作簿保存成后缀为.xls或者.xlsm的文件。
3.用Add方法创建工作簿
Workbooks.Add '创建空白工作簿
Workbooks.Add "D:\模板.xlsm" '指定用来创建工作簿的模板
4.用Open方法打开工作簿
打开一个Excel工作簿文件,最简单的方法是使用Workbooks对象的Open方法,示例代码入戏。
Workbooks.Open Filename:="D:\模板.xlsm"
方法Open和参数Filename之间用空格分隔,参数及参数数值之间用":="连接。
在实际使用时,代码中的参数名称Filename可以省略不写,将代码写为:
Workbooks.Open "D:\模板.xlsm"
更改代码中的路径及文件名称,即可打开其他的工作簿文件。
5.用Activate方法激活工作簿
虽然可以同时打开多个工作簿,但同一时间只能有一个工作簿是活动的。如果想让不活动的工作簿变为活动工作簿,可以用Wrokbooks对象的Activate方法激活它。例如:
Workbooks("模板.xlsm").Activate
6.保存工作簿文件
用Save方法保存已经存在的文件,例如:
ThisWorkbook.Save '保存代码所在的工作簿
用SaveAs方法将工作簿另存为新文件。如果是第1次保存一个新建的工作簿,或需要将工作簿另存为一个新文件时,应该使用SaveAs方法,例如:
ThisWorkbook.SaveAs Filename:="D:\Test.xlsm"
另存新文件后不关闭原文件。使用SaveAs方法将工作簿另存为新文件后,Excel将关闭原文件并自动打开另存为得到的新文件,如果希望继续保留原文件不打开新文件,应该使用SaveCopyAs方法。例如:
ThisWorkbook.SaveCopyAs Filename:="D:\Test.xlsm"
7.用Close方法关闭工作簿
调用工作簿对象的Close方法,可以关闭打开的工作簿。例如:
Workbooks.Close '关闭当前打开的所有工作簿
可以通过索引号、名称等指定要打开的工作簿,例如:
Workbooks("Test.xlsm").Close '关闭名称为Test的工作簿
Workbooks("Test.xlsm").Close savechange:=True '关闭并保存对工作簿的修改
8. ThisWorkbook与ActiveWorkbook
两者都返回Workbook对象。不同之处在于,ThisWorkbook是对代码所在工作簿的引用,ActiveWorkbook是对活动工作簿的引用。
微信公众号:VBA168
淘宝店铺地址:https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162
关注微信公众号,每天及时接收Excel VBA经典示例讲解。
淘宝店铺提供Excel定制服务。
祝你工作和学习更轻松!
-
api 二次 开发 禅道_VBA SolidWorks 二次开发 API ---从宏开始
2020-12-11 11:20:32Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到...然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚保存的文件... -
07 - VBA常用操作(01)
2020-10-26 13:57:59基本操作1.1 自动保存表格1.2 某个单元格的值1.3 当前文件的全路径1.4 当前文件所在文件夹1.5 当前的Sheet页2 高级操作2.1 自动执行2.2 定时 1. 基本操作 1.1 自动保存表格 ActiveWorkbook.Save 1.2 某个单元格的... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2402041通过对话框指定文件名和保存位置并保存工作簿(之一) 02042通过对话框指定文件名和保存位置并保存工作簿(之二) 02043关闭工作簿,不保存 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 ... -
打印文件夹下所有工作簿中指定的工作表
2018-01-22 10:36:48现已拥有2003版代码,但由于即03版excel之后,微软取消了vba的filesearch功能,不知为何,请问有高手可以用别的代码代替此功能吗? 可以在excel2010中使用的代码 有人会用filesystemobject ,或者其他代码能达到效果... -
下面这段(合并excel表)代码运行中出现下标越界,为什么
2018-04-19 05:02:46'开始遍历指定文件夹路径下的每个工作簿 Do While f <> "" If f <> ThisWorkbook.Name Then '避免同名文件重复打开出错 With GetObject(p & f) '以\'只读\'形式读取文件时,使用getobject方法会比workbooks.... -
ArcMap使用手册.pdf
2012-02-19 15:02:46添加路径事件 119 创建和添加新的要素类 121 关于坐标系 123 指定坐标系 126 如何在地图上参照数据 130 在地图上参照数据 131 修复和更新数据链接 132 第五章 操作图层 135 图层文件描述 136 图层属性功能... -
-
Excel百宝箱9.0无限制破解版
2012-02-03 19:05:29【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表... -
Excel百宝箱
2012-10-27 17:09:21【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除当前表... -
FMLDATA的源码
2014-06-02 15:57:42文件是很简单的二进制格式文件,一个文件由多个记录组成,每个记录两个字段,第一个字段为DZH时间,为INT型,保存的是与1970-1-1 00:00:00间隔秒数,第二个字段为指标/序列值,为Float型,保存具体数值,注意Float型... -
Excel百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除... -
arcgis工具
2012-10-22 22:37:31指定输出栅格的名称为路径 执行命令: <空间分析>-<栅格计算器> 构造表达式:[Landuse]*[polyClip4-polyclip4] ,执行栅格图层:Landuse 和 用以剪切 的栅格polyClip4 之间的相乘运算 GIS软件应用-ArcGIS 得到的... -
autocad命令全集
2008-10-24 21:46:23112 GROUP G或-G 创建一个指定各称的目标选择组 113 HATCH –H 通过命令行进行区域填充图样 114 HATCHEDIT HE 编辑区域填充图样 115 HELP 显示AutoCAD在线帮助信息 116 HIDE 消隐 117 HYPERLINK 插入超级... -
PROJECT 2007宝典 9/9
2012-04-01 19:13:0015.2.3 合并项目——保存或不保存 15.3 查看多个项目 15.4 查看跨项目的关键路径 15.5 在项目间共享资源 15.5.1 创建资源库并共享资源 15.5.2 打开使用资源库的项目 15.5.3 更新... -
EXCEL集成工具箱完整版 (简体/繁体/英文多国语言版) V7.0
2010-08-13 10:31:10【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两... -
EXCEL集成工具箱V9.0 多国语言最终原版(2003-2010通用)
2011-01-07 20:40:25【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两... -
EXCEL集成工具箱V6.0
2010-09-11 01:44:37【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两... -
EXCEL集成工具箱V8.0 多国语言版(2003-2010通用)
2010-09-11 12:08:58【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两... -
EXCEL集成工具箱V8.0完整增强版(精简)
2010-09-23 16:58:17【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两... -
Excel百宝箱8.0
2011-06-07 21:32:17【图片查询工具】【将选区保存为图片】【生成个性化批注】 【插入GIF动画】【插入Flash动画】【禁止录入重复值】【相同项与不同项】【建文件目录】【提取选区重复值】【清除列中重复值】【标示重复值】【删除空白... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24File用于创建带链接的文件目录,有三个参数,第一参数指定路径,第二参数定指文件类型。第三参数指定编号(数量) 大写将阿拉伯数字转为人民币金额大写。仅需要一个参数,即单元格引用 批注提取批注中的文字。只有一... -
网管教程 从入门到精通软件篇.txt
2010-04-25 22:43:49将指定的驱动器格式化为指定的文件系统。含有下列参数的 format 命令仅在使用故障恢复控制台时才可用。可在命令提示符下使用带有不同参数的 format 命令。 format [ drive:] [ /fs:file-system] 参数 ...