vba批量合并指定的sheet_用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里...

应同事需要写了一段VBA代码，实现的功能是把多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2010，但是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

vba批量合并指定的sheet_用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里...相关推荐

VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
1 将excel中的多个工作表sheet合成一个工作表工作表合成前: 工作表合成后: **第一步:**在文件中新建一个工作表sheet,用来存放合成后的数据,如图所示: 第二步:点击"开发 ...
vba批量合并指定的sheet_Excel通用VBA代码一键合并多个工作表至总表！
原标题:Excel通用VBA代码一键合并多个工作表至总表! 一个工作簿中会有很多个相同格式,标题行内容和顺序都一样的工作表,我们想把这个工作表中的数据全部放至一个总表数据中. 图片上示例是3个工作表, ...
数值策划的自我修养(二)：用VBA批量获取指定目录下文件的名字
目录索引批量获取指定目录下文件的名字批量获取指定目录下文件的名字游戏项目的管理,自然少不了配置表的管理.今天记录的是如何在制作配置表管理工具时批量获取配置表文件夹下的配置表名并顺序写到一张Exc ...
Excel VBA: 工作表(Sheet)浏览导航插件
公司的日本人喜欢用excel写文档, 并且喜欢用很多的sheet, 然而在excel中, 随着工作表数量的增加, 工作表的浏览和定位就会变得麻烦起来, 于是我便希望能找到一个方法, 可以更容易, 更直 ...
Excel VBA 将不同工作簿中的工作表，按照工作表名里相同的关键词汇总
命令从下面第一个Sub开始: Sub Collectwks() Dim Sht As Worksheet, rng As Range, Sh As Worksheet Dim Trow&, k ...
外部表不是预期的格式怎么解决_1分钟拆解：如何将10多个工作表sheet，合并成一张？...
VBA教学时间到啦! 今天,解题宝宝无聊闲逛,惊奇发现了两份VBA代码,特意分享给大家. 是解决如何合并大量不同的工作表哒. 多少张都没问题!亲测有效! 分为以下两种情况合并同一工作簿的不同工作表. ...
excel shell合成_1分钟拆解：「如何将10多个工作表sheet，合并成一张？」
大家好,我是有讲课堂的认证达人:解题宝宝. 今天到了VBA教学时间! 因为今天阿,解题宝宝无聊闲逛,惊奇发现了两份VBA代码,特意分享给大家. 是解决如何合并大量不同的工作表哒. 多少张都没问题!亲测 ...
利用VBA批量删除EXCEL中的空白工作表SHEET
Sub delSheet()Dim x As WorksheetApplication.DisplayAlerts = FalseFor Each x In SheetsIf IsEmpty(x.Us ...
VBA实战(11) - 工作表(Sheet) 操作汇总
Sheet 操作汇总一.读取所有的 Sheet 页二.获取一个 Sheet 页中有效的行数和列数三.添加 Sheet 页四.删除 Sheet 页五.设置 Sheet 页的背景色六.分级 ...
excel合并两列内容_合并多个Excel文件内容到一个Excel中
媳妇工作中很多Excel文件大概30多个,想要合并到1个Excel中,每次复制粘贴太麻烦了,就帮着媳妇写个小程序解决一下,这样她就有时间上网看电视剧了. MergeExcel(不支持XP和以前的操作系 ...

vba批量合并指定的sheet_用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里...

vba批量合并指定的sheet_用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里...相关推荐

最新文章

热门文章