Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統(tǒng)的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個人計算機(jī)數(shù)據(jù)處理軟件。 文章介紹excel中使用vba提取文件名的操作步驟。根據(jù)需要自行修改vba提取文件名的路徑和存放單元格即可。 在excel中使用VBA編寫代碼,可以輕松的提取某個文件夾下面的所有文件名。 比如筆者在F盤下面建立了一個文件夾,文件夾的名稱是:本站,現(xiàn)在想將“本站”這個文件夾下面的所有文件名提取出來放在當(dāng)前工作表的C列。 具體的vba提取文件名的操作如下: 1.按下ALT+F11,打開VBE編輯器。 2.執(zhí)行“插入——模塊”,插入模塊1。? 3.在右邊的代碼編輯窗口,復(fù)制下面的代碼,然后單擊“綠色箭頭”或者快捷鍵F5鍵,運(yùn)行代碼。Private Sub vba提取文件名()? ? Dim FileName As String? ? Dim i As Long? ? FileName = Dir("F:\本站\*.*")? ? i = 0? ? Range("C:C").ClearContents? ? Do While FileName > ""? ? ? ? i = i + 1? ? ? ? Cells(i, 3) = FileName? ? ? ? FileName = Dir? ? LoopEnd Sub? 4.關(guān)閉VBE窗口,回到工作表中,可以在C列看到F盤“本站”文件夾下面所有的文件名全部羅列在C列了。? 關(guān)于上面的vba提取文件名的代碼,請在實(shí)際使用時,根據(jù)需要修改提取文件名的路徑(F:\本站\*.*),以及存放在C列的位置(Cells(i, 3))。![]() Excel整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗(yàn)。 |
溫馨提示:喜歡本站的話,請收藏一下本站!