Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/xml/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何更改转换后的XML数据字段的数据格式_Excel_Xml_Vba - Fatal编程技术网

Excel 如何更改转换后的XML数据字段的数据格式

Excel 如何更改转换后的XML数据字段的数据格式,excel,xml,vba,Excel,Xml,Vba,下面是我用来将xml数据转换为excel表格的部分代码,我的问题是如何更改“需要按日期”列格式,目前我得到“2019-03-17T00:00:00.000+00:00”,我想将其更改为“17/03/2019” 'For each node G_1 For Each myNode In xml.getElementsByTagName("G_1") i = i + 1 ws.Cells(i + 1, 1) = myNode.SelectNodes("BUSI

下面是我用来将xml数据转换为excel表格的部分代码,我的问题是如何更改“需要按日期”列格式,目前我得到“2019-03-17T00:00:00.000+00:00”,我想将其更改为“17/03/2019”

 'For each node G_1
For Each myNode In xml.getElementsByTagName("G_1")
  i = i + 1
  ws.Cells(i + 1, 1) = myNode.SelectNodes("BUSINESS_UNIT")(0).Text
  ws.Cells(i + 1, 2) = myNode.SelectNodes("SUPPLIER_NAME")(0).Text
  ws.Cells(i + 1, 3) = myNode.SelectNodes("PO_NUMBER")(0).Text
  ws.Cells(i + 1, 4) = myNode.SelectNodes("LINE_NUMBER")(0).Text
  ws.Cells(i + 1, 5) = myNode.SelectNodes("ITEM_NUMBER")(0).Text
  ws.Cells(i + 1, 6) = myNode.SelectNodes("DESCRIPTION")(0).Text
  ws.Cells(i + 1, 7) = myNode.SelectNodes("CURRENCY")(0).Text
  ws.Cells(i + 1, 8) = myNode.SelectNodes("UNIT_PRICE")(0).Text
  ws.Cells(i + 1, 9) = myNode.SelectNodes("QTY_OPEN")(0).Text
  ws.Cells(i + 1, 10) = myNode.SelectNodes("NEED_BY_DATE")(0).Text
Next myNode

'Format columns
Worksheets("Open Po").Columns("E").NumberFormat = "@"