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

第一篇：Excel提取文件夹中的所有文件名称

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

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

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.Excel单元格中显示该文件夹内的文件数量或名称 假设这个文件夹是

D:fda

1、插入]-[名称]-[定义]，或按CTRL+F3，打开excel→名称管理器→定义一个名称→比如：aaa 引用位置输入：=FILES(“d:fda*.*”)&T(NOW())1

2、然后在任一工作表某一单元格输入：=COUNTA(aaa)则返回文件个数。

3、如果在任一工作表某一单元格输入： =if(row(a1)>counta(aaa),“",index(aaa,row(a1)))

4、再下拉公式进行填充，则依序填充文件名。

3.Excel一列中输入文件名，另一列自动生成指定文件夹同名文件超链接

A列为输入文件名，B列返回超链接

B1中输入：=HYPERLINK(”D:FDA“&A1,A1)其中”d:fda“为指定文件夹路径。4.Excel中怎么把行转换成列

复制需转换的单元格行，选择性粘勾选“转置”。

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

5.Excel高亮显示光标所在行或列？

在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(),CELL(”row“)+1>ROW()))

6.Excel单元格中插入页码方法（以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、定义“”：”：“名称”中填写“”，“引用位置”中填写“=”数&“ 页””。

二、单元格插入页码

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

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

三、深入探讨

通过分析上述“定义引用项”内容，您会发现，其实只需要定义“页码”和“总页数”就可以了。需要使用的时候，可直接指定单元格，输入上述“引用内容”的内容就可达成格式化页码的需要。如本例提问要求的格式化日期，可直接指定单元格后输入“=“数&” 页“”就OK了。

7.Excel隔行变色的方法 条件格式公式说明：

=MOD(ROW(),2)=0，实现的效果是偶数行自动填充底纹颜色 =MOD(ROW(),2)=1，实现的效果是奇数行自动填充底纹颜色

如果需要奇偶行都设置颜色，只需要设定两个条件即条件1和条件2 同样的方法，可以实现excel隔列变色，只需将公式中的row变为COLUMN 就可以了，即：=MOD(COLUMN(),2)=0 8.Excel字符替代函数

