- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
本帖最後由 准提部林 於 2020-2-10 16:16 編輯
Sub TEST()
Dim xPath$, xFile$, i&, k&
Dim Lastday$, mDay%, xBK As Workbook
Lastday = DateSerial(Year(Date), Month(Date) + 2, 0) '下個月月底
mDay = Day(Lastday) '下個月天數
Set xBK = Workbooks.Open(xPath & xFile) '開啟指定檔案
'-----------------------------------
Application.DisplayAlerts = False
On Error Resume Next
For i = mDay + 1 To 31: xBK.Sheets(i & "").Delete: Next i '刪工作表
On Error GoTo 0
Application.DisplayAlerts = True
'-----------------------------------
For i = 1 To mDay
With xBK.Sheets(i & "")
.[A2] = .[A2].Value '值化
.[B1] = .[B1].Value '值化
End With
Next i
End Sub
其它需求自行加入~~
=================================== |
|
發表於 2020-1-14 11:15
| 
