Excel VBA列出某資料夾下子資料夾及檔名

2022-07-06 16:12:17 字數 2274 閱讀 7233

1樓:特特拉姆咯哦

1、首先利用快捷鍵「windows鍵+r」開啟「執行」視窗2、接著輸入「cmd」並點選「開啟」

3、比如是需要複製輸出c盤下的progam data中資料夾的名字4、在命令視窗中輸入「cd c:\progam data」

5、點選「回車鍵」後出現下面情況

6、然後輸入「dir /b>d:21.xls」命令並點選「回車鍵」

7、接著就在d盤出現名稱為21的一個excel**8、點選開啟即可檢視progam data中的資料夾名字都在excel**中,可以批量直接複製了

2樓:一點設計演示

1.點開始選單,就能看到上面的介面,選擇「執行」!點了執行程式後,在裡面輸入「cmd」點選確定會進入命令提示符串列埠。

2.打個比方說,檔案在c盤裡面的111資料夾,要讀取裡面的檔案的檔名字。

3.利用cd命令到達要讀取檔名的資料夾,用法是這樣的:命令為「cd c:\111」。

4.然後會看到下面的這個情況:

5.然後輸入命令「dir /b>d:1.xls」然後回車。

6.到d盤就能看到一個名稱為1.xls的檔案。

7.開啟就是了。

3樓:

搞屁,人家是要用指令碼實現。

excel vba 獲取資料夾及子資料夾下所有檔案並建立超連結

4樓:

用fso。我前一陣剛做了一個。不過**沒在這。你可以找一段**,不懂得地方我給你註釋

excel vba自動抓取指定資料夾內檔名及建立時間

如何用vba遍歷指定目錄下的所有子資料夾excel檔案的所有工作表

5樓:匿名使用者

這個是我找到(抄襲)的一段**,查詢資料夾下面的子資料夾,檔案的,我想你應該需要這個,列出子資料夾,然後所有遍歷,三個引數,mulu是指定的路徑,zi是是否查詢子資料夾,leixin是檔案型別,少少修改應該能滿足你的需求

6樓:

下面的**是手工碼的,不曉得有沒有問題。

sub test()

dim f as string,mpath as string,wb as workbook,sh as worksheet

if workbooks.count>1 then msgbox "關閉其他工作簿!":exit sub

mpath = "d:\臨時資料夾\" '指定路徑,注意分層標記\f=dir(mpath & "*.xls*")do while f<>""

if f<>thisworkbook.name thenset wb=workbooks.open(mpath & f)  '只讀方式開啟

with wb

for each sh in .worksheets'對工作表進行操作的**段,自己寫。

next

end with

wb.close 0  '關閉檔案

end if

f=dir  '列舉,以訪問下一個工作簿。

loop

end sub

7樓:姓王的

用字典比較方便,不過總的來說**還是比較複雜的。

8樓:鼎中人

sub test()

dim f as string, mpath as string, wb as workbook, sh as worksheet

if workbooks.count > 1 then msgbox "關閉其他工作簿!": exit sub

mpath = "d:\臨時資料夾\" '指定路徑,注意分層標記\f = dir(mpath & "*.xls*")do while f <> ""

if f <> thisworkbook.name thenset wb = workbooks.open(mpath & f) '只讀方式開啟

with wb

for each sh in .worksheets'對工作表進行操作的**段,自己寫。

next

end with

wb.close 0 '關閉檔案

end if

f = dir '列舉,以訪問下一個工作簿。

loop

end sub

網上覆制的,大概看了下,應該沒有問題。

excel,怎麼用vba寫段關於查詢指定資料夾內的檔名,並將其提取值至表內

Linux系統怎麼複製資料夾下的全部檔案到另外資料夾

cp a 原始檔 目標檔案 cp命令用於複製檔案或目錄,格式為 cp 選項 原始檔 目標檔案 複製命令的三種情況 目標檔案是一個目錄,會將原始檔複製到該目錄中。目標檔案是一個檔案,會將原始檔覆蓋該檔案。目標檔案不存在,將會複製原始檔並修改為目標檔案的名稱 重新命名 引數 作用 p 保留原始檔案的屬性...

C如何遍歷資料夾下面所有的檔案,C如何遍歷一個資料夾下面所有的檔案

引用using system.io 方法void getallfiles string dir,listallfiles 用法lista new list getallfiles d files a a裡面的就是所有檔案 string files directory.getfiles path,se...

windows7系統下如何讓每個資料夾下面的子資料夾

左上角,組織,資料夾和搜尋選項,檢視,應用到資料夾 這樣就可以將同一型別的資料夾師徒設為當前資料夾的型別了 如有疑問,請追問 如有幫助,還望採納一下,謝謝 右擊我的電腦點屬性 出現系統視窗 視窗左上方找 高階系統設定 出現系統屬性視窗 點高階 效能設定 有一個 顯示縮圖,而不是顯示圖示 在前面把勾打...