=replace(目前的文本，想从第几个数字开始改，共需要改几个字，用什么改）=substitute(目前的文本，需要替换的文本，新的文本（替换后））9.Excel单元格的相对引用和绝对引用 相对引用：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同值的个数

第二篇：怎么把所有文件夹查看方式设置为详细信息

怎么把所有文件夹查看方式设置为“详细信息”?

我的硬盘每个分区下总是一大堆文件，长久以来养成的习惯吧，所以我喜欢以“详细信息”方式查看文件夹。但是U盘每次进盘符就自动切换回“平铺”方式查看，很郁闷。于是脑子一热，突然想到一个命题：怎么批量设置将所有文件夹的查看方式都改变为某个固定值呢？

终于找到了解决方案，录下以备案：

1、打开任意文件夹，将查看方式设置为“详细信息”。

2、打开该文件夹的“工具”——“文件夹选项”，选择“查看”选项卡，单击“应用到所有文件夹”按钮，确定退出。

这下你的整个硬盘所有文件夹的查看方式就都是“详细信息”了，包括U盘和移动硬盘等。

第三篇：将PPT中所有文本框里的文字提取出来

将PPT中所有文本框里的文字提取出来

打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入->模块，添加一个模块，名字都不用改。

然后点击顶部的“工具”菜单，选择引用，找“Microsoft Word X.0 Object Library”（其中X与你的OFFICE版本有关），钩上，点确定

将下列代码贴到刚建立的模块里，按F5即可

Sub Main()

On Error Resume Next

Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide

For Each tmpSlide In ActivePresentation.Slides

For Each tmpShape In tmpSlide.Shapes

temp.Range().Text = temp.Range()+ tmpShape.TextFrame.TextRange.Text

Next tmpShape

Next tmpSlide

temp.Application.Visible = True

End Sub

复制以上代码后，f5，就会打开一个word，另存为即可。

第四篇：修复 Outlook Express 中的受损文件夹

修复 Outlook Express 中的受损文件夹

修复 Outlook Express 文件夹的步骤分为4步： 1.从被损坏的 Outlook Express 文件夹中提取并保存邮件

使用 OE-Mail Recovery(下载程序)必须从 Outlook Express

保存邮件的受损 dbx 文件中提取邮件。

已提取的邮件下一步必须要保存到硬盘中。备注： Outlook Express 的每个文件夹对应硬盘中的一个.dbx 文件，一般情况下，文件名同文件夹名相符，比如 Inbox.dbx 文件对应 Outlook Express 中的 Inbox（收件箱）文件夹。所以修复 Outlook Express

文件夹的过程就是修复/修理 dbx 文件的过程。2.复制并备份受损的.dbx 文件

将已经受损的原始.dbx 文件备份保存到安全位置，可以是 CD

磁盘或其它电脑。

OE-Mail Recovery 程序会提示您 Outlook Express 保存 dbx

文件的文件夹路径。

3.在 Outlook Express 中建立新的空白文件夹

将受损的.dbx 文件从 Outlook Express 的文件夹中删除。运行 Outlook Express，用鼠标点击刚刚删除的.dbx 文件所对应的文件夹，Outlook Express 会自动在硬盘中建立一个新的空白.dbx 文件。

4.将提取的资料复制到 Outlook Express 的新建空白文件夹

要将邮件复制到 Outlook Express 中，必须同时打开 Outlook Express

和浏览器，在浏览器中找到并选择（Shift+箭头或者Ctrl+鼠标左键）

已保存的文件，用鼠标把它拖到 Outlook Express 新建的空白文件夹中。为了方便复制，建议您同时运行 Outlook Express 和 Windows

浏览器并将其置于屏幕的不同位置。

使用 OE-Mail Recovery 程序，您还可以：



 修复已删除邮件。将资料转移到另外的电脑或其它电邮程序中。

OE-Mail Recovery 程序的功能：









 支持 Outlook Express 5 的 dbx 文件支持 Outlook Express 6 的 dbx 文件支持包模式修复 dbx 文件修复 4Gb 以下 dbx 文件修复已删除邮件

 在已修复邮件可查看前对其预先检查修复 Outlook Express 的 Inbox（收件箱）文件夹示例

第1步：

下载并安装 OE-Mail Recovery 程序。

在左边面板的文件列表中选择 Inbox.dbx 文件，点击 Read Source File。对 Inbox.dbx 文件进行扫描和识别后，必须选择硬盘上的文件夹，用来保存已恢复的邮件。

点击 Save e-mail(s)，从出现的菜单中选择 Save all emails

保存恢复的邮件。

第2步：

从 OE-Mail Recovery 程序的 Source Folder Path 栏中复制地址，粘贴到浏览器的地址栏中，按下回车。

在右边面板中选定 Inbox.dbx 文件，将其复制到安全位置。

第3步：

从 Outlook Express 的文件夹中删除原有 Inbox.dbx 文件。

运行 Outlook Express，点击 Inbox（收件箱）文件夹。

第4步：

同时打开 Outlook Express 和浏览器，在浏览器中选择/选定已保存的邮件（Shift+箭头或Ctrl+鼠标左键）。

用鼠标将选定的邮件拖到 Outlook Express 中新建的 Inbox（收件箱）文件夹。

第五篇：绿色植物中色素的提取和分离

绿色植物中色素的提取和分离

一、实验的目的：

1、学习从植物中提取色素的方法。

2、学习柱色谱(层析)的原理及其操作方法。

二、实验原理

柱色谱是通过色谱柱来实现分离的。在色谱柱内装有固体吸附剂(固定相)如氧化铝或硅胶。液体样品从柱顶加入，当液体流经吸附剂时，由于吸附剂表面对液体中各组分吸附能力不同而按一定的顺序吸附。然后从柱顶加入洗脱剂(流动相)，样品中的各组分随洗脱剂按一定的顺序从色谱柱下端流出，根据不同颜色分段收集。

三、器材与试剂

氧化铝,石油醚,乙酸乙酯,色谱柱,乙醇,绿叶 ,旋转蒸发仪

四、实验步骤

菠菜色素的提取过程

取3g 新鲜菠菜叶于研钵中拌匀研磨5 分钟，残渣用20mL 的石油醚-乙醇（2:1）混合液进行提取，共提取两次。把浸取液合并过滤，滤液转移到分液漏斗中，加入等体积的水洗涤后弃去下层的水-乙醇层，石油醚层再用等体积的水洗涤两次，以除去乙醇和其它水溶性物质。石油醚层用无水Na2SO4进行干燥、浓缩为2 mL。取一半做柱层析分离，其余留作薄层层析分析。

（4）上样：将要分离的混合物用适当的溶剂溶解后，用滴管沿柱壁慢慢加入吸附剂表面。

（5）淋洗分离：当被分离物的溶液面降至吸附剂表面时，立即加入洗脱剂进行淋洗，此时可以配合薄层层析来确定各组分的分离情况。

取15-20g 中性氧化铝进行湿法装柱。填料装好后，从柱顶加入上述浓缩液，先用9:1的石油醚-丙酮进行洗脱，当第一个橙黄色色带（胡萝卜素）即将流出时，换一接收瓶接收，约需要洗脱剂40 mL。换用7:3的石油醚-丙酮进行洗脱，当第二个棕黄色色带（叶黄素）即将流出时，换一接收瓶接收。此时，继续更换洗脱剂，用3:1:1的正丁醇-乙醇-水洗脱，分别在层析柱的上端可见蓝绿色和黄绿色的两个色带，此为叶绿素a和叶绿素b。

(1)用10g中性氧化铝和石油醚装层析柱。

(2)将绿色植物色素浓溶液用滴管小心加到层析柱顶部。加完后打开下部活塞，让液面下降到柱面以下1mm左右关闭活塞。加入数滴石油醚，重新打开活塞使液面下降，重复几次使有色物质全部进入柱体内。

(3)依次用不同洗脱剂进行洗脱，收集各色带

五、注意事项

1.石油醚有毒，请在通风良好处使用；

2.柱中不可有空气，必要时用装在玻棒上的橡皮塞轻轻敲击柱身；

3.柱中氧化铝表面任何时候都不得露出液面，以防有空气进入；

4.待色素全部进入柱体后，方可进行洗脱，以防有拖尾影响分离效果。