Excel VBA 到 web 表单日期格式
Excel VBA to web form date format
我第一次 VBA 在 IE 中填写网络表单。 excel 将日期放入 Web 字段时更改格式时出现一些问题。
Set doc = ie.document
doc.getElementById("txtTrackNotes").Value = ThisWorkbook.Sheets("Sheet1").Range("B2").Value
doc.getElementById("txtEntryTrackConnote").Value = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
doc.getElementById("txtTrackDate").Value = ThisWorkbook.Sheets("Sheet1").Range("C2").Value
最后一行引起了问题。 C2 中的值是 dd/mm/yyyy
格式的日期
当它进入网络表单时,它以 dd MONTH(文本)yyyy 格式出现 00:00(例如 2018 年 1 月 1 日 00:00)
来源 HTML 是
<input name="txtTrackDate" class="Size9" id="txtTrackDate" style="width: 100px;" onclick="javascript:displayDatePicker('txtTrackDate');" onblur="javascript:CheckDate(this.value);" type="text" value="25/10/2018">
如有任何建议,我们将不胜感激
尝试
=Format$(ThisWorkbook.Sheets("Sheet1").Range("C2").Value,"dd/mm/yyyy")
该字段是否需要这种输入格式?如果以上内容仍然发生变化,请验证该字段的预期格式。
我第一次 VBA 在 IE 中填写网络表单。 excel 将日期放入 Web 字段时更改格式时出现一些问题。
Set doc = ie.document
doc.getElementById("txtTrackNotes").Value = ThisWorkbook.Sheets("Sheet1").Range("B2").Value
doc.getElementById("txtEntryTrackConnote").Value = ThisWorkbook.Sheets("Sheet1").Range("A2").Value
doc.getElementById("txtTrackDate").Value = ThisWorkbook.Sheets("Sheet1").Range("C2").Value
最后一行引起了问题。 C2 中的值是 dd/mm/yyyy
格式的日期当它进入网络表单时,它以 dd MONTH(文本)yyyy 格式出现 00:00(例如 2018 年 1 月 1 日 00:00)
来源 HTML 是
<input name="txtTrackDate" class="Size9" id="txtTrackDate" style="width: 100px;" onclick="javascript:displayDatePicker('txtTrackDate');" onblur="javascript:CheckDate(this.value);" type="text" value="25/10/2018">
如有任何建议,我们将不胜感激
尝试
=Format$(ThisWorkbook.Sheets("Sheet1").Range("C2").Value,"dd/mm/yyyy")
该字段是否需要这种输入格式?如果以上内容仍然发生变化,请验证该字段的预期格式。