vba sheet 新增 by 日期問題...急

Question

請問我有兩個 workbooks-->source & write

write 裡面的 sheets 會因為當天日期不同而新增...比如今天31則新增sheet("31")

明天1 則新增 sheet("1")

而 每天將 source 中的資料寫入 write 中 sheet("當天日期")

請高手幫幫忙吧

Update:

我是想用 vba 寫這個巨集

Answer 1

Favorite Answer

'此程式置於write

Private Sub Workbook_Open()

    '判斷是否已複製

    If Sheets(Sheets.Count).Name = Format(Date, "yyyymmdd") Then

        '已複製則選取並離開程式

        Sheets(Sheets.Count).Select

        Exit Sub

    End If

    '複製source工作頁Sheet1內容於write工作頁之後

    Workbooks.Open("C:\source.xls").Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

    '變更工作頁名稱為日期

    Sheets(Sheets.Count).Name = Format(Date, "yyyymmdd")

End Sub

Answer 2

這個問題是要幫忙什麼?