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
當前工作簿的路徑