1. 用vba如何導入一個文件夾里的文件絕對路徑(包含擴展名)到excel里
Sub MMM()
Dim myPath$, myFile$, i&
Application.ScreenUpdating = False
myPath = "D:\新建文件夾" & "\"
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
i = i + 1
Cells(i, 1) = myPath & myFile
myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub
2. vba 遍歷指定文件夾（含子目錄）獲取文件名，哪種方法速度最快
Sub LoopAllExcelFilesInFolder()
Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim FldrPicker As FileDialog
'這里很關鍵，決定宏執行快慢的關鍵
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'打開目錄選擇框
Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
With FldrPicker
.Title = "請選擇目錄"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo NextCode
myPath = .SelectedItems(1) & "\"
End With
'取消選擇
NextCode:
myPath = myPath
If myPath = "" Then GoTo ResetSettings
'指定過濾的文件後綴
myExtension = "*.xls*"
'遍歷全路徑
myFile = Dir(myPath & myExtension)
'循環處理每一個文件
Do While myFile <> ""
'打開
Set wb = Workbooks.Open(Filename:=myPath & myFile)
'確保工作簿被打開，在處理下一個文件時
DoEvents
'設置背景色
wb.Worksheets(1).Range("A1:Z1").Interior.Color = RGB(51, 98, 174)
'保存工作簿
wb.Close SaveChanges:=True
'確保工作簿被關閉，在處理下一個文件時
DoEvents
'接著處理下一個
myFile = Dir
Loop
'提示處理完成
MsgBox "處理完成!"
ResetSettings:
'恢復設置
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
3. 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")
4. 如何通過VBA，獲得本文件所在的文件夾路徑。
Subs()
Dimpth$
pth=ThisWorkbook.Path
MsgBox"本文件的路徑為："&pth
EndSub
5. excel中如何用vba打開一個相對路徑下的資料
你都用VBA了，怎麼還問這么種問題啊。。。thisworkbook.path就是A文件夾的路徑。B文件夾的路徑就用文本函數把A截取掉連上B或者把thisworkbook.path中的A替換成B都可以。。。。
6. VBA EXCEL狀態下,如何用相對路徑和絕對路徑調用某XXXX.doc文件,謝謝
絕對路徑（假設在d盤）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open "d:\xxxx.doc"
相對路徑（假設與此excel在同一路徑下）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open ActiveWorkbook.Path & "\xxxx.doc"
wdApp.Visible = True
7. VBA取得相對路徑的問題
你要獲取的相對路徑，總有一個相對的東西，下面的代碼假設相對本文件迴路徑來寫的：
p1="C:AAABBBCCC1DDDEEEFFF.xlsx"
p2=ThisWorkBook.Path
p3=""
ifleft(p1,len(p2))=p1then
p3=right(p1,len(p1)-len(p2))
'如果答路徑p1的前面部分與p2完全一致，相對路徑為後面部分
else
p3=p1
'否則，相對路徑就是絕對路徑
endif
msgbox"相對路徑："&p3