convertCSV2EXCEL("d:\css\incoming.csv")

sub convertCSV2EXCEL(csvfilename)

Set xlApp = CreateObject("excel.Application")
xlApp.Visible = false

Dim xlbook '创建工作簿
'set xlbook=CreateObject("Excel.Workbook")
'xlbook=xlApp.Workbooks


Set xlbook = xlApp.Workbooks.Open(csvfilename) '打开CSV文件

'Dim WshShell,Path
'Set WshShell=WScript.CreateObject("WScript.Shell")
'Path="""\test1.exe"""　这句的路径怎么写？不是写绝对路径！！
'WshShell.Run Path

xlbook.SaveAs "incoming.csv"+".xls",1
xlbook.close
xlApp.quit
set xlapp=nothing
End Sub



【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: vbs的代码，转换结果不正确
: 下面是csv的原始文档，转换结果不正确
: 提现的时间变成了#######,支付时间也是
: ...................
--
修改:juxiangyou FROM 58.37.36.*
FROM 58.37.36.*