合并工作簿包含工作表名称

Sub 合并工作簿包含工作表名称()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.AddWith 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:=Falsei = i + 1
Next vrtSelectedItem
End If
End WithSet fd = Nothing
End Sub

转载于:https://www.cnblogs.com/medik/p/11093774.html

合并工作簿包含工作表名称相关推荐

excel合并多工作簿同名工作表？
今天跟大家分享一下excel合并多工作簿同名工作表? 1.如下图两个工作簿,都含有相同的工作表"销售部"现在我们想要将这两个工作簿中的销售部表格合并到一个表格中. 2.首先点击下图 ...
合并excel不同工作簿同名工作表
今天跟大家分享一下如何合并excel不同工作簿同名工作表,如何将不同工作簿同名表组合成一个工作簿. 1.如下图两个工作簿有两个名称相同的工作表,现在我们想要将相同名称工作表组合成一个工作簿. 2.首先 ...
Excel VBA 合并不同工作簿的工作表到一个工作簿的不同工作表
命令从下面第一个Sub开始: Sub 合并不同工作簿的工作表到一个工作簿的不同工作表() Excel.Application.ScreenUpdating = False Dim ARR() Dim ...
创建到另一个工作簿中已定义名称的外部引用的帮助(Excel)
创建到另一个工作簿中已定义名称的外部引用的帮助(Excel) 打开将包含外部引用的工作簿(目标工作簿)和包含要链接到的数据的工作簿(源工作簿). 在源工作簿中,单击快速访问工具栏上的"保存& ...
Tableau实战系列浏览 Tableau 环境（六） -工作簿和工作表
前言 Tableau 使用的是工作簿和工作表文件结构,这与 Microsoft Excel 十分类似.工作簿包含工作表,后者可以是工作表.仪表板或故事. 一个工作表包含单个视图以及其侧栏中的功能区. ...
此工作簿包含到其他数据源的链接
此工作簿包含到其他数据源的链接每次打开一个表时就会出现"此工作簿包含到其他数据源的链接",问是否更新,因我不知道到底链接是什么,所以都是不更新. 怎样才 ...
使用Python批量处理工作簿和工作表
使用Python批量处理工作簿和工作表批量新建并保存工作簿批量打开一个文件夹中的打开工作簿批量重命名一个工作簿的所有工作表批量重命名多个工作簿批量重命名多个工作簿中的同名工作表将一个工作簿 ...
python读取Excel工作簿、工作表
python读取Excel工作簿.工作表最近需要用python操作Excel表格,因此大概学习了一下如何操作,表较简单但是很实用,这里记录一些简单的操作. import xlrd # 读取工作簿 w ...
Excel提示“此工作簿包含一个或多个无法更新的链接”怎么办
有时打开Excel文件时会弹出一个"此工作簿包含一个或多个无法更新的链接"的提示.对于初次接触这个提示的用户,可能会感到迷惑,不知道应该如何处理,这里以Excel2007为例,介绍 ...

合并工作簿包含工作表名称

合并工作簿包含工作表名称相关推荐

最新文章

热门文章