|
▼かみちゃん さん:
申し訳ありません。再度質問をお願いいたします。
シート名をその日の日付にしてバックアップし、同じ日の
シート名がある場合はシートを上書き、無いときは新規に
シートを追加してデータをコピーするように考えたのですが
For Eachのところで同じ日付のシートを見つけることが出来ないようで
同じ日付のシートがあっても上書きされず、同じ名前のシートを
作れませんとエラーが起きてしまいます。
申し訳ありませんが、よろしくお願いいたします。
Sub SheetCopy()
Dim ws As Worksheet
Dim dName As String
dName = Format(Now(), "yy-mm-dd") '01-02-14
Application.ScreenUpdating = False
Sheets("DATA").Select
Range("A2").Select
If Range("A2") = "" Then
ElseIf Range("A2") <> "" Then
Cells.Copy
Workbooks.Open ThisWorkbook.Path & "\Backup.xls"
For Each ws In Worksheets
If ws.Name = dName Then
With ActiveSheet
.Range("A1").Select
.Paste
.Range("A2").Select
End With
Exit For
End If
Next
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = Format(Now(), "yy-mm-dd") '01-02-14
With ActiveSheet
.Range("A1").Select
.Paste
.Range("A2").Select
End With
End If
ActiveWorkbook.Save '上書き
ActiveWorkbook.Close '閉じる
Application.ScreenUpdating = True
End Sub
|
|