我的目標是在我的外發郵件中獲取主題中當前一周的周數。
下面給了我本周 1，我正在嘗試撰寫代碼但無法解決。
是否有人有針對此問題的基于 VBA 的解決方案，無論使用哪種 Office 版本都可以作業？我以前有2016，現在有365。問題仍然存在..
我在下面嘗試過，'Format(Now - 1, "ww")' 來解決，但它沒有給出當前周 - 1 周，我背后的邏輯是 Format(Now - 1, "YYYY-MM-DD") 實際上今天輸出 - 一天的日期。
Sub SendMail()
Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olEmail = olApp.CreateItem(olMailItem)
With olEmail
.BodyFormat = olFormatHTML
.Display
'.HTMLBody = "<p style=font-size:11pt;font-family:Calibri>Text here, but deleted in this moment..</p>" & .HTMLBody
'.Attachments.Add "C:\temp\Bok1.xlsx"
'.To = ""
.Subject = "v" & Format(Now - 1, "ww") & " - PR11"
'.Send
End With
Set olApp = Nothing
Set olEmail = Nothing
End Sub
uj5u.com熱心網友回復：
Format有可選引數：
FirstDayOfWeekFirstWeekOfYear
根據評論，您似乎正在尋找：
Format(Date, "ww",,vbFirstFullWeek)
其中vbFirstFullWeek意味著：
從一年中的第一個完整的一周開始。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/467234.html
上一篇：ExcelVBA查找方法將搜索框“內部”從作業簿重置為作業表
下一篇：區分Catia中的物體