|
- Sub 合并()
- Dim wb As Workbook, mypath$, myname$, sht As Worksheet
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- mypath = ThisWorkbook.Path & "\门店汇总"
- myname = Dir(mypath & "*.xls")
- For Each sht In Sheets
- If sht.Name <> "汇总" Then
- sht.Delete
- End If
- Next sht
- Do While myname <> "" And myname <> "汇总"
- Set wb = GetObject(mypath & myname)
- With wb.Sheets("周汇总")
- .Unprotect "aabbaabb"
- .Copy , ThisWorkbook.Sheets(Sheets.Count)
- End With
- ThisWorkbook.Sheets(Sheets.Count).Name = Replace(wb.Name, ".xls", "")
- wb.Close False
- myname = Dir
- Loop
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|