在<em>EXCEL</em>中获取文件路径

Sub s()
    Dim pth$
    pth = ThisWorkbook.Path
    MsgBox "本文件的路径为：" & pth
End Sub

有两个方法：
1、用INFO函数
在“文件2.XLS”中，在任知意单元格中输入公式=INFO("directory")
就可以返回这个道工作回簿的路径
2、打开“文件答2.XLS”所在的文件夹，并选中这个工作簿，从文件夹上面的地址栏中可以复制这个工作簿的路径。
'注意引用　microsoft　office 10.0 （或以上）　object library
'在文件对话框对中返回选择一个文件夹的路径.
Public Function ChooseFolder() As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
With dlgOpen
If .Show = -1 Then
ChooseFolder = .SelectedItems(1)End IfEnd With
Set dlgOpen = Nothing
End Function
'--------------------------------------------------------
'在文件对话框对中，选择一个文件。
Public Function ChooseOneFile(Optional TitleStr As String
= 选择你要e799bee5baa6e4b893e5b19e337的文件, Optional TypesDec As String = 所有文件,
Optional Exten As String = *.*) As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
.Title = TitleStr
.Filters.Clear '清除所有的文件类型.
.Filters.Add TypesDec, Exten
.AllowMultiSelect = False '不能多选.
If .Show = -1 Then
' .AllowMultiSelect = True '多个文件
' For Each vrtSelectedItem In .SelectedItems
' MsgBox Path name: & vrtSelectedItem
' Next vrtSelectedItem
ChooseOneFile = .SelectedItems(1) '第一个文件End IfEnd With

你直百接指度定文件夹知即可道
Sub test()
On Error GoTo err_fopen
Dim fopen As FileDialog
Set fopen = Application.FileDialog(msoFileDialogFilePicker)
fopen.InitialFileName = "d:\AB\*.dxf"
fopen.Show
Range("N1") = fopen.SelectedItems(1)
Set fopen = Nothing
Exit Sub
err_fopen:
MsgBox "未选专择文件属"
End Sub