本文介绍了将xls转换为csv。不能分割线(使用vb2005)的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试在csv中保存已转换的xls文件。
- >转换过程后
Hi,
I''m trying to save a converted xls file in csv.
--> after convert process
Dim _Out() As String = csvData.Split("\n")
Dim _OutPut As String = targetFile 'path and filename to save in local
Dim _csv As StreamWriter = New StreamWriter(_OutPut, False)
_csv.Write(csvData)
_csv.Close(
)
给我以下结果:
)
Gives me this ressult below:
ABCReferenceNo,ChequeDate,ChequeNo,DocRate,HouseBankCode,BankAcct,Project,ProjectName,Customer_OR_VendorCode,Customer_OR_VendorName,DocumentCurrency,Balance,\nABCRef1,20120131,1234,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-J1036,CORJUVIT TRADING & CONSTRUCTION,USD,#VALUE!\nABCRef2,20120131,1235,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-U1001,USAUK INC.,USD,#VALUE!\nABCRef3,20120131,1236,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-S1058,STARGATE MANUFACTURING CORP.,USD,#VALUE!\nABCRef4,20120131,1237,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-N1010,"NUEVA JAPAN HUMAN RESOURCES BUILDERS GROUP,INC.",USD,#VALUE!\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n,,,,,,,,,,,,\n
结果应如下所示:
The result that should be is like this below:
ABCReferenceNo,ChequeDate,ChequeNo,DocRate,HouseBankCode,BankAcct,Project,ProjectName,Customer_OR_VendorCode,Customer_OR_VendorName,DocumentCurrency,Balance
ABCRef1,20120131,1234,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-J1036,CORJUVIT TRADING & CONSTRUCTION,USD,#VALUE!
ABCRef2,20120131,1235,1,ABC01 USD,4808507000-22,A01102,Lente-Serenity Tower,V-U1001,USAUK INC.,USD,#VALUE!
ABCRef3,20120131,1236,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-S1058,STARGATE MANUFACTURING CORP.,USD,#VALUE!
ABCRef4,20120131,1237,1,ABC01 USD,4808507000-22,A03101,ASIA oOne Corall Way,V-N1010,"NUEVA JAPAN HUMAN RESOURCES BUILDERS GROUP,INC.",USD,#VALUE!
我'我正在使用VB2005。请帮帮我
I''m using VB2005. Please Help me
推荐答案
While row_no < rCount ''(_Result.Tables(0).Rows.Count - 1)
For i As Integer = 0 To cCount
csvData += _Result.Tables(0).Rows(row_no)(i).ToString() + ","
Next
Dim _OutPut As String = targetFile
Dim swE As New System.IO.StreamWriter(_OutPut, True)
swE.WriteLine(csvData)
row_no = row_no + 1
csvData = ""
swE.Flush()
swE.Close()
End While
这篇关于将xls转换为csv。不能分割线(使用vb2005)的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!