excel 获取同一文件夹中工作簿的文件夹

mi7gmzs6 于 2023-10-22 发布在其他

关注(0)|答案(2)|浏览(125)

我需要获取同一文件夹中工作簿的文件名，但在使用ThisWorkbook.Path定义文件夹结构时遇到了问题。
我试过下面的，但我得到了
错误52 -错误的文件名或编号

Sub WorksheetImport()

Dim vWBFolder As String
Dim vWBName As String

vWBFolder = ThisWorkbook.Path
vWBName = Dir(vWBFolder & "*.csv*")

MsgBox vWBName

End Sub

它的工作原理，如果我定义的文件夹手动，例如。- vWBFolder = "D:\\TestFolder\\"
下面的答案是正确的。添加\应该已经解决了这个问题。
看起来我的组织最近开始将某些文件夹备份到OneDrive。这似乎是导致错误的原因。一旦文件夹从OneDrive备份中排除，它就可以按预期工作。

excel

来源：https://stackoverflow.com/questions/75658139/get-filename-of-workbook-in-same-folder

2条答案

按热度按时间

wwodge7n1#

ThisWorkbook.Path的末尾没有斜杠，所以你只需要添加一个斜杠：

vWBName = Dir(vWBFolder & "\" & "*.csv*")

赞(0）回复(0）举报 2023-10-22

ukdjmx9f2#

Could you please use like this

Sub WorksheetImport()
    
    Dim vWBFolder As String
    Dim vWBName As String
    
    
    Path = ThisWorkbook.Path & "\"
    
    folderPath = Application.ActiveWorkbook.Path & "\"
    
    
    'vWBFolder = ThisWorkbook.Path
    vWBName = Dir(folderPath & "*.csv*")
    
    MsgBox vWBName
    
    End Sub

赞(0）回复(0）举报 2023-10-22

我来回答

excel 获取同一文件夹中工作簿的文件夹

2条答案

相关问题

热门标签

最新问答