[發問] 如何使EXCEL檔案，每天第一次打開時，用當天日期自動新增一個工作表

paul3063

如何使EXCEL檔案，每天第一次打開時，用當天日期自動新增一個工作表
假設今天是2017年12月8號星期五，當EXCEL第一次打開時，用當天日期作為名稱(20171208)，新增一個工作表。
如果今天是星期六跟星期日就不新增，第二次打開時也不新增。
請各位高手幫忙一下，謝謝。

li_hsien

回復 1# paul3063

作法可能需要寫VBA

程式碼如下

1. Option Explicit
   
2. 
   
3. Private Sub Workbook_Open()
   
4.    
   
5.     Dim i, flag As Integer
   
6.    
   
7.     flag = 0
   
8.    
   
9.     '判斷工作表是否存在
   
10.     For Each i In Worksheets
    
11.         If i.Name = Application.Text(Now(), "yyyymmdd") Then
    
12.             flag = 1
    
13.             Exit For
    
14.         End If
    
15.     Next
    
16.    
    
17.     '若工作表不存在 判斷是否為六日 (weekday 星期日=1 星期六=7)
    
18.     If Weekday(Now()) <> 7 And Weekday(Now()) <> 1 And flag = 0 Then
    
19.         
    
20.         Worksheets.Add.Name = Application.Text(Now(), "yyyymmdd")
    
21.    
    
22.     End If
    
23.    
    
24. End Sub

複製代碼

實作附件如下
AddWorksheet.zip (9.81 KB)

下載次數: 16

2017-12-11 09:43

paul3063

回復 2# li_hsien

li_hsien大，
如果要多增加一個當天日期後面多一個A的工作表(例如20171212A)要怎樣修該程式碼?
可不可以再麻煩您一下

infoverdad

回復 4# paul3063


  將兩個 Application.Text(Now(), "yyyymmdd") 後面都加上 & "A"

baa168

沒想到 excel 的 vba 竟然有這種用法
太實用了