多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
来源:互联网 发布:centos分辨率设置 编辑:程序博客网 时间:2024/05/22 06:43
实现的功能是把多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里,并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007,但是Excel2003应该也能用,Excel2000似乎不能用。
[1].[代码] 把多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
'功能:把多个工作簿的第一个工作表合并到一个工作簿的多个工作表,新工作表的名称等于原工作簿的名称
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
0 0
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- Excel合并多个工作表(Sheet)到一个Sheet中脚本
- 多个Excel文件中的多个Sheet合并到一个Excel文件中两个函数
- Excel多个工作表(Sheet)合并
- excel文件的多个sheet表合并成一个csv文件并导入数据库
- EXCEL:为一个EXCEL文件创建多个工作表
- 将Dataset中的多个DataTable导入到一个Excel文件的多个Sheet中
- 把多个excel文件的sheet1数据合并到一个excel文件的sheet1中
- 【Excel技巧】合并多个Sheet为一个的方法
- excel如何快速把多个工作表合并到一个excel表
- ASP.NET将数据导出到一个EXCEL文件的多个SHEET中
- c#(Asp.net)多个Excel文件合并到一个新的excel中
- POI创建Excel创建多个工作表sheet(二)
- 合并多个Excel文件
- Excel 合并多个文件
- 从CSV文件转换为Excel的多个Sheet
- 使用oledb获取Excel文件第一个工作表数据
- An error occurred while processing the post-install hook of the Podfile.undefined method `project`
- locationInView 和translationInView这个两个方法的区别
- Java—java方法重载
- IT产品质量保证测试矩阵
- 【UVa】[210]Concurrency Simulator
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里
- 以创业者的姿态做一名工程师
- 1025. 反转链表
- 在腾讯的第二堂产品课——改变大河的流向 梁宁-闲花照水录
- hdu4415 Assassin's Creed
- Leetcode 165. Compare Version Numbers
- 大数据存取的选择:行存储还是列存储?
- GitHub入门与实践(2)掌握Git 3、更改提交操作
- 【伸展树(splay)】[JSOI2008][HYSBZ/BZOJ1014]火星人prefix