标签：文件 Sheet Dim newwb excel tempwb vrtSelectedItem

1.创建一个文件夹，放入要合并的excel文件

2.在单独创建一个空的excel文件，打开放入VB脚本

Sub Books2Sheets()  
'定义对话框变量   
Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker)      
'新建一个工作簿  
Dim newwb As Workbook  
Set newwb = Workbooks.Add    
With fd       
If .Show = -1 Then      
'定义单个文件变量     
Dim vrtSelectedItem As Variant    
'定义循环变量     
Dim i As Integer   
i = 1        
'开始文件检索     
For Each vrtSelectedItem In .SelectedItems    
'打开被合并工作簿      
Dim tempwb As Workbook          
Set tempwb = Workbooks.Open(vrtSelectedItem)    
'复制工作表     
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)      
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx   
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")                     
'关闭被合并工作簿            
tempwb.Close SaveChanges:=False    
i = i + 1    
Next vrtSelectedItem    
End If   
End With     
Set fd = Nothing
End Sub 

3.点击执行，弹出窗口，选择要合并的文件，点击确定，等待合并中，保存合并完的文件

标签：文件,Sheet,Dim,newwb,excel,tempwb,vrtSelectedItem
来源： https://blog.csdn.net/zzh18334820165/article/details/122024011

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。