当前位置:首页经验技巧Excel经验excel图表

怎么在excel表格中加文件夹

2024-04-19 12:42:57

1.如何在EXCEL中批量添加文件夹内文件的链接

有一简单方法:点击电脑左下角的开始,在运行处输入cmd,进入DOS界面,到你说的文件夹,如路径为D:\SS\Files,则输入以下命令,都是用回车结束:D:CD SS\FilesDIR看到所有文件了,点击DOS窗口左上角,编辑,标记,用鼠标将这100个文件名字选中(一个白色方框,宽度为文件名最长的),再点击DOS窗口左上角,编辑,复制。

退出DOS再回到Excel中,粘贴。然后用公式 =HYPERLINK()就可以了。

如果觉得不靠谱,用宏:新建一Excel,放到你说的文件夹中,打开这个空白excel,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub Find()Application.ScreenUpdating = FalseRange("A2").SelectDim MyDir, Match As StringMyDir = ThisWorkbook.Path & "\"ChDrive Left(MyDir, 1)ChDir MyDirMatch = Dir$("")Do If Not LCase(Match) = LCase(ThisWorkbook.Name) Then Selection = Match ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=MyDir & Match Selection.Offset(1, 0).Select Match = Dir$ End IfLoop Until Len(Match) = 0Cells(1, 1).SelectApplication.ScreenUpdating = TrueEnd Sub直接按F5执行此宏,搞定。

2.excel中,如何自动调用一个文件夹中新加入的文件夹

'下面的代码假设你新加入的文件夹存放在"c:\000\"文件夹下,Excel中记录这些文件夹的单元格从A1、A2 一直往下:Sub foldname()Dim sTxt$, nR%nR = 0sTxt = Dir("c:\000\", vbDirectory)Do While sTxt <> "" nR = nR + 1 Cells(nR, 1) = sTxt ActiveSheet.Hyperlinks.Add Anchor:=Cells(nR, 1), Address:="c:\000\" & sTxt sTxt = DirLoopEnd Sub。


免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 www.z8000w.com. All Rights Reserved .