Excel VBA脚本格式dateMM-DD-YYYY

我需要将两个单元格的值从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

你不需要Setdate。 用=来赋值是足够的。 &符号（例如& ），而不是加号（例如+ ）用于string连接。

VBA Format函数应该很好地返回正确的string。

 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是实际的date。