Question

我想编写一个打开文件路径的代码，用户可以在此文件夹中选择自己的文件夹。我似乎只能找到一个“常规”代码来打开文件夹。

With wbtarget.Sheets("Data")
    strPathName = Application.GetOpenFilename()      
    If strPathName = "False" Then
       Exit Sub
    End If        
    Set wbsource = Workbooks.Open(strPathName, 0)
    .Range("A1:AL10000").Value = wbsource.Sheets(1).Range("A1:AL10000").Value
    wbsource.Close (False)
End With

或打开特定文件。

folder_path = CStr("C:\Users\peter\Documents\me")
file_name = CStr("report.xlsm")
StrResource = folder_path & "\" & file_name

谢谢你的帮助。

Answer 1

我使用此功能让用户浏览文件夹而不是文件。我不记得我发现它的位置它使用Shell.BrowseForFolder方法。

将InitPath设置为字符串＆lt;＆gt; ＆＃34;＆＃34;，例如＆＃34; D：\ Files＆＃34;，以限制用户可以选择的文件夹树。

Public Function GetFolderName(Caption As String, InitPath As String) As String

    Dim AppShell As Object
    Dim BrowseDir As Variant
    Dim sPath As String

    Set AppShell = CreateObject("Shell.Application")
    If InitPath <> "" Then
        Set BrowseDir = AppShell.BrowseForFolder(0, Caption, &H11, (InitPath))
    Else
        ' 17 = root folder is "My Computer"
        Set BrowseDir = AppShell.BrowseForFolder(0, Caption, &H11, 17)
    End If

    sPath = ""
    On Error Resume Next
    sPath = BrowseDir.Items().Item().Path
    GetFolderName = sPath

End Function

Excel VBA：打开固定文件路径但不是固定文件名

1 个答案: