如安在excel表格中加文件夹

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执行此宏，搞定。

'下面的代码假设你新插手的文件夹存放在"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。