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

Excel vba 怎么獲取已經(jīng)打開文件文件名？

方法/步驟不勝感激

1

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

2

然后，然后打開visualbasic。

3

再右鍵點(diǎn)擊左側(cè)的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ā)工具中點(diǎn)開宏，運(yùn)行Ma宏

6

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

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

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

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

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

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

重復(fù)一遍上述事項(xiàng)操作，就是可以將相同的SHEET合并

EXCEL中工作簿復(fù)制并重命名的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ū)域你可以自己如何修改下代碼，我這里是全表復(fù)制的效果。