相同格式EXCEL汇总

2019独角兽企业重金招聘Python工程师标准>>>

以下VBA用以汇总相同格式的工作表.

Option Explicit
Sub Collection()
'Collection Data into TTL worksheet
Dim Sh As Worksheet, SQL$, m%, Conn As Object
Dim MaxClm&, TitleArr()
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Set Conn = CreateObject("adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName
Application.ScreenUpdating = False  'Unable Screen Update
Application.DisplayAlerts = False   'No Alert for TTL sheet delete
For Each Sh In Sheets'查找现有WORKBOOK，如果已经有汇总表-TTL,删除If Sh.Name = "TTL" Then Sheets("TTL").Delete
Next
'增加新的汇总表-TTL
Set Sh = Sheets.Add(After:=Sheets(Sheets.Count))
Sh.Name = "TTL"
Application.DisplayAlerts = True    'Alert enableWith Sheets("TTL")
.UsedRange.ClearContents    'Clear data
MaxClm = Sheet1.[AX1].End(xlToLeft).Column  'Last column
'从SHEET1读入标题栏
TitleArr = Sheet1.Range("A1").Resize(1, MaxClm)
'循环SHEET
For Each Sh In SheetsIf Sh.Name <> "TTL" Thenm = m + 1If m = 1 ThenSQL = "select '" & Sh.Name & "',* from [" & Sh.Name & "$A:J]"ElseSQL = SQL & " union all select '" & Sh.Name & "',* from [" & Sh.Name & "$A:J]"End IfEnd If
Next
SQL = "select * from (" & SQL & ") "
'执行QUERY
.Range("A2").CopyFromRecordset Conn.Execute(SQL)
'读入标题栏
.Cells(1, 1) = "WorkSheet"
.Range("B1").Resize(1, UBound(TitleArr, 2)) = TitleArr'释放内存
Conn.Close: Set Conn = Nothing
'UpdateScreen
Application.ScreenUpdating = True
End With
End Sub

转载于:https://my.oschina.net/tedzheng/blog/658365

相同格式EXCEL汇总相关推荐

excel汇总怎么做？
今天跟大家分享一下excel汇总怎么做? 1.如下图有多个格式相同的工作表,现在我们想要将其快速汇总出来. 2.首先我们选中数据单元格区域如下图 3.接着我们点击下图选项 4.鼠标依次点击[汇总拆分] ...
PHP获取当前时间、时间戳的各种格式写法汇总[日期时间]
PHP获取当前时间.时间戳的各种格式写法汇总[日期时间] 原文:PHP获取当前时间.时间戳的各种格式写法汇总[日期时间] 今天写下php中,如何通过各种方法获取当前系统时间.时间戳,并备注各种格式的 ...
python读取txt文件并写入excel-Python读取txt内容写入xls格式excel中的方法
由于xlwt目前只支持xls格式,至于xlsx格式,后面会继续更新 import xlwt import codecs def Txt_to_Excel(inputTxt,sheetName,star ...
php导出csv_原生PHP实现导出csv格式Excel文件的方法示例【附源码下载】
本文实例讲述了原生PHP实现导出csv格式Excel文件的方法.分享给大家供大家参考,具体如下: 效果图源码分析 index.php require_once "./Export.php& ...
python读取txt文件并输出到表格_Python读取txt内容写入xls格式excel中的方法
由于xlwt目前只支持xls格式,至于xlsx格式,后面会继续更新 import xlwt import codecs def Txt_to_Excel(inputTxt,sheetName,star ...
vb.net 导出固定格式EXCEL
客户要求,导出固定格式EXCEL,牵涉到office.excel类的相关操作,记录下: 1)引用Microsoft.Office.Interop.Excel和Microsoft.Office.Inte ...
excel汇总统计怎么做？
今天跟大家分享一下excel汇总统计怎么做? 1.打开演示文件,要求快速汇总出三个单位各项农业作业情况 2.首先我们点击下图选项 3.然后鼠标选中数据单元格区域 4.点击[汇总拆分]-[汇总多表] 5 ...
怎么用excel汇总？
今天跟大家分享一下怎么用excel汇总? 1.打开演示文件,如下图是某公司两个月各业务员销售产品表,现在想要统计出每一位员工的产品销售情况. 2.首先我们选中数据单元区域 3.然后我们点击下图选项 4 ...
excel汇总多个工作表怎么做？
今天跟大家分享一下excel汇总多个工作表怎么做? 1.打开演示文件,要求快速统计出各个单位夏种情况 2.首先我们选中数据单元格区域 3.然后我们鼠标点击下图选项 4.点击[汇总拆分]-[汇总多表] ...

相同格式EXCEL汇总

相同格式EXCEL汇总相关推荐

最新文章

热门文章