Excel vba 怎么獲取已經打開文件文件名？方法/步驟不勝感激1簡單，先打開Excel，可以打開開發(fā)工具。2然后，然后打開visualbasic。3再右鍵點擊左側的sheet1欄。4在窗口中輸入代

Excel vba 怎么獲取已經打開文件文件名？

方法/步驟不勝感激

1

簡單，先打開Excel，可以打開開發(fā)工具。

2

然后，然后打開visualbasic。

3

再右鍵點擊左側的sheet1欄。

4

在窗口中輸入代碼：

Sub Ma()

mypath#34C:UsersAdministratorDesktop bb#34myfile Dir(mypath,vbDirectory)

a1

DoWhilemyfileltgt#34#34

Ifmyfileltgt#34.#34Andmyfileltgt#34..#34ThenCells(a,1)myfile

aa1

myfileDir

Else

myfileDir

EndIf

Loop

EndSub

5

然后，再一次打開開發(fā)工具，在開發(fā)工具中點開宏，運行Ma宏

6

結果，運行能夠完成，路徑為：C:UsersAdministratorDesktopbb文件夾下的文件和文件夾名稱都被獲取到Excel中了。

怎樣編寫一個VBA,快速將多個excel工作簿按相同名稱的工作表分開匯總到一個新表格里？

有多個excel工作簿，你是什么工作簿里面的工作表的名稱相同，工作表排列的順序相同，請問各位如何能急速地將多個這樣的工作簿按工作表名稱匯總表格到兩個新的工作簿里對應名稱的工作表里。

可以提供你兩個新的方法可以使用Power Query進行多文件合并，非常方便這個可以嘗試一下，能搞完全符合國家規(guī)定你的要求。

將所有的文件沒裝在三個文件夾中，可以打開Excel獲取數(shù)據(jù)rlm從文件rlm從文件夾

選擇類型示例文件就這個可以完成四次合并，

重復一遍上述事項操作，就是可以將相同的SHEET合并

EXCEL中工作簿復制并重命名的VBA怎么寫？

Sub剛建工作簿()

False

DimgzbsuchWorkbook

Setgzb

1-a

Workbooks(A.xls).Sheets(a)[a1]

(after:Worksheets()).Name1-b

Workbooks(A.xls).Sheets(b)[a1]

1-A.xls,FileFormat:xlExcel8

SetgzbNothing

True

EndSub

那個vba代碼寫在A工作簿的模塊里即可，委托區(qū)域你可以自己如何修改下代碼，我這里是全表復制的效果。