我對應該使用的正確格式或方法有疑問。
我的程式：
dtReportDateStart = Format(ThisWorkbook.Worksheets("Dashboard").Range("C2"), "YYYYMMDD")
dtReportDateEnd = Format(ThisWorkbook.Worksheets("Dashboard").Range("C3"), "YYYYMMDD")
CurrentDate = dtReportDateStart
Do While CurrentDate <> dtReportDateEnd
Location = "http://." & CurrentDate & ".tsv.txt"
CurrentDate = CurrentDate 1
Loop
它應該采用“YYYYMMDD”格式的兩個日期，然后僅適用于作業日。現在，只要我們有周末，它就會出錯。CurrentDate應該采用“YYYYMMDD”格式的原因是它從資料庫（位置）下載值，而這正是需要這種格式的格式。
我的想法：
(1) 我在單元格 F 的儀表板上列印作業日，從 F1 開始，代碼可以從一個單元格移動到另一個單元格。
(2) 更改資料格式以使用 WEEKDAY 函式，If Weekday(CurrentDate, vbMonday) < 6 Then [...]
但是在這兩種情況下我都不知道怎么寫
uj5u.com熱心網友回復：
請嘗試使用下一個功能：
Function isWD(dDbl As Double) As Boolean
Dim d As Date: d = DateSerial(left(dDbl, 4), Mid(dDbl, 5, 2), Right(dDbl, 2))
If Weekday(d, vbMonday) < 6 Then isWD = True
End Function
然后在你的代碼中使用它：
Do While CurrentDate <> dtReportDateEnd
If isWD(CDbl(CurrentDate)) Then
Location = "http://." & CurrentDate & ".tsv.txt"
End If
CurrentDate = CurrentDate 1
Loop ```
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/503707.html
上一篇：范圍內的組號序列
下一篇：搜索值并格式化整行