Sub ModMergedTables() '合并工作表
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
xlBookName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> xlBookName Then
Set xlBook = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
xlBook.Sheets(1).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)
xlBookNum = xlBookNum & Chr(13) & xlBook.Name
xlBook.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
我想每张表前四行内容不要复制,要怎么改,求高手,谢谢~~!
上面这段代码,是复制所有的了!
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
xlBookName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> xlBookName Then
Set xlBook = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
xlBook.Sheets(1).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row, 1)
xlBookNum = xlBookNum & Chr(13) & xlBook.Name
xlBook.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
我想每张表前四行内容不要复制,要怎么改,求高手,谢谢~~!
上面这段代码,是复制所有的了!
解决方案 »
- vb坐标画成图,已有坐标!谁能帮我
- vb无法提交下拉框表单!急求...
- VB标题循环,谁帮忙解析一下
- 我用vb来控制excel单元格来实现权限,但是老是报Range类不能使用Locked的属性,上边就行,下边就不行了。请看以下代码,清高手指点。谢谢
- 简单问题.则么使Picturebox里的图片清空
- CHMFactory 1.24.0 - 欢迎大家下载试用!
- KeyPress(KeyAscii As Integer) 怎么用??
- 高手帮忙!!!!
- vb6 遍历treeview所有节点
- 算法复杂度的很有意思的智力题。
- vb 遍历碰到有权限的文件怎么跳过继续遍历
- 初学者:VB6.0和VB2010的区别有多大,外加VB.NET
Selection.Delete Shift:=xlUp