VBA EXCEL 文件合并
来源:互联网 发布:什么软件可以去掉原唱 编辑:程序博客网 时间:2024/05/01 14:27
Sub UnionWorksheets()
Dim i As Long ' 循环变量
i = 0
Dim j As Long ' 循环变量
j = 0
Dim insert_row As Long ' 合并文件中的粘贴位置
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "/*.xls")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
j = j + 1
Workbooks.Open Filename:=lj & "/" & dirname
Workbooks(nm).Activate
'复制新打开工作簿的第一个工作表的已用区域到当前工作表 '大哥们这个能不能写成循环,不然一个sheet来做一次好麻烦呀.
For i = 1 To Workbooks(dirname).Sheets.Count
With Workbooks(dirname).Sheets(i)
If j = 1 Then
Workbooks(dirname).Sheets(i).UsedRange.Copy _
Sheets(i).Range("a65536").End(xlUp).Offset(1, 0)
Else
.Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Copy _
Sheets(i).Range("a65536").End(xlUp).Offset(1, 0)
End If
End With
Next
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
- VBA EXCEL 文件合并
- excel 合并文件 vba
- VBA excel文件合并
- 利用 VBA 批量合并 EXCEL 文件
- 使用VBA合并多个Excel文件
- EXCEL VBA 跨表合并多个文件
- VBA合并EXCEL的单元格
- excel VBA合并工作簿
- VBA 合并多个excel
- 使用VBA合并多个EXCEL文件到一个EXCEL文件
- 有word vba 读取excel中存的word待合并路径,合并word文件
- Excel-VBA文件操作
- Excel VBA保存文件
- VBA保存Excel文件
- vba 创建excel 文件
- 通过VBA将多个格式相同的Excel文件合并成一个文件,带文件处理
- vba操作excel的合并单元格代码
- 通过VBA宏合并Excel工作表
- DIV+CSS必须考虑的浏览器兼容的技巧
- C#语言的几个层次(转)
- gloox接收消息
- FireFox nsSessionStore.js 问题报错解决
- Microsoft Visual C# 2008之winForm连接vfp数据库
- VBA EXCEL 文件合并
- 存储过程多条件查询
- 小学生经典作文片段(爆笑)
- Ajax同步链接在IE 与FireFox的使用差别 open("GET",url,false)
- 能否用无线上网卡发传真?
- Microsoft Dips Its Toe Into The iPhone With Seadragon Mobile
- 微软软件开发技术二十年回顾
- ajax学习笔记---XMLHttpRequest的属性和方法
- GLDEF_C, LOCAL_C, GLREF_C 的含义