Excel vba返回的路径
发布时间:2023-04-19 00:42:00
①返回应用程序完整路径
Application.Path
比如:D:SoftWareOffice2003OFFICE11
②返回当前工作薄的路径
ThisWorkbook.Path
比如:D:
③返回当前默认文件路径
Application.DefaultFilePath
比如:C:Documents and SettingsAdministratorMy Documents
④只返回路径
Application.ActiveWorkbook.Path
比如:D:
⑤返回路径及工作簿文件名
Application.ActiveWorkbook.FullName
比如:D:Book1.xls
⑥返回工作簿文件名
Application.ActiveWorkbook.Name
比如:Book1.xls
上面的六种情况,在VBA环境下,你也可以通过如下的代码测试:
MsgBox Application.Path
ActiveSheet.Cells(1, 1).Value = Application.Path
MsgBox ThisWorkbook.Path
ActiveSheet.Cells(2, 1).Value = ThisWorkbook.Path
MsgBox Application.DefaultFilePath
ActiveSheet.Cells(3, 1).Value = Application.DefaultFilePath
MsgBox Application.ActiveWorkbook.Path
ActiveSheet.Cells(4, 1).Value = Application.ActiveWorkbook.Path
MsgBox Application.ActiveWorkbook.FullName
ActiveSheet.Cells(5, 1).Value = Application.ActiveWorkbook.FullName
MsgBox Application.ActiveWorkbook.Name
ActiveSheet.Cells(6, 1).Value = Application.ActiveWorkbook.Name
除此之外,和路径有关的一个函数Dir,是专门用来判断文件是否存在的函数,代码如下:
Application.ScreenUpdating = False
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
.Execute
If .Execute() > 0 Then
m = .FoundFiles.Count '当前目录及子目录所有工作薄总数
'MsgBox m
For Each f In .FoundFiles '在所有的工作薄里做一个循环
'MsgBox Dir(f) '列出每个工作薄的名称,只显示名称,如 dzwebs.xls ,无路径
If (Dir(f) <> "Total.xls") Then
Set xlsApp = New Excel.Application
Set xlsBook = Workbooks.Open(ThisWorkbook.Path & "" & Dir(f))
Set MyWantGetsheet = xlsBook.Worksheets(1)
For i = 1 To 8
MyWantGetsheet.Cells(i, 6).Value = "www.dzwebs.net"
Next i
xlsBook.Save
xlsBook.Close
xlsApp.Quit
Set xlsApp = Nothing
Set xlsBook = Nothing
Set MyWantGetsheet = Nothing
Application.ScreenUpdating = True
End If
Next
End If
猜你喜欢
- 有的时候表格做的太长太大,或者需要将表格一分为二,word2003有快捷键可以帮助大家完成表格的拆分工作。Word2003中将表格一分为二的
- 1、用wps软件打开pdf文档2、点击“开始”选项卡,在下方的功能区中找到“PDF转Office”选项,点击旁边的下三角形按钮3、在打开的下
- 为了整个页面的美观,看起来一目了然,我们把不经常用的文件隐藏了,那么当我们需要打印的时候要用到,该怎么办呢?本文给大家介绍word和wps中
- 1.在折线图图例上单机鼠标右键 在弹出的菜单中点击图例格式2.在弹出的的图例格式对话框中 边框设置为 无3.填充颜色也设置为无 然后点击字体
- 方法1:直接将鼠标放在空白页上点“退格(Backspace)”键进行删除即可。方法2:将光标放在空白页前一页的末尾,按"Delet
- 我们都知道Win10系统都有自动的日历功能,但是Win10在通常下是不显示农历的,很多小伙伴习惯于看农历,那么我们的日历该如何设置呢?其实我
- Microsoft Office是微软公司开发的一套基于 Windows 操作系统的办公软件套装。常用组件有 Word、Excel、Powe
- Win10兼容性视图怎么设置?在Win10系统中使用ie浏览器的用户都会需要使用到兼容性视图的设置,但是由于刚升级很多人都还不知道,那么到底
- 每次开机第一次打开Excel 2013程序都会“向程序发送命令时出现问题”第二次就不会,已经试过很多方法了都没有解决。目前来说只有Excel
- 在编辑Word的时候上方会有个Word标尺,相信很多伙伴都没使用过。其实它隐藏着很多好用的功能,今天大家讲解借助标尺怎么在word设置页边距
- word是我们最常用的办公软件,很多文件都是以word形式保存的,但是有时候我们会碰到一个屏幕中显示了两页以上的word页面或者页面很小或者
- Windows 10用户想要创建新文件夹时,会在右键菜单中发现没有新选项。 这不仅会创建新文件夹,还会创建新文件。 那么如何在没有右键菜单的
- 在word中我们不会手动地设置标题编号,而是用一种叫多级列表的工具来帮我们完成标题编号的设置,因此如果多级列表能与标题样式关联,那该有多么方
- 创建页眉或页脚时,Word自动在整篇文档中使用同样的页眉或页脚。要为部分文档创建不同于其他部分的页眉或页脚,需要对文档进行分节,然后断开当前
- 司名称、公司住址、联系电话、联系人姓名、QQ号码可以先选定这些内容,再单击工具→自动更正→在替换框中输入标记名称(如“公司信息”)→添加→确
- 方法1:勾选使用通配符,查找内容:"(*)",替换为: “1”。方法2:①将指定的文章复制到 Word中,用组合键 Ct
- 关注微软更新消息的小伙伴们都很期待微软win101903带来的效果,win101903这次更新的系统内存占多少?下面我们就来告诉你win10
- 今天讲的是分类水印如何添加和删除的方法。其实word 2013 中自带的有一些分类水印。例如:“样本”水印;“紧急”水印;“尽快”水印;“机
- 我们平时在Win10系统遇到蓝屏0x0000003b computerzlock_x64.sys故障怎么办呢,其实蓝屏代码不怎么需要管,主要
- 如果要防止宏自动运行,用户只需要在启动 Excel 时按住“Shift”键即可;如果从 office 快捷工具栏中启动 Excel,应当先单