vba获取当前办公软件excel路径
1. vba获取当前文件路径
thisworkbook.path——本代码工作簿所在的路径
比如要指定“D:/ABC”为程序保存文件的路径，可用以下代码处理：
If Dir("D:\ABC", 16) = "" Then MkDir "d:\ABC"
意思是检查这个路径不存在时就创建
2. vba 获取文件名称和路径
要用到inet控件。public strData as string '这段可以返回服务器中的第一级目录名，保存在strData中， 如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。 Inet1.Execute
Inet1.URL, "dir """ & dirName & """" Do DoEvents Loop While Inet1.StillExecuting
= True msgbox strData '这段是进入目录中，要想获得服务器中所有的文件夹名，就可以用递规的办法来获得。 Inet1.Execute
Inet1.URL, "cd """ & dirName & """" Do DoEvents Loop While Inet1.StillExecuting
= True Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case 1 StatusBar1.Panels.Item(1).Text
= "该控件正在查询所指定的主机的 IP 地址" Case 2 StatusBar1.Panels.Item(1).Text
= "该控件已成功地找到所指定的主机的 IP 地址" Case 3 StatusBar1.Panels.Item(1).Text
= "该控件正在与主机连接" Case 4 StatusBar1.Panels.Item(1).Text
= "该控件已与主机连接成功" Case 5 StatusBar1.Panels.Item(1).Text
= "该控件正在向主机发送请求" Case 6 StatusBar1.Panels.Item(1).Text
= "该控件发送请求已成功" Case 7 StatusBar1.Panels.Item(1).Text
= "该控件正在接收主机的响应" Case 8 StatusBar1.Panels.Item(1).Text
= "该控件已成功地接收到主机的响应" Case 9 StatusBar1.Panels.Item(1).Text
= "该控件正在解除与主机的连接" Case 10 StatusBar1.Panels.Item(1).Text
= "该控件已成功地与主机解除了连接" Case 11 MsgBox "与主机通讯时出现了错误", vbInformation, "个人资料" Case 12 Dim vtData As Variant Dim bDone As Boolean bDone = False '取得第一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData '取得下一个块。 vtData = Inet1.GetChunk(1024, icString) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop StatusBar1.Panels.Item(1).Text
= "该请求已经完成，并且所有数据均已接收到" Case Else StatusBar1.Panels.Item(1).Text
= Inet1.ResponseCode
& ": " & Inet1.ResponseInfo
End Select End Sub 关于inet控件的祥细用法可以看msdn中的帮助。
3. vba获取当前文件路径的方法
谢邀。可以在注册表里添加启动项，前提是有足够的权限。也可以创建一个快捷方式放在startup目录中。也也可以把程序注册成windows 服务， 运行方式为auto
4. vba获取当前文件路径代码
打开vba,然后点击设置就能查看所有的文件名和对应路径
5. vba读取指定文件路径
【数据准备】
1，excel中记录你需要下载的所有网址
2，设置下载的文档保存路径 【功能实现】 1，利用VBA启动IE浏览器 2，打开你所需要下载的URL
3，触发该网址中的下载按钮
6. vba 获取当前路径
a=activecell.Row-3b=activecell.Column-2i=activecell.Row-3里面的数值2、3是根据B3指定的i跟a的含义应该是一样的吧
7. vba获取当前文件路径输出至单元格
可以用以下代码获得
Sub dgs()
row_ = ActiveSheet。UsedRange。Rows。Count
col_ = ActiveSheet。UsedRange。Columns。
Count
MsgBox Cells(row_, col_)。Address(0, 0)
End Sub
当然如是在编写代码中使用，Cells(row_, col_)就是最后一个单元格，前面的例子是用MSgbox把单元格地址在屏幕上显示出来。
8. vba 获取文件路径
举个例子，打开在Sheet1表中的A1中指定的路径下和A2中指定的已有文件：Sub 打开指定文件() Dim OpenFName$, FileSource$ OpenFName = Sheets("Sheet1").Range("A2") '读取在Sheet1表中的A2中的文件名，样式如 A.XLS FileSource = Sheets("Sheet1").Range("A1") '读取在Sheet1表中的A1中的路径，样式如 D:\ Workbooks.Open Filename:=FileSource + OpenFName '打开在Sheet1表中的A1中指定的路径下和A2中指定的文件，样式如 在：D:\A.XLSEnd Sub
9. vba获取文件路径与文件名
打开vba,然后点击设置就能查看所有的文件名和对应路径