时间戳

首页 > 解决方案 > 如何更改转换后的 XML 数据字段的数据格式

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

问题描述

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

 '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 = "@"

标签： excelxmlvba

解决方案

推荐阅读