excel批量生成n個文件夾

⑴ 如何批量處理以下操作！批量更改n個指定文件名，批量移動n個文件到n各文件夾，excel批量超級鏈接！

用Excel編宏,先取所有的照片文件名填入Excel表中
將取出來的文件名與學員名對應,寫成如下格式(可在一個單元格寫,也可在三個單元格寫)
REN d:\YP0252.jpg 張三.jpg
將內容復制到BAT文件中運行一遍即可改掉所有的照片文件名
至於超接鏈接,編一個宏運行一下就行,宏很簡單

⑵ 如何用Excel做文件夾

1、打開員工信息表，要將員工姓名這一列排列整齊，可以設置為居中、左對齊、右對齊等。

⑶ 怎樣批量建立文件夾下面N個子文件夾

答1：可以不反復進出各子目錄，只是寫bat文件的時候，需要把子目錄名字重復幾遍而已。

答2：首先，md這個命令可以批量創建，但是相鄰兩個文件夾的創建地址和名稱都是由空格隔開的，所以如果文件夾名稱里帶有空格的話，這個文件夾名字還得用雙引號括起來。

根據你的描述，你希望的結果是：md20175月20176月

另外，你有提到希望批量建立子文件夾。

我常用的方法是，用excel結合cmd。批量建立有規律的子文件夾的話，比如漫畫目錄「第XX話」這種的，直接在Excel裡面利用自動填充+簡單的字元串拼接，就可以把md語句寫好，然後直接復製做成bat，還是挺簡單的。 如果子文件夾命名不太規律，那可能還是得手動輸入。或者使用一些excel里跟字元串有關的公式啥的。 這里不展開說了。

至於多層層級，就是繼續往後加斜杠，比如「md 20175月上旬20175月下旬」 就是在「2017」文件夾中的「5月」文件夾內，再建立兩個文件夾：「上旬」和「下旬」。（這個如果批量數量很多的話，也可以利用excel完成。）

⑷ 如何將含多個sheet的excel按照一列拆分成N個含多個sheet的excel文件

將含多個工作表的Excel文件按照每個工作表的一列拆分成多個Excel文件，有兩種方法：
第一種方法：利用編程工具，自己編寫代碼處理；
第二種方法：利用WPS表格的拆分功能將每個工作表拆分成多個Excel文件後，再利用合並表格功能將拆分後的Sheet1、Sheet2、Sheet3、Sheet4進行多次合並操作。

⑸ 怎麼快速批量創建文件夾

網上快速批量創建文件夾的辦法多如牛毛。職場小白帶你簡單、快捷批量創建文件夾。

工具/材料

台式電腦一台

在電腦主界面或者在在文件夾裡面，依順序同時按快捷鍵「Ctrl+Shift+N」或者點擊滑鼠右鍵選擇新建文件夾。

選中新建好的文件夾，按「Ctrl+C」復制，再按「Ctrl+V」粘貼。

根據自己對文件夾需求的個數，重復上述步驟即可。

選中文件夾，按「F2」重命名搞定。

特別提示

1.記幾個快捷鍵，一勞永逸。

2.此方法建議新建文件夾數量在20個及以下。因為你一時半會還用不了那麼多文件夾。

⑹ 有n個xls的表格，怎樣一次批量添加n個文件

啟動Excel程序，單擊工具-宏-宏...，在宏對話框中，在宏名中輸入 add，單擊創建，在打開的宏編輯器中，直接復制粘貼如下代碼：
Dim App, Xls As Object
Set App = CreateObject("Excel.Application")
App.Visible = 0
App.DisplayAlerts = 0
For i = 1 To 1000 '這里的1000，自己根據該文件夾中需要處理的實際工作簿的數量來定，不需要處理的工作簿，請移走
On Error Resume Next
Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xls") 'D:\text，自己修改為該文件夾的實際路徑，後面的原樣不動，默認為97-2003版本的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xlsx") '如果不是97-2003版本的表，則為2007及以上版本的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xla") '如果不是2007版本的表，判斷是否為97-2003載入宏的表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".csv") '如果不是97-2003版本載入宏的表，判斷是否為97-2003或2007及以上版本的csv表
On Error Resume Next
If Xls Is Nothing Then Set Xls = App.Workbooks.Open("D:\test\公司" + Trim(Str(i)) + ".xlsm") '如果不是csv表，判斷是否為2007及以上版本的載入宏的表
If Xls Is Nothing Then GoTo nextsheet '如果都不是以上這幾種類型版本的表，則跳過不處理了
App.Sheets(1).Activate '只操作每個工作簿中的表1，如果要操作其他表，得需要用到循環
App.Range("A18").Select
App.ActiveCell.FormulaR1C1 = Trim(Str(i))
App.ActiveWorkbook.Save
App.ActiveWorkbook.Close
Set Xls = Nothing
nextsheet:
Next i
MsgBox "處理完畢", vbInformation, "消息"
App.DisplayAlerts = -1
App.Quit

代碼粘貼好之後，先修改你的這1千個工作表所在的文件夾的具體路徑，然後按F5運行即可，本宏後台運行Excel，看不到所打開的電子表格，處理完畢後自動給出消息。