【集中工作薄】 当前文件夹中所有Excel文件中 多个工作簿的第一个工作表 复制到工作簿中
2023-09-27 14:25:27 时间
功能:当前文件夹中所有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
相关文章
- 我去,Excel文件导入失败都搞不定么----记一次Excel文件导入失败--is not valid
- WPS将Excel表格转换为LaTex表格
- 友好解决POI导入Excel文件行是不是为空
- springboot整合jett实现模板excel数据导出
- 方法二破解:Excel工作表保护密码
- java读取excel文件并保存为json格式
- Excel常用函数大全
- POI中设置Excel单元格格式样式(居中,字体,边框等)
- Delphi Excel 操作大全
- Python自动化办公--Pandas玩转Excel【一】
- springboot实现EasyExcel对Excel读和写操作
- python 读取Excel
- Python pandas 保存Excel自动调整列宽的方法及示例代码
- Python pandas 新建sheet保存到Excel文件的方法及示例代码
- Java Aspose.cells Excel(.xls,.xlsx)文件转成csv文件和html文件
- 利用Python合并指定行列excel文件
- arcmap从excel坐标数据生成点shp文件