Excel VBA腳本格式日期MM-DD-YYYY

Question

我需要將兩個單元格的值從dd / mm / yyyy轉換為mm-dd-yyyy，並將這些值附加到存儲過程調用中。 我的代碼：

Dim dtInicio As String
Dim dtFim As String
Set stDate = CStr(MWS.Cells(1, "E").Value)
Set enDate = CStr(MWS.Cells(2, "E").Value)

在上面的代碼之后，我需要這樣的東西：

wstring = "exec sp_accessFile '"+stDate+"', '"+enDate +"'

Answer 1

您不需要Set日期。 用=值分配就足夠了。 字符串連接使用“ & （例如& ），而不是加號（例如+ ）。

VBA Format函數應擅長返回正確的字符串。

Dim dtInicio As String, dtFim As String
stDate = Format(MWS.Cells(1, "E").Value, "mm-dd-yyyy")
enDate = Format(MWS.Cells(2, "E").Value, "mm-dd-yyyy")

wstring = "exec sp_accessFile '" & stDate & "', '" & enDate & "'"

wstring應該看起來像

exec sp_accessFile '07 -19-2015'，'08 -25-2015'

以上假設E1：E2是實際日期。