【005】读取当前打开的文件名_#VBA

最新推荐文章于 2023-06-25 12:35:35 发布
最新推荐文章于 2023-06-25 12:35:35 发布
阅读量799 收藏
点赞数
分类专栏： VBA 文章标签： excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_37620743/article/details/108307190
版权

文章目录

读取当前文件名

    Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)     '读取的文件名除去后缀
    FileKey = Version & ".xlsm"     '读取的文件名加上后缀

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

#加油#
木易:_/
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
excel vba 自动读取文件名与文件夹名
07-18
excel vba 自动读取文件名与文件夹名
【VBA】获取文件名、文件夹名
GY_五年的博客
02-15 1万+
获取文件名 Function msoFile(Optional filename) With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Clear .InitialFileName = filename .Filters.Add "TXT Files", "*.csv;*.txt" .Filt
提取文件名--VBA代码分享
weixin_45330070的博客
03-06 2801
提取文件名的VBA代码分享，以下为代码及使用方法。 （对于需要使用VBA来调用窗口打开文件对话框，选择文件或文件夹，可参考代码修改，服务于自身需求。）
vba cad 获取宏的路径_VBA批量创建文件目录及链接，建议收藏备用
weixin_39914049的博客
12-14 1326
小伙伴们，之前有跟大家分享过Power Query获取文件夹内文件清单及其属性的方法【Excel快速获取文件列表及文件属性】。今天教大家通过VBA代码来实现同样的功能，提取文件夹内的文件信息更加灵活，只要选择对应的文件夹即可。实现效果操作方法：1. 在Excel界面按快捷键ALT+F11进入VBE界面。2. 在VBE工程里面插入一个模块。3. 将以下代码复制到模块中。4. 关闭VBE界面，返回Ex...
vba文件名
最新发布
weixin_44904285的博客
06-25 870
如果要从路径"C:\Folder\subfolder\filexx.xlsx"中提取文件名"filexx"，你可以使用VBA的字符串处理函数和方法来实现。请注意，上述代码假设文件路径中只有一个点作为文件扩展名的分隔符，并且没有其他点出现在文件名部分中。如果你的实际情况不同，可能需要进行适当的调整。首先，我们设置了完整的路径字符串"C:\Folder\subfolder\filexx.xlsx"。最终，我们得到了文件名"filexx"。函数提取反斜杠后的部分。（表示文件扩展名）的位置，然后使用。
VBA获取文档名称
Z1997112300的博客
03-29 833
【代码】VBA获取文档名称。
VBA读取PDF页数
08-01
在EXCEL中使用VBA读取PDF文件的总页数，大大减少重复工作量。
Excel批量修改文件名工具
08-02
用Excel VBA做的小工具，可以方便的批量修改文件名 通过Excel读取和修改文件名 可以筛选文件类型，自定义文件名称规则 利用Excel，可以方便的自定义文件名称规则 没有加密，可以自由的查看和修改VBA代码
数据有效性设置与VBA 读取文件名，文件夹初始路径写死
11-12
数据有效性验证 与文件操作_读取固定三层目录中文件名文件夹初始路径写死
excel中161个VBA_自定义函数超级实用
03-28
函数作用:取得一个短文件名的长文件名.............111 '109.函数作用:取得临时文件名.........................112 '110.函数作用:等用Shell调用的程序执行完成后再执行其它程序.....................................
ExcelVBA:批量更改文件后缀名
EFU0387的专栏
10-17 4913
 Sub rename()      Dim oldname$,zz$, newname$      oldname = Dir("c:\*.*")      Do While oldname           zz = Left(oldname, InStr(1, oldname, ".") - 1)           newname = zz & ".jpg"     
File初相识
weixin_44882647的博客
11-10 190
File类的介绍 文件（file）： 文件用来存储数据。 路径（path）： 表示计算机中的一个位置，这个位置可以是文件夹，也可以是文件。 在Java中，有一个类叫做File，这个类可以表示【计算机中的文件或文件夹】 注意，File这个单词本意是文件的意思，但是在Java中，不仅仅可以表示文件，还可以表示文件夹。我们可以通过File类的方法对文件或文件夹进行操作。 相对路径和绝对路径 绝对路径： 是一个非常详细的路径， 绝对路径是从盘符开始的。 比如： D:\demo\HelloWorld.java 相对路
appium文件夹下无.bin文件_【Excel VBA】批量提取文件夹下文件名
weixin_39572152的博客
11-30 122
代码如下：Sub FileDir() Dim p$, f$, k& '获取用户选择文件夹的路径 With Application.FileDialog(msoFileDialogFolderPicker) '选择文件夹 If .Show Then p = .SelectedItems(1) '选择的文件路径赋值变量P Else Exit Sub '如果没有选择保存路径，则退出程序 End...
Excel VBA获取选择文件的文件名称
Zero_fu的博客
10-20 6781
Dim File As Variant Dim aFile As Variant '数组，提取文件名fileName时使用 '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件对话框 If File &lt...
VBA弹窗打开文件，获取文件名以及文件全路径
piao3701的博客
01-07 3914
Sub t() On Error GoTo myErro '当没有选择打开任何文件时会报错，所以添加异常处理 Dim fileToOpen() As Variant, i As Long, filePaths() As String '设置筛选器，可同时选择多个文件 fileToOpen = Application _ .GetOpenFilename(filefilter:="Files (*.txt;*.xlsx), *.txt;*.xlsx",
VBA如何获取当前EXCEL文件的路径
热门推荐
niepangu的专栏
10-13 4万+
返回应用程序完整路径  Application.Path  返回当前工作薄的路径  ThisWorkbook.Path  返回当前默认文件路径：  Application.DefaultFilePath  Application.ActiveWorkbook.Path   只返回路径  Application.ActiveWorkbook.FullName  
excel vba 获取当前文件名_VBA实战技巧14： 生成删除宏代码的工作簿
weixin_39857480的博客
01-13 1108
学习Excel技术，关注微信公众号：excelperfect有时候，我们在借助于宏快速整理和分析数据、创建报表后，需要将工作簿分发给其他人，但不想将工作簿中的宏一并发送，或者没有必要在发送的工作簿中带有宏，或者对方不接收带有宏的工作簿。这样，就需要我们在发送工作簿前将所有的宏代码清除。下面的代码将生成不含宏代码的当前工作簿的副本。'复制当前工作簿'新工作簿不含有任何宏代码Sub Copy...
vba读取文件夹及子文件夹下所有文件名
05-17
以下是 VBA 代码示例，可以读取指定文件夹及其子文件夹下的所有文件名： ```vb Sub GetFiles() Dim fso As Object Dim folder As Object Dim subFolder As Object Dim file As Object Dim i As Integer Set...

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

木易:_/

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值