怎么提取子文件夹名和提取子文件夹里的文件名并建立链接且要横向排列（在一行中的...

1042271867

请教老师：怎么用VBA提取子文件夹名和提取子文件夹里的文件名并建立链接，且要横向显示（就是在一行的多列中显示文件名）？EXCEL里面的代码是我在网上找到的，但文件名是在一列中坚向显示的，也不知可否在原来的基础上修改，还是要重新写代码，麻烦老师。谢谢！

sunshuangzhong

Sub Ck()
    Dim fso As New Scripting.FileSystemObject
    Dim sfolder As Folder, i As Integer
    Dim sFileName As String
    Dim j As Long, wjj
    Sheet1.Cells.Clear
     i = 1
   
    On Error Resume Next
        For Each sfolder In fso.getfolder(ThisWorkbook.Path).SubFolders
      
            wjj = sfolder.Name
            Spath = ThisWorkbook.Path & "\" & wjj & "\"
            With Sheet1
                .Cells(Application.WorksheetFunction.CountA(Sheet1.Range("b:b")) + 1, 1) = wjj '& "："可以加冒号等内容
                .Cells(Application.WorksheetFunction.CountA(Sheet1.Range("b:b")) + 1, 1).Font.Bold = True
               j = 2
                sFileName = Dir(Spath, 0)    '取得文件名
                Do While Len(sFileName) > 0
                    '.Cells(j + 1, 2) = sFileName'取得的文件名没有链接
                    .Cells(i, j).Select  '取得的文件名有链接
                    ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:=Spath & sFileName, _
                    TextToDisplay:=sFileName
                    
                    sFileName = Dir()
                    j = j + 1
                Loop
            End With
            i = i + 1
        Next
    Set fso = Nothing
End Sub

ykcbf1100

这样改一下就可以了。

原代码应该是版主写的。

1042271867

ykcbf1100 发表于 2023-4-6 11:16
这样改一下就可以了。

原代码应该是版主写的。

就是这个意思，谢谢老师。另外我想如果换一种格式，请教怎么实现：就是我将A列作为查找条件，查找子文件夹，如查到，则提取子文件夹里的文件名并建立链接且要横向排列（在一行中的多列），如果没有，则空白

1042271867

另外我想如果换一种格式，请教怎么实现：就是我将A列作为查找条件，查找子文件夹，如查到，则提取子文件夹里的文件名并建立链接且要横向排列（在一行中多列进行显示），如果没有打到对应的文件夹，则空白

ykcbf1100

1042271867 发表于 2023-4-6 11:29
另外我想如果换一种格式，请教怎么实现：就是我将A列作为查找条件，查找子文件夹，如查到，则提取子文件夹 ...

那就这样。

1042271867

ykcbf1100 发表于 2023-4-6 12:29
那就这样。

感谢您的帮助，减少了我许多工作量

tanglf188

感觉文件列表写单元格不是太方便，数量少还可以，数量大了看着就有点不适应，现学现卖写了段代码。
单击查看完整路径，双击打开文件夹或文件

朱付安

tanglf188 发表于 2023-4-6 17:15
感觉文件列表写单元格不是太方便，数量少还可以，数量大了看着就有点不适应，现学现卖写了段代码。
单击查 ...

老师，如果我想获取其他盘的文件目录，如何修改？

tanglf188

朱付安 发表于 2023-4-7 15:01
老师，如果我想获取其他盘的文件目录，如何修改？

你要几层的目录？现在就两层：当前目录和子目录