vba获取已经打开的工作簿名称 Excel vba 怎么获取已经打开文件文件名？
Excel vba 怎么获取已经打开文件文件名？
方法/步骤不胜感激
1
简单，先打开Excel，可以打开开发工具。
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
然后，再一次打开开发工具，在开发工具中点开宏，运行Ma宏
6
结果，运行能够完成，路径为：C:UsersAdministratorDesktopbb文件夹下的文件和文件夹名称都被获取到Excel中了。
怎样编写一个VBA,快速将多个excel工作簿按相同名称的工作表分开汇总到一个新表格里？
有多个excel工作簿，你是什么工作簿里面的工作表的名称相同，工作表排列的顺序相同，请问各位如何能急速地将多个这样的工作簿按工作表名称汇总表格到两个新的工作簿里对应名称的工作表里。
可以提供你两个新的方法可以使用Power Query进行多文件合并，非常方便这个可以尝试一下，能搞完全符合国家规定你的要求。
将所有的文件没装在三个文件夹中，可以打开Excel获取数据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工作簿的模块里即可，委托区域你可以自己如何修改下代码，我这里是全表复制的效果。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
