エクセルの日付カラムなので
ほぼ日付の形になっているが
時間があるのかどうかを判定するのが面倒くさいので
正規表現をつかう事にした
日付の正規表現にこまったので
下記のサイトを参考にした
http://kenjikaeshima.blogspot.jp/2010/01/20.html
(\d{4})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})
Dim objRE, strPattern As String, i As Long, msg As String, reMatch '正規表現で使用 Set objRE = CreateObject("VBScript.RegExp") strPattern = "(\d{4})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})" '正規表現を設定する objRE.Pattern = strPattern msg = "2013/12/03" If objRE.test(msg) = False Then '***時間指定なし myTmp = myTmp & """" & msg & " 00:00:00" & """" & vbTab Else '***時間指定あり myTmp = myTmp & """" & msg & """" & vbTab End If