精华内容
下载资源
问答
  • 另外:点击我的头像关注后,私信回复关键词【函数】~免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板工作中,有时候为了做一个文件目录,需要将指定路径下的文件名批量提取出来。...
    b6fea1be11f4d538c0a2973bf6525824.png

    另外:点击我的头像关注后,私信回复关键词【函数】~

    免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板

    工作中,有时候为了做一个文件目录,需要将指定路径下的文件名批量提取出来。

    可能,很多同学都是不管三七二十一,一个一个复制粘贴就是了!最后累得一头大汗。

    其实,解决这个问题有很多种方法,比如VBA,比如批处理。但今天,小熊老师教大家一招必杀技——1秒完成文件名批量提取。


    如下图,我们有100个每日一练课程的课件文档,现在要批量将课件名提取到Excel中。

    938d882e13a85a45785655b08990fe67.png

    方法超级简单!

    1、鼠标放在地址栏,复制当前文件的地址路径。

    1576586b6c7f4b61134f25b3e10a6b63.png

    2、粘贴到浏览器地址栏中,按下Enter键。别问为什么,奇迹马上发生!

    8c720451fcf06f3e552900a3472b03bb.png

    这时,浏览器中就会显示所有文件名称,按CTRL+A全选所有内容,复制到Excel表格中。

    虽然复制到Excel表格中显示是有超链接的,但是现在是打不开文件的,所以选中A列,右键删除超链接,现在就得到了所有文件目录。

    下一步,我们要建立目录超链接。

    991fa744030debd89696942691970c1b.png

    超链接用到公式HYPERLINK($A$1&A4,A4),这里注意粘贴到Excel表格中的A1单元格内容“E:Excel每日一练 的索引"这里要修改一下,只保留“E:Excel每日一练”这部分就可以。

    具体操作见下图GIF:

    4841d0fa8e04bfcd4b227040d855a16b.gif

    现在,一个带有超链接导航的文件名目录就做好了。

    怎么样,超级简单吧?

    今天的内容就到这里。


    『今日推荐』

    表格学院仪表营来了!

    ——《3天学会Excel高端仪表盘(Dashboard)制作》,两个案例实操+100个Dashboard模板赠送,你也可以做出高大上的数据面板!

    dfc079ad385cf8f64da548ed54a57d9a.gif

    案例1:通过交互实现指标全面切换

    b0a397c675fd3ce5739e7bb15f438d82.gif

    案例2:通过切片器实现人口流动的可视化

    另外:点击我的头像关注后,私信回复关键词【函数】~

    免费领取: Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板

    展开全文
  • 上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用...语法:Dir[(pathname[, attributes])]Pathname:第一个参数表示文件或者文件夹的路径。Attributes:第二个参数是文件或者文件...

    上一章给大家分享了前面学的数组和Range对象的属性方法,工作薄和工作表的属性的使用进行了综合举例,这一篇文章继续对上一章没有分享的内容继续举例。

    在举例子之前先对Dir函数具体说明一下:

    Dir函数的作用就是返回一个文件或者文件夹的名称。

    语法:

    Dir[(pathname[, attributes])]

    Pathname:第一个参数表示文件或者文件夹的路径。

    Attributes:第二个参数是文件或者文件夹的属性。

    vbNormal 默认值,表示指定返回没有任何属性的文件

    vbDirectory 表示指定返回没有任何属性的文件和文件夹

    当函数中没有第二个参数attributes就是表示返需要返回没有任何属性的文件。

    pathname参数指定的文件或文件夹找不到时,Dir函数返回一个0长度的空字符串” ”。

    把一个工作薄中的所有工作表拆分成单个的工作薄并保存

    a7414edeef3607f46f1b0913c8e943e7.png

    程序运行的结果:

    8d6727535d7a931e37b67fac307a10fa.png

    代码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位!

    c473051caa5c629590d7ad38282d93e9.png

    代码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

    运行结果:

    31e290b82ca40a77f6d36d4715bf88b6.png

    喜欢的请关注我,谢谢! 今天就先分享到这里,明天继续分享。

    展开全文
  • 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:05
    Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到所需要查询...然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚...

    Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到所需要查询的API函数。我们以最简单的做一个拉伸特征开始,看如何找到对应的API

    1.显示Macro工具条:

    2. 点击工具条上的录制按钮,然后手动进行零件的新建,选择一个基准面,画一个圆,拉伸特征。然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚保存的文件。

    3.那么我们就可以看到刚才录制操作代码了:

    4. 在不太熟悉的情况下,可以在VBA的界面上,进入到Main代码之后,按F8,进行逐步调试,看哪一步是我们想了解的操作。

    5.在我们知道 FeatureExtrusion2 这一步是创建拉伸特征之后 ,我们就可以去API帮助里面查询对应的API了。 

    进去之后 ,注意要找到最新的,有很多旧的API已经被弃用了。

    这个才是最新的:

    然后查询结果中还有一些示例(后面以Example(VBA C# VB.net)的),可以进一步进行深入学习。

    对于一些宏操作无法录制出来的命令,只能通过API帮助去找对应的信息了。

    建议把solidworks设计为英文界面,这个有助于在帮助中查找到对应的信息。

     

     

    展开全文
  • Workbooks是所有工作簿对象组成的集合,而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定制服务。

    祝你工作和学习更轻松!


    展开全文
  • Macro是可以用来录制一些操作的工具,然后你可以看到具体内部执行的一些代码。通过这些代码,我们可以更快更直接的找到...然后点击工具条的停止按钮,指定保存路径以及文件名。 最后点击编辑宏,选择刚刚保存的文件...
  • 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 某个单元格的...
  • 02041通过对话框指定文件名和保存位置并保存工作簿(之一) 02042通过对话框指定文件名和保存位置并保存工作簿(之二) 02043关闭工作簿,不保存 02044关闭工作簿前进行保存 02045关闭所有打开的工作簿,不保存 ...
  • 现已拥有2003版代码,但由于即03版excel之后,微软取消了vba的filesearch功能,不知为何,请问有高手可以用别的代码代替此功能吗? 可以在excel2010中使用的代码 有人会用filesystemobject ,或者其他代码能达到效果...
  • '开始遍历指定文件夹路径下的每个工作簿 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型...
  • 【批量导入图片(自动排版)】:批量导入图片,且自动排版,可多行多列排版,可任意指定图片大小与路径 【批量导入图片到批注】:批量地将图片导入到批注中,可以自由设定图片显示大小 【删除所有图片】:删除...
  • arcgis工具

    2012-10-22 22:37:31
    指定输出栅格的名称为路径 执行命令: <空间分析>-<栅格计算器> 构造表达式:[Landuse]*[polyClip4-polyclip4] ,执行栅格图层:Landuse 和 用以剪切 的栅格polyClip4 之间的相乘运算 GIS软件应用-ArcGIS 得到的...
  • autocad命令全集

    2008-10-24 21:46:23
    112 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:00
     15.2.3 合并项目——保存或不保存   15.3 查看多个项目   15.4 查看跨项目的关键路径   15.5 在项目间共享资源   15.5.1 创建资源库并共享资源   15.5.2 打开使用资源库的项目   15.5.3 更新...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【图片查询工具】【将选区保存为图片】【生成个性化批注】 【插入GIF动画】【插入Flash动画】【禁止录入重复值】【相同项与不同项】【建文件目录】【提取选区重复值】【清除列中重复值】【标示重复值】【删除空白...
  • File用于创建带链接的文件目录,有三个参数,第一参数指定路径,第二参数定指文件类型。第三参数指定编号(数量) 大写将阿拉伯数字转为人民币金额大写。仅需要一个参数,即单元格引用 批注提取批注中的文字。只有一...
  •  将指定的驱动器格式化为指定的文件系统。含有下列参数的 format 命令仅在使用故障恢复控制台时才可用。可在命令提示符下使用带有不同参数的 format 命令。  format [ drive:] [ /fs:file-system]  参数  ...

空空如也

空空如也

1 2
收藏数 28
精华内容 11
关键字:

vba指定保存路径