VBA路径

yjwdjfqb

VBA路径

1. Sub 获取选择文件的文件名()
   
2. 
   
3. 
   
4. '这儿打开的路径，就是当前文件所在路径
   
5. 
   
6. 
   
7.     MyFile = Application.GetOpenFilename("All Files (*.*),*.*")
   
8.     If MyFile <> False Then
   
9.         MsgBox "你要打开的文件是" & MyFile
   
10.     End If
    
11. End Sub
    

复制代码

让打开路径是当前路径所在的路径。请老师们帮我修改下。
VBA路径.rar (4.44 KB, 下载次数: 6)

2019-11-26 17:31 上传

点击文件名下载附件

山菊花

Sub 获取选择文件的文件名()


'这儿打开的路径，就是当前文件所在路径

    ChDrive Left(ThisWorkbook.Path, 1)
    ChDir ThisWorkbook.Path

    MyFile = Application.GetOpenFilename("All Files (*.*),*.*")
    If MyFile <> False Then
        MsgBox "你要打开的文件是" & MyFile
    End If
End Sub

yjwdjfqb

山菊花 发表于 2019-11-26 19:17
Sub 获取选择文件的文件名()

1. Sub SelectFile()
   
2. 
   
3. 
   
4. Dim sss
   
5. 
   
6. 
   
7.     ChDrive Left(ActiveWorkbook.Path, 1)
   
8.     ChDir ActiveWorkbook.Path
   
9. 
   
10. 
    
11.    
    
12.     With Application.FileDialog(msoFileDialogFilePicker)
    
13.         .AllowMultiSelect = False
    
14.         .Filters.Clear
    
15.         .Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
    
16.         .Filters.Add "All Files", "*.*"
    
17.         
    
18. sss = .SelectedItems(1)
    
19.         
    
20.         
    
21.   ttt = Split(sss, ".")(0)
    
22.         
    
23.         
    
24.         If .Show = -1 Then
    
25.             MsgBox "您选择的文件是：" & ttt, vbOKOnly + vbInformation, "提示"
    
26.         End If
    
27.    
    
28.    
    
29.     End With
    
30. 
    
31. 
    
32. 
    
33. 
    
34. End Sub
    

复制代码

老师请帮我看下这个，是哪儿问题

yjwdjfqb

山菊花 发表于 2019-11-26 19:17
Sub 获取选择文件的文件名()

1. 我是想打开当前文件路径，选择一个文件（文件指定二种格式，EXCEL、DOC），提示文件名（文件名，不带路径和后缀名）

复制代码

NadrsSaber

Application.DefaultFilePath = ThisWorkbook.Path

山菊花

Sub SelectFile()
    Dim cPath$, cFile$, n%
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
        .Filters.Add "All Files", "*.*"
        .InitialFileName = ThisWorkbook.Path
        If .Show = -1 Then
            cFile = .SelectedItems(1)
            n = InStrRev(cFile, "\")
            cFile = Mid(cFile, n + 1)
            n = InStrRev(cFile, ".")
            cFile = Left(cFile, n - 1)
            MsgBox "您选择的文件是：" & cFile, vbOKOnly + vbInformation, "提示"
        End If
    End With
End Sub

yjwdjfqb

山菊花 发表于 2019-11-27 09:06
Sub SelectFile()
    Dim cPath$, cFile$, n%
    With Application.FileDialog(msoFileDialogFilePicke ...

谢谢老师，这个非常好用！