A. EXCEL如何使用VBA打开相对路径下的文件或文件夹急！！！
打开文件如源下：
Workbooks.Open ("C:对账单对帐单.xlsx")
这里你可以把“C:对账单”换成你的绝对路径，
你可以用：a = ThisWorkbook.Path
a = ThisWorkbook.Path
Workbooks.Open ("" & a & "&" "&对帐单.xlsx")
来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我
如果当前文件夹下还有A文件夹可以用代码：
Workbooks.Open ("" & a & "&" A"&b.xlsx")
B. EXCEL如何使用VBA打开相对路径下的文件或文件夹
打开文件如下：
Workbooks.Open ("C:对账单对帐单.xlsx")
这里你可以把“C:对账单”换成你的绝对路径，
你可以用回：a = ThisWorkbook.Path
a = ThisWorkbook.Path
Workbooks.Open ("" & a & "&" "&对帐单.xlsx")
来获取你当答前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我
如果当前文件夹下还有A文件夹可以用代码：
Workbooks.Open ("" & a & "&" A"&b.xlsx")
C. VBA提取当前工作簿所在文件夹的名称
subt()
dimstr
str=ThisWorkbook.Path
MsgBoxRight(str,Len(str)-InStrRev(str,""))
endsub
用路径抄整理下就是文件夹了啊~
D. vba在当前目录下建立新的文件夹
试试下面的代码：在当前目录下依次创建指定文件夹
Subtest()
Dimarr,arrTemp
DimstrPathAsString
DimstrTemp
DimiAsLong,jAsLong
OnErrorResumeNext
strPath=ThisWorkbook.Path&Application.PathSeparator
arr=Sheet1.Range("a1").CurrentRegion
Fori=LBound(arr)+1ToUBound(arr)
strTemp=strPath
arrTemp=Split(arr(i,1),"")
Forj=LBound(arrTemp)ToUBound(arrTemp)
strTemp=strTemp&arrTemp(j)&Application.PathSeparator
MkDirstrTemp
Next
Next
EndSub
E. 怎么用VBA代码获取文件所在地址
返回应用程序完整路径
Application.Path
返回当前工作薄的路径专
ThisWorkbook.Path
返回当前默认文件路属径：
Application.DefaultFilePath
Application.ActiveWorkbook.Path 只返回路径
Application.ActiveWorkbook.FullName 返回路径及工作簿文件名
Application.ActiveWorkbook.Name 返回工作簿文件名
F. VBA EXCEL 另存到当前文件夹下
试一下这个：
Filename = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveWorkbook.Name, "Excel 2003 工作薄,*.xls,文本文件回答,*.txt,其他文件,*.csv:*.*")
G. VBA 怎么打开当前文件夹下的excel
你只要运行语句，然后找到你那个文件夹，Office下次再打开是会自动记录位置的，直接定位到那个文件夹。
而且要指出的是：
GetOpenFilename 方法：显示标准的“打开”对话框，并获取用户文件名，而没有真正打开任何文件。
要真正打开文件要使用：Workbook的Open方法
xlapp.Workbooks.Open (Filename)
注意：其中Filename参数需要指定文件的全路径。
H. VBA在当前文件夹内创建一个文件夹，使用相对路径
if dir(a & "\" & b,vbDirectory)="" then
MkDir a & "\" & b
end if
I. VBA 有没有办法找到自己所在文件夹的位置
ActiveWorkbook.Path
当前工作簿的路径