和导出txt文件的操作是一样的。
创新互联是一家专注于网站建设、网站设计与策划设计,定安网站建设哪家好?创新互联做网站,专注于网站建设10多年,网设计领域的专业建站公司;建站业务涵盖:定安等地区。定安做网站价格咨询:028-86922220
sql语句从数据库获得数据集,然后逐条插入到csv
下面代码可以做参考,
Sub CSVdropmark()
Dim mFileName As String = Application.StartupPath + "\EmployeeMaster\ExcelData\BaanID.CSV"
Dim fs As FileStream
Dim st As StreamWriter
Dim reader As System.IO.StreamReader
Dim i As Integer
Dim str As String
reader = New System.IO.StreamReader(mFileName)
Try
fs = New FileStream(Application.StartupPath + "\EmployeeMaster\ExcelData\BaanIDAD.CSV", FileMode.Create, FileAccess.Write)
str = reader.ReadToEnd
str = str.Replace("""", "")
st = New StreamWriter(fs)
st.WriteLine(str)
st.Flush()
Catch ex As Exception
Finally
If Not reader Is Nothing Then reader.Close()
If st IsNot Nothing Then st.Close()
If fs IsNot Nothing Then fs.Close()
End Try
End Sub
这应该是exel自己的问题,和控件以及写csv文件没有关系吧。新建一个exel,敲入001,它也显示的是1。
你是怎么读写的呢?下面是简单的读写
Dim str As String = (My.Computer.FileSystem.ReadAllText("C:\QD51-R24_A.csv")) '读
My.Computer.FileSystem.WriteAllText("C:\1.csv", str, True) '写
CSV只不过是用CRLF分行,逗号分列的一个简单文本
先做好行模板,如
Private RowTemp as string ="{0},{1},{2},....{n}"
写入文件时候分行写入
System.IO.StreamWriter.WriteLine(String.format(RowTemp,"数据1”,“数据2"...."数据n"))