VBA这种写法如何把路径修改成当前路径啊？

约定的童话

Dim fso, fl, m&
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each fl In fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "").Files
       If fl.Name Like "*.xls" Then
............
类似于ThisWorkbook这种！

liulang0808

For Each fl In fso.getfolder(ThisWorkbook.Path & "\").Files
怎么感觉回复过一样的帖子呢？
楼主测试看看吧

zhangcheng6688

liulang0808 发表于 2018-9-25 15:08
For Each fl In fso.getfolder(ThisWorkbook.Path & "\").Files
怎么感觉回复过一样的帖子呢？
楼主测试 ...

赞赞！！！！！！

约定的童话

liulang0808 发表于 2018-9-25 15:08
For Each fl In fso.getfolder(ThisWorkbook.Path & "\").Files
怎么感觉回复过一样的帖子呢？
楼主测试 ...

大神，不行，直接报错

约定的童话

这是源代码运行效果

liulang0808

For Each fl In fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "").Files
这个直接修改成：

For Each fl In fso.getfolder(ThisWorkbook.Path & "\").Files

约定的童话

liulang0808 发表于 2018-9-25 16:00
For Each fl In fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, ...

大师，改了还是报错，找不到原因，我传文件了

liulang0808

Tmp = VBA.Split(arr(i, 1), ".")
    brr(i, 1) = Tmp(0)
    brr(i, 2) = Tmp(1)
    brr(i, 3) = Tmp(2)
    brr(i, 4) = Tmp(3)
    brr(i, 5) = Tmp(4)
上面部分是要拆分提取的文件名吧？
文件名里有几个 “.”，需要楼主确认下，不然要报错的

约定的童话

liulang0808 发表于 2018-9-25 18:24
Tmp = VBA.Split(arr(i, 1), ".")
    brr(i, 1) = Tmp(0)
    brr(i, 2) = Tmp(1)

改了之后代码直接运行下面的部分了，不会再出现选择框了！原来是这么回事啊
我的意思是还是弹出选择框，但是首先出现的路径是当前的路径，就是弹窗这个步骤还要

liulang0808

约定的童话 发表于 2018-9-25 18:31
改了之后代码直接运行下面的部分了，不会再出现选择框了！原来是这么回事啊
我的意思是还是弹出选择框， ...

ChDrive "d:\"
    ChDir "d:\program files"

在 For Each fl In fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & "").Files 之前增加上面的代码，盘符，跟路径自己修改吧