Excel提取文件夾中的所有文件名稱.doc

Excel提取文件夾中的所有文件名稱1. Excel提取文件夾中的所有文件名稱 1、在那個(gè)文件夾內(nèi)新建一個(gè).TXT文件（如wenjian.txt），用記事本單開輸入dir 1.txt保存退出將剛才的.TXT（wenjian.txt）更名為.bat文件（wenjian.bat）雙擊wenjian.bat文件運(yùn)行一次，在文件夾內(nèi)多出一個(gè)1.txt文件打開1.txt文件，將其中的內(nèi)容粘貼到Excel中，數(shù)據(jù)分列處理就可以得到你要的文件名列表了！2、VBA（2003版）在那個(gè)文件夾下新建Excel文件，打開新建的Excel文件，右擊工作表標(biāo)簽（如Sheet1），查看代碼在代碼編輯器中輸入以下代碼Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith 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 IfEnd WithEnd Sub回到Excel表格中，工具宏宏選擇Sheet1.Test執(zhí)行看看效果吧！2. Excel單元格中顯示該文件夾內(nèi)的文件數(shù)量或名稱 假設(shè)這個(gè)文件夾是 D:fda1、插入-名稱-定義，或按CTRL+F3，打開excel名稱管理器定義一個(gè)名稱比如：aaa引用位置輸入：=FILES(d:fda*.*) &T(NOW()2、然后在任一工作表某一單元格輸入：=COUNTA(aaa)則返回文件個(gè)數(shù)。3、如果在任一工作表某一單元格輸入： =if(row(a1)counta(aaa),index(aaa,row(a1)4、再下拉公式進(jìn)行填充，則依序填充文件名。3. Excel一列中輸入文件名，另一列自動(dòng)生成指定文件夾同名文件超鏈接A列為輸入文件名，B列返回超鏈接B1中輸入：=HYPERLINK(D:FDA&A1,A1)其中d:fda為指定文件夾路徑。4. Excel中怎么把行轉(zhuǎn)換成列復(fù)制需轉(zhuǎn)換的單元格行，選擇性粘勾選“轉(zhuǎn)置”。在頁面投置工作表選項(xiàng)中勾選單色打印，可以不打印底紋圖案。5. Excel高亮顯示光標(biāo)所在行或列？在Excel中選擇菜單“格式條件格式”命令，彈出“條件格式”對(duì)話框。在“條件”下拉框中選擇“公式”并在右側(cè)中輸入下面相應(yīng)的公式，然后點(diǎn)擊“格式”按鈕，設(shè)置相應(yīng)的格式，完成后，按“確定”按鈕。不過當(dāng)前單元格編輯過才行，按過回車。高亮單元格：條件格式：=CELL(address)=ADDRESS(ROW(),COLUMN()高亮行條件格式：=ROW()=CELL(row)或者： =CELL(row)=ROW()高亮行和列條件格式：=(row()=cell(row)+(column()=cell(col)高亮當(dāng)前單元格為止的相應(yīng)行和列，呈反L形條件格式：=OR(AND(CELL(row)=ROW(),CELL(col)+1COLUMN(),AND(CELL(col)=COLUMN(),CELL(row)+1ROW()高亮當(dāng)前單元格為止的相應(yīng)行和列，呈反L形，且當(dāng)前單元格背景色改變、字體加粗：條件格式：=CELL(address)=ADDRESS(ROW(),COLUMN()”“=OR(AND(CELL(row)=ROW(),CELL(col)+1COLUMN(),AND(CELL(col)=COLUMN(),CELL(row)+1ROW()6. Excel單元格中插入頁碼方法（以Excel 2003版本為基礎(chǔ)，下文中所有“填寫”后跟的內(nèi)容不包括內(nèi)容最外側(cè)的全角引號(hào)）一、定義引用項(xiàng)（以下定義方法通過單擊菜單“插入/名稱/定義”彈出定義對(duì)話框操作）1、定義“頁碼”：“名稱”中填寫“頁碼”，“引用位置”中填寫“=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1),1,MATCH(ROW(),GET.DOCUMENT(64),1)+1)”2、定義“總頁數(shù)”：“名稱”中填寫“總頁數(shù)”，“引用位置”中填寫“=GET.DOCUMENT(50)+RAND()*0”。3、定義“第 N 頁”：“名稱”中填寫“第 N 頁”，“引用位置”中填寫“=第 &頁碼& 頁”。4、定義“第 N 頁 共 ？ 頁”：”：“名稱”中填寫“第 N 頁 共 ？ 頁”，“引用位置”中填寫“=第 &頁碼& 頁 共 &總頁數(shù)& 頁”。二、單元格插入頁碼1、插入法：指定單元格，單擊菜單“插入/名稱/粘貼”，根據(jù)需要的格式選擇即可。2、輸入法：指定單元格，在上部輸入?yún)^(qū)輸入等號(hào)加上面定義的名稱，如“=第 N 頁 共 ？ 頁”就是本例提問的格式。三、深入探討通過分析上述“定義引用項(xiàng)”內(nèi)容，您會(huì)發(fā)現(xiàn)，其實(shí)只需要定義“頁碼”和“總頁數(shù)”就可以了。需要使用的時(shí)候，可直接指定單元格，輸入上述“引用內(nèi)容”的內(nèi)容就可達(dá)成格式化頁碼的需要。如本例提問要求的格式化日期，可直接指定單元格后輸入“=第 &頁碼& 頁 共 &總頁數(shù)& 頁”就OK了。7. Excel隔行變色的方法條件格式公式說明：=MOD(ROW(),2)=0，實(shí)現(xiàn)的效果是偶數(shù)行自動(dòng)填充底紋顏色=MOD(ROW(),2)=1，實(shí)現(xiàn)的效果是奇數(shù)行自動(dòng)填充底紋顏色如果需要奇偶行都設(shè)置顏色，只需要設(shè)定兩個(gè)條件即條件1和條件2同樣的方法，可以實(shí)現(xiàn)excel隔列變色，只需將公式中的row變?yōu)镃OLUMN就可以了，即：=MOD(COLUMN(),2)=08. Excel字符替代函數(shù)=replace(目前的文本，想從第幾個(gè)數(shù)字開始改，共需要改幾個(gè)字，用什么改）=substitute(目前的文本，需要替換的文本，新的文本（替換后）9. Excel單元格的相對(duì)引用和絕對(duì)引用相對(duì)引用：a1=a2+a3絕對(duì)引用：a1=a$2+$a$3絕對(duì)引用：a1=$a2+$a$310. Excel公式插入回車符并顯示出來自動(dòng)換行在公式中加”&CHAR(10)&”，同時(shí)要將單元格設(shè)置為自動(dòng)換行。11. Excel自動(dòng)換行函數(shù)Char(10) p 12. Excel單元格不顯示0和錯(cuò)誤#/0的公式=IF(or(公式=0,ISERROR(公式),公式) =IF(or(公式=0,ISERROR(公式),公式) =IF(or(公式=0,ISERROR(公式),公式) ISNA函數(shù)用于測試數(shù)值類型，如果測試值為錯(cuò)誤值#N/A，則返回TRUE，否則返回FALSE。13. Excel單元格日期格式轉(zhuǎn)換成文本格式如“2008年7月18日”或“2008-7-18”的日期格式轉(zhuǎn)換成“20080718”的8位文本格式。公式“=text(A2,yyyymmdd)”（注：如果日期中還包含時(shí)、分、秒，則公式可改成“=text(A2,yyyymmddhhmmss)”。其中的文本格式可以按自己的要求靈活運(yùn)用，如“yymmdd h:m:s”表示只要年份的后兩位、時(shí)間中用冒號(hào)將時(shí)分秒隔開并且不滿兩位時(shí)前面不加“0”。14. Excel函數(shù)公式返回行號(hào)、列號(hào)返回行號(hào)：=row()返回列號(hào)：=column()15. Excel頁腳 底端標(biāo)題行設(shè)置選擇頁腳區(qū)域，按住Shift鍵，編輯復(fù)制圖片，再把圖片插入到自定義頁腳里（2003版可以，2000沒有這個(gè)功能）。16. Excel錄制宏執(zhí)行宏簡單的方法：自己可練習(xí)創(chuàng)建一個(gè)“宏”，（就是錄下自已需要做的操作步驟）方法：點(diǎn)擊工具宏錄制新宏彈出窗口確認(rèn)宏名稱這時(shí)就會(huì)彈出一個(gè)錄像框，你就可以一步一步點(diǎn)擊你要做的操作，按下“停止”，就結(jié)束了宏錄制！你再進(jìn)入工具宏選擇剛錄下的宏名稱點(diǎn)擊“編輯”這里面就是你要的宏代碼了，自已可以研究了！如下面就是一個(gè)宏，執(zhí)行后會(huì)自己打開：工作表3代碼是：Sub 按鈕1_單擊()Sheet (Sheet3)End Sub17. Excel打開工作薄時(shí)自動(dòng)執(zhí)行宏先錄制宏，再宏名字改成sub auto_open就變成自動(dòng)了18. Excel擊活工作表時(shí)自動(dòng)執(zhí)行宏Sub Macro適合行高() .宏名 ZYC錄制 時(shí)間: 2014-9-23 .注釋行Private Sub worksheet_activate()Cells(1, 1) = Now()Rows(3:3).SelectRows(3:3).EntireRow.AutoFitEnd Sub先打開對(duì)應(yīng)工作表，操作alt+F11，在視圖中選正代碼窗口，然后復(fù)制粘貼上面代碼。19. Excel擊活工作表6-10行自動(dòng)執(zhí)行最適合的行高，然后選正單元格A6的宏？Private Sub worksheet_activate() Rows(6:10).Select Rows(6:10).EntireRow.AutoFitRange(A6).SelectEnd Sub20. Excel隱藏單元格中的數(shù)據(jù)有時(shí)候，我們可能不希望別人看到Excel某些單元格或者區(qū)域中的數(shù)據(jù)內(nèi)容，可以選定這些單元格內(nèi)容，然后按下“Ctrl+1”組合鍵，在彈出的“單元格格式”對(duì)話框中，單擊“數(shù)字”選項(xiàng)卡，然后選擇“自定義”分類，在