利用表格批量創(chuàng)建文件夾

昵稱8293760 2022-05-19 發(fā)布于廣東

展開全文

Sub BatchCreatFolders()

Dim rCel As Range

For Each rCel In ThisWorkbook.Worksheets("抽取座位").UsedRange.Columns(3).Cells '3為C列

On Error Resume Next

MkDir Range("G2").Text & "\" & rCel.Text 'G2為創(chuàng)建文件夾目標(biāo)路徑所在單元格

End Sub

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：昵稱8293760 > 《辦公軟件》

舉報(bào)/認(rèn)領(lǐng)