合并excel 宏文件
来源:互联网 发布:成都管家婆软件 编辑:程序博客网 时间:2024/05/01 11:15
文件名:Combine.bas
Attribute VB_Name = "模块1"
Sub AsiaFluxCombine()Dim path As String
Dim FileName As String
Dim LastCell As Range
Dim Wkb As Workbook
Dim WS As Worksheet
Dim ThisWB As String
Dim MyDir As String
MyDir = ThisWorkbook.path & "\"
ThisWB = ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path = MyDir
FileName = Dir(path & "\*.xls", vbNormal)
Do Until FileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Set Wkb = Nothing
Set LastCell = Nothing
'删除sheet2和sheet3
Application.DisplayAlerts = False
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet3").Activate
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select
'复制其他工作表中内容到sheet1
Dim i, j As Long
j = 1
For i = 3 To Sheets.Count
Worksheets(i).Range("1:1").EntireRow.Delete
Next
For i = 2 To Sheets.Count
If Worksheets(i).Name <> ActiveSheet.Name Then
Worksheets(i).UsedRange.Copy
ActiveSheet.Paste Sheets(1).Range("a" & j)
j = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
End If
Next
'删除多余工作表
Application.DisplayAlerts = False
Dim sht As Worksheet
Sheets("Sheet1").Select
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
sht.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox " ~(≧▽≦)/~"
End Sub
0 0
- 合并excel 宏文件
- Excel文件合并(基于宏)
- VBA EXCEL 文件合并
- excel 合并文件 vba
- VBA excel文件合并
- 合并多个Excel文件
- Excel 合并多个文件
- Excel的二次开发实例:合并Excel文件
- 利用 VBA 批量合并 EXCEL 文件
- 使用VBA合并多个Excel文件
- 合并多个Excel文件工具
- 合并多个excel文件内容
- java读写Excel文件、合并单元格
- excel 多个文件合并,字段相同
- 如何将多个excel文件合并成一个
- 使用Python横向合并excel文件
- excel sheet合并 宏初学
- WPF读写excel的完整示例-excel文件合并工具
- java实现各种排序算法及比较
- spring mvc 基于maven的完整demo
- PAT Rational Arithmetic (20)
- 九度OJ-题目1367:二叉搜索树的后序遍历序列
- CocoaPods使用说明
- 合并excel 宏文件
- SAT语法--介绍两大必考从句
- UML类图
- Python遍历文件
- 初到CSDN
- Android自定义动态布局 — 多图片上传(记录一下,以后可能会用到)
- 软件包javax.servlet不存在的解决办法
- 数字图像处理经典论文汇总
- DEBIAN忘记root密码如何进入BASH并修改密码