多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里

62 阅读 0 评论 41 点赞

我是靠谱客的博主友好心情，最近开发中收集的这篇文章主要介绍多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，觉得挺不错的，现在分享给大家，希望可以做个参考。

实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。

 
 '功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称 

 
 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 

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。