使用FileDiaglog获取要打开的文件的名字和路径

ExcelHome_Leo

Public Sub sdff()
Public Sub sdff()
Dim i As Integer
Dim sz() As String
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Title = "Test"
    .Filters.Add "logFiles", "*.csv", 1
    .Show
    For i = 1 To .SelectedItems.Count
        Range("a" & i) = Split(.SelectedItems(i), "\")
        sz = Split(.SelectedItems(i), "\")
        'file name
        Range("a" & i) = sz(UBound(sz))
        'file path
        Range("b" & i) = Left(.SelectedItems(i), Len(.SelectedItems(i)) - Len(Range("a" & i)))
    Next
End With
End Sub

月关

如果只是获取路径和名字，你上个帖子里说的getopenfilename反而既简洁又高效

ExcelHome_Leo

月关 发表于 2019-9-27 16:13
如果只是获取路径和名字，你上个帖子里说的getopenfilename反而既简洁又高效

请教下，这个filedialog的高级用法，是用在哪儿 （不是用来获取名字的话）

月关

没有什么高级用法，很浅显，就是你在任何一个注解里看到的那样。你发了两个帖子来介绍这两个函数，如果你都认真的看了，这个问题不需要回答，如果你不想学只是把官方的解释搬运，那么这个问题似乎也没回答的必要，也许有高级的用法而我不知道，那么这个问题我无法回答