9.5.6 表达式文件的整合
Join.xls文件的工作流程如下:
实现代码如下:
Private Sub auto_Open()
Cells.Select
Selection.Delete Shift:=xlUp
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" &"*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" &MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) =Left(MyName, Len(MyName) - 8)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536"