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