VBA代码无法指定文件夹里面的excel文件

888来来来

我的电脑和公司电脑Office版本是2019和2016  
同事的电脑是office版本是2013  有1个VBA文件 功能是可以合并多个工作薄，工作中用到50个工作簿同时合并，而且可以去重复
在执行指定文件夹的时候，文件夹里面的Excel文件都看不到是空白的  可能是office版本原因，或者代码如何修改一下，搞定这个问题
这个是对象里面的宏代码

'指定BOM文件所在的文件夹
Private Sub SetFolder_Click()
    SetBOMFolder
End Sub


这个是模块里面的宏代码


'指定BOM文件所在的文件夹
Sub SetBOMFolder()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        If .Show = -1 Then
            [h2] = .SelectedItems(1) '显示于[h2]格
        End If
    End With
    Set fd = Nothing
End Sub

打开文件夹就显示文件夹都是空白的


旁边还有1个超链接，点击也是显示无法指定文件

liulang0808

SetBOMFolder这个过程就是对应文件夹的，看不到文件的。
不知道楼主要在哪里看文件的

888来来来

liulang0808 发表于 2023-2-21 07:44
SetBOMFolder这个过程就是对应文件夹的，看不到文件的。
不知道楼主要在哪里看文件的

我这个宏文件里面的代码就是这样的  我同事电脑office版本是2016  打开随便1个文件夹  里面的文件都可以看到的  我怀疑可能是我装过WPS软件引起的 但是已经按照百度搜索的方法，重新按照卸载WPS 彻底清除了   但是还是没有用  自己的电脑office 2019也是打开文件夹里面就是空白的

888来来来

liulang0808 发表于 2023-2-21 07:44
SetBOMFolder这个过程就是对应文件夹的，看不到文件的。
不知道楼主要在哪里看文件的

可能和我之前电脑装过WPS有关系，但是我后来按照网上教程重新按照又卸载了WPS软件。彻底清除了注册表 。但是我同事电脑也装过WPS。他就可以正常用这个宏文件，打开任何文件夹里面可以正常看到excel文件

liulang0808

888来来来 发表于 2023-2-21 16:37
可能和我之前电脑装过WPS有关系，但是我后来按照网上教程重新按照又卸载了WPS软件。彻底清除了注册表 。 ...

楼主描述的情况不太了解的
Application.FileDialog(msoFileDialogFolderPicker) 是针对文件夹的

888来来来

liulang0808 发表于 2023-2-21 19:34
楼主描述的情况不太了解的
Application.FileDialog(msoFileDialogFolderPicker) 是针对文件夹的

对VBA不太了解 描述的可能有点简单  但是公司同事电脑office也是2016版，都可以用这个宏表合共工作簿   我自己的电脑我还特地卸载重装了office2016  但是打开文件夹还是不能识别excel文件                           

888来来来

liulang0808 发表于 2023-2-21 19:34
楼主描述的情况不太了解的
Application.FileDialog(msoFileDialogFolderPicker) 是针对文件夹的

感谢你参与的回复。找到原因了   你说的没有错   我把路径选错了   路径是提前设定好的  把文件夹路径 复制到超链接那个地方  然后在点击另外1个宏按钮刷新  这样excel文件 就可以识别到了

mmwwdd

stra=application.GetOpenFilename
最好用这条语句

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=c5f4544f
https://club.excelhome.net/threa ... tml?_dsign=73cffde5
有些案例，楼主参考看看吧