|
可以,,略作改动
- Sub 行业()
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Set wa = Workbooks.Open(ThisWorkbook.Path & "\基础数据" & Format(Date, "YYYYMMDD") & ".xlsx")
- Windows("基础数据" & Format(Date, "YYYYMMDD") & ".xlsx").Activate
- Sheets(1).Activate
- Set Rng = Range("I306:AY877")
- Workbooks(ThisWorkbook.Name).Activate
- ''''
- flag = 0
- For Each sht In Sheets '检索目标工作表是否在sheets集合
- If sht.Name = Format(Now(), "yyyymmdd") Then
- flag = 1
- Sheets(Format(Now(), "yyyymmdd")).Activate
- Range("a1:ay10000").Clear
- Range("a1").Resize(Rng.Rows.Count, Rng.Columns.Count).Value = Rng.Value
- Exit For
- End If
- Next
- If flag = 0 Then
- Sheets.Add(after:=Sheets(Sheets.Count)).Name = Format(Now(), "yyyymmdd")
- End If
- ''''
- Sheets(Sheets.Count).Activate
- Range("a1").Resize(Rng.Rows.Count, Rng.Columns.Count).Value = Rng.Value
- Workbooks(ThisWorkbook.Name).Save
- 'Application.Quit
-
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|