vba对xml文件解析.docVIP

Sub delete() Dim i As Long Dim nSpace As Long Dim ItemCode As String 代码 Dim ItemVal As String 数值 Dim TabDate As Date Dim theRowCount As Long 有效报表列 Dim theRowS As Long 开始数据所在行 Dim theColS As Long 开始数据所在列 Dim theRow As Long 数据所在行 Dim theCol As Long 数据所在列 Dim DataNum As Long 数据个数 Dim FileName As String, LineOut As String Dim DateString As String Dim DateStringF As String Dim tmpStr As String Dim s_num As Integer dfile =