CYCU
Lv 5
CYCU asked in 電腦與網際網路程式設計 · 1 decade ago

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

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

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

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

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

請高手幫幫忙吧

Update:

我是想用 vba 寫這個巨集

2 Answers

Rating
  • 1 decade ago
    Best 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

  • Money
    Lv 5
    1 decade ago

    這個問題是要幫忙什麼?

Still have questions? Get your answers by asking now.