EXCEL问题 求把文件名导入EXCEL中的解决之道

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

EXCEL问题  求把文件名导入EXCEL中，最好能建立超链接


能有解决的办法吗


特别希望沈希伦先生帮忙啊？

之前帮我的在这里一一谢谢了。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：EXCEL exce xcel 解决之道 cel EXCEL 解决 文件名

用宏，如下：  EXCELHOME 高手多  到那问去

Private Sub filename()


With Application.FileSearch
        .NewSearch
        .LookIn = "path of the file"
        .SearchSubFolders = True
        .filename = "*.*"

    If .Execute() > 0 Then
       For i = 1 To .FoundFiles.Count
       On Error Resume Next
           ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
        .FoundFiles(i), TextToDisplay:=.FoundFiles(i)

       Next i
End If

End With

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B1:B3").Select
    Selection.AutoFill Destination:=Range("B1:B5000"), Type:=xlFillDefault
   
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-2],47,9)"
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C5000"), Type:=xlFillDefault
    Range("C1:C2413").Select
End Sub

有用的  或许也会遇到

1、有专门的目录生成系统，再转到EXECEl里面
2、在DOS环境下，转到所在文件的子目录
   执行  dir *.*/w>a
      在Execel 下  导入a.txt  的内容即可

怎么用的这么复杂？