打开一个目录，使用dir进行遍历，目录使用当前打开的目录，而不是只能在代码里的目录

bxl15890877746

需求：下面是写好的代码，可以运行，但是必须把需要处理的文件拷到"H:\室分\报告\4G\"目录下，怎么更改这里的引用，让他打开哪个文件夹，就处理该文件夹下目录的文件。
Sub 遍历文件夹下Excel文件()
Excel.Application.ScreenUpdating = False
On Error Resume Next
Dim w1, w2
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "Computer"
    .Show
    If .SelectedItems.Count > 0 Then
        mypath = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With   
    Set fso = CreateObject("scripting.filesystemobject")
    Set 文件 = fso.getfolder(mypath)
Set w2 = Workbooks.Open("H:\室分\副本联通_SA_航天平价商场(公园路店)-单验报告（传统）V3.xlsm")
w2.Sheets(Array("验收标准", "测试描述")).Select
w2.Sheets("测试描述").Activate
文件 = Dir("H:\室分\报告\4G\")
Do While 文件 <> ""
    Set w1 = Workbooks.Open("H:\室分\报告\4G\" & 文件)
    '此处可以处理当前打开的工作簿
    If w1.Sheets.Count <= 5 And w1.Sheets.Count > 3 Then
        w2.Sheets(Array("验收标准", "测试描述")).Copy Before:=w1.Sheets(1)
    End If
    Sheets("报告页").Select
    Cells.Replace What:="1400byte", Replacement:="2000byte", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    w1.Close Savechanges:=True
    文件 = Dir
Loop
Excel.Application.ScreenUpdating = True
MsgBox "处理完成!"
End Sub