Excel提取文件夹中的所有文件名称

Excel提取文件夹中的所有文件名称
1.E xcel提取文件夹中的所有文件名称
1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt
保存退出
将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）
双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件
打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！
2、VBA（2003版）
在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
End If
End With
End Sub
回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行
看看效果吧！
2.E xcel单元格中显示该文件夹内的文件数量或名称
假设这个文件夹是
D:\fda
1、插入]-[名称]-[定义]，或按CTRL+F3，打开excel→名称管理器→定义一个名称→比如：aaa
引用位置输入：=FILES("d:\fda\*.*") &T(NOW())
2、然后在任一工作表某一单元格输入：=COUNTA(aaa)
则返回文件个数。

3、如果在任一工作表某一单元格输入：
=if(row(a1)>counta(aaa),"",index(aaa,row(a1)))
4、再下拉公式进行填充，则依序填充文件名。

3.E xcel一列中输入文件名，另一列自动生成指定文件夹同名文件超链接
A列为输入文件名，B列返回超链接
B1中输入：=HYPERLINK("D:\FDA\"&A1,A1)
其中"d:\fda\"为指定文件夹路径。

4.E xcel中怎么把行转换成列
复制需转换的单元格行，选择性粘勾选“转置”。

在页面投置工作表选项中勾选单色打印，可以不打印底纹图案。

5.E xcel高亮显示光标所在行或列？
在Excel中选择菜单“格式——条件格式”命令，弹出“条件格式”对话框。

在“条件”下拉框中选择“公式”并在右侧中输入下面相应的公式，然后点击“格式”按钮，设置相应的格式，完成后，按“确定”按钮。

不过当前单元格编辑过才行，按过回车。

高亮单元格：
条件格式：=CELL("address")=ADDRESS(ROW(),COLUMN())
高亮行
条件格式：=ROW()=CELL("row")
或者：=CELL("row")=ROW()
高亮行和列
条件格式：=(row()=cell("row"))+(column()=cell("col"))
高亮当前单元格为止的相应行和列，呈反L形
条件格式：=OR(AND(CELL("row")=ROW(),CELL("col")+1>COLUMN()),AND (CELL("col")=COLUMN(),CELL("row")+1>ROW()))
高亮当前单元格为止的相应行和列，呈反L形，且当前单元格背景色改变、字体加粗：
条件格式：=CELL("address")=ADDRESS(ROW(),COLUMN())”“=OR(AND(CELL ("row")=ROW(),CELL("col")+1>COLUMN()),AND(CELL("col")=COLUMN(),CE LL("row")+1>ROW()))
6.E xcel单元格中插入页码方法
（以Excel 2003版本为基础，下文中所有“填写”后跟的内容不包括内容最外侧的全角引号）
一、定义引用项（以下定义方法通过单击菜单“插入/名称/定义”弹出定义对话框操作）
1、定义“页码”：“名称”中填写“页码”，“引用位置”中填写“=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GE
T.DOCUMENT(64),1)+1)”
2、定义“总页数”：“名称”中填写“总页数”，“引用位置”中填写“=GET.DOCUMENT(50)+RAND()*0”。

3、定义“第N 页”：“名称”中填写“第N 页”，“引用位置”中填写“="第"&页码&" 页"”。

4、定义“第N 页共？页”：”：“名称”中填写“第N 页共？页”，“引用位置”中填写“="第"&页码&" 页共"&总页数&" 页"”。

二、单元格插入页码
1、插入法：指定单元格，单击菜单“插入/名称/粘贴”，根据需要的格式选择即可。

2、输入法：指定单元格，在上部输入区输入等号加上面定义的名称，如“=第N 页共？页”就是本例提问的格式。

三、深入探讨
通过分析上述“定义引用项”内容，您会发现，其实只需要定义“页码”和“总页数”就可以了。

需要使用的时候，可直接指定单元格，输入上述“引用内容”的内容就可达成格式化页码的需要。

如本例提问要求的格式化日期，可直接指定单元格后输入“="第"&页码&" 页共"&总页数&" 页"”就OK了。

7.E xcel隔行变色的方法
条件格式公式说明：
=MOD(ROW(),2)=0，实现的效果是偶数行自动填充底纹颜色
=MOD(ROW(),2)=1，实现的效果是奇数行自动填充底纹颜色
如果需要奇偶行都设置颜色，只需要设定两个条件即条件1和条件2
同样的方法，可以实现excel隔列变色，只需将公式中的row变为COLUMN 就可以了，即：=MOD(COLUMN(),2)=0
8.E xcel字符替代函数
=replace(目前的文本，想从第几个数字开始改，共需要改几个字，用什么改）=substitute(目前的文本，需要替换的文本，新的文本（替换后））
9.E xcel单元格的相对引用和绝对引用
相对引用：a1=a2+a3
绝对引用：a1=a$2+$a$3
绝对引用：a1=$a2+$a$3
10.Excel公式插入回车符并显示出来自动换行
在公式中加”&CHAR(10)&”，同时要将单元格设置为自动换行。

11.Excel自动换行函数
Char(10)^p
12.Excel单元格不显示0和错误#/0的公式
=IF(or(公式=0,ISERROR(公式)),"",公式)
=IF(or(公式=0,ISERROR(公式)),"",公式)
=IF(or(公式=0,ISERROR(公式)),"",公式)
ISNA函数用于测试数值类型，如果测试值为错误值#N/A，则返回TRUE，否则返回FALSE。

13.Excel单元格日期格式转换成文本格式
如“2008年7月18日”或“2008-7-18”的日期格式转换成“20080718”的8位文本格式。

公式“=text(A2,"yyyymmdd")”（注：如果日期中还包含时、分、秒，则公式可改成“=text(A2,"yyyymmddhhmmss")”。

其中的文本格式可以按自己的要求灵活运用，如“yymmdd h:m:s”表示只要年份的后两位、时间中用冒号将时分秒隔开并且不满两位时前面不加“0”。

14.Excel函数公式返回行号、列号
返回行号：=row()
返回列号：=column()
15.Excel页脚底端标题行设置
选择页脚区域，按住Shift键，编辑—复制图片，再把图片插入到自定义页脚里（2003版可以，2000没有这个功能）。

16.Excel录制宏执行宏
简单的方法：自己可练习创建一个“宏”，（就是录下自已需要做的操作步骤）方法：点击——工具——宏——录制新宏——弹出窗口——确认宏名称——这时就会弹出一个录像框，你就可以一步一步点击你要做的操作，按下“停止”，就结束了宏录制！
你再进入工具——宏——选择刚录下的宏名称——点击“编辑”——这里面就是你要的宏代码了，自已可以研究了！
如下面就是一个宏，执行后会自己打开：工作表3
代码是：
Sub 按钮1_单击()
Sheet (Sheet3)
End Sub
17.Excel打开工作薄时自动执行宏
先录制宏，再宏名字改成
sub auto_open
就变成自动了
18.Excel击活工作表时自动执行宏
Sub Macro适合行高() ………..宏名
' ZYC录制时间: 2014-9-23 ………….注释行
'
Private Sub worksheet_activate()
Cells(1, 1) = Now()
Rows("3:3").Select
Rows("3:3").EntireRow.AutoFit
End Sub
先打开对应工作表，操作alt+F11，在视图中选正代码窗口，然后复制粘贴上面代码。

19.Excel击活工作表6-10行自动执行最适合的行高，然后选正单元格A6的宏？
Private Sub worksheet_activate()
Rows("6:10").Select
Rows("6:10").EntireRow.AutoFit
Range("A6").Select
End Sub
20.Excel隐藏单元格中的数据
有时候，我们可能不希望别人看到Excel某些单元格或者区域中的数据内容，可以选定这些单元格内容，然后按下“Ctrl+1”组合键，在弹出的“单元格格式”对话框中，单击“数字”选项卡，然后选择“自定义”分类，在其中的“类型”文本框中输入半角符号“;;;”即可，这样即便是修改字体颜色也无法显示隐藏的内容了。

21.Excel统计空白单元格、数字单元格、数字及非空单元格数量
=countBlank(A1:A100) '统计空白单元格数量
=count(A1:A100) '统计数字单元格个数
=counta(A1:A100) '统计数字及非空单元格个数
=countif(A1:A100,A1) '条件统计统计区域中A1同值的个数。