自行选择打开文件夹的问题

用户名用什么好

求助下大家，以下宏，是将工作簿导入
但所有文件是同一个目录

如运行宏时，选择文件夹（文件夹中有拟导入的文件），应要怎么改一下？谢谢

Sub ykcbf()         '//2023.4.21
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim arr, brr, d, p, f
    Set d = CreateObject("Scripting.Dictionary")
    Dim tm: tm = Timer
    a = [{"214","SA"}]
    b = [{"214","216"}]
    For i = 1 To 2
        d(a(i)) = b(i)
    Next
    Set zwb = ThisWorkbook
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls*")
    Do While f <> ""
        For Each k In d.keys
            If InStr(f, k) Then
                With Workbooks.Open(p & f, 0)
                    arr = .Sheets(1).UsedRange
                    .Close False
                End With
                zwb.Sheets(d(k)).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
                Exit For
            End If
        Next
        f = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "运行完毕，共用时： " & Format(Timer - tm, "0.000秒"), , "提示"
End Sub

gwjkkkkk

这个应该是草爷的代码，我在原代码基础上加了一些。。。

ykcbf1100

好吧，作为原作者，我也写一个吧。

gwjkkkkk

ykcbf1100 发表于 2023-4-30 21:00
好吧，作为原作者，我也写一个吧。

我是敬花献佛，你的代码我简单修改一下。。。

ykcbf1100

gwjkkkkk 发表于 2023-4-30 21:03
我是敬花献佛，你的代码我简单修改一下。。。

能被老师修改是我的荣幸。

gwjkkkkk

ykcbf1100 发表于 2023-4-30 21:04
能被老师修改是我的荣幸。

草爷你是老当益壮，你这岁数还会编程，不多见，思路非常清晰啊。。。

ykcbf1100

gwjkkkkk 发表于 2023-4-30 21:07
草爷你是老当益壮，你这岁数还会编程，不多见，思路非常清晰啊。。。

我只是打发时间而已

ykcbf1100

gwjkkkkk 发表于 2023-4-30 21:07
草爷你是老当益壮，你这岁数还会编程，不多见，思路非常清晰啊。。。

你是我的老师，我总能在你的代码中学到新的东西，谢谢哈。

gwjkkkkk

ykcbf1100 发表于 2023-4-30 21:11
你是我的老师，我总能在你的代码中学到新的东西，谢谢哈。

哈哈，我也是业余的，互相学习。。。

mmwwdd

ykcbf1100 发表于 2023-4-30 21:08
我只是打发时间而已

这个爱好好，不打麻将，不闲聊，这个还动脑子