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

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

方法/步驟不勝感激

1

簡(jiǎn)單，先打開(kāi)Excel，可以打開(kāi)開(kāi)發(fā)工具。

2

然后，然后打開(kāi)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

然后，再一次打開(kāi)開(kāi)發(fā)工具，在開(kāi)發(fā)工具中點(diǎn)開(kāi)宏，運(yùn)行Ma宏

6

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

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

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

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

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

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

重復(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

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