vb整合多个excel表格到一张_vb合并多个excel表格数据库-如何实现多个工作表合并到一个EXCEL文档中,除了用VB...

Excel VB代码 2003快速合并多个Excel工作表代码 解释

我一般是EXCEL 和ACCESS使用,一般用通过链接表,把EXCEL的导入到ACCESS在数里查询,在EXCEL进行数据收集. 不过如数才几千,单用EXCEL就可以了, 你想要的功能"很难查到在那一期",可以用查找--查找全部-选整个工作簿,那信息在那个sheet都可以查找到了.

如何快速合并多个excel 表格

原始数据所作簿包含多个格式作表，只不过每个工作表内容，比如说不同人名的工作表数据或者不同部门填写的数据。

2

在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。

3

按Alt F11进入VBA代码编辑和调试界面。

4

根据下图提示，插入一个模块。

5

将下述代码粘贴到模块空白处：

Sub CombineSheetsCells()

Dim wsNewWorksheet As Worksheet

Dim cel As Range

Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant

Dim TitleRow, TitleColumn As Range

Dim Num As Integer

Dim DataRows As Long

DataRows = 1

Dim TitleArr()

Dim Choice

Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$

Dim n, i

n = 1

i = 1

Application.DisplayAlerts = False

Worksheets("合并汇总表").Delete

Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))

wsNewWorksheet.Name = "合并汇总表"

MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")

If MyFileName = "False" Then

MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"

Else

Workbooks.Open Filename:=MyFileName

Num = ActiveWorkbook.Sheets.Count

MyName = ActiveWorkbook.Name

Set DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)

AddressAll = DataSource.Address

ActiveWorkbook.ActiveSheet.Range(AddressAll).Select

SourceDataRows = Selection.Rows.Count

SourceDataColumns = Selection.Columns.Count

Application.ScreenUpdating = False

Application.EnableEvents = False

For i = 1 To Num

ActiveWorkbook.Sheets(i).Activate

ActiveWorkbook.Sheets(i).Range(AddressAll).Select

Selection.Copy

ActiveSheetName = ActiveWorkbook.ActiveSheet.Name

Workbooks(ThisWorkbook.Name).Activate

ActiveWorkbook.Sheets("合并汇总表").Select

ActiveWorkbook.Sheets("合并汇总表").Range("A"