解決了,把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。
10多年的周寧網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都全網(wǎng)營銷的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整周寧建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“周寧網(wǎng)站設(shè)計(jì)”,“周寧網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
牛,為使用二進(jìn)制的程序員鼓掌!
從來沒用過的人問:為什么要用二進(jìn)制啊,有啥好處?
ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只給新字段賦值
VB.NET2008代碼:
Dim xlapp1 As Excel.Application
Dim xlworksheet As Excel.Worksheet
Dim xlworkbk As Excel.Workbook
xlapp1 = New Excel.Application
xlworkbk = xlapp1.Workbooks.Open("Excel文件名")
xlworksheet = xlworkbk.Worksheets("Sheet名")
xlworksheet.Cells.Item(行編號(hào), 列編號(hào)).value ="需要輸入的數(shù)據(jù)"
xlworkbk.Close()
另外,xlworksheet.UsedRange.Rows.Count是最大行數(shù),可以用這個(gè)算行編號(hào)。
注意,需要引用Microsoft Excel Object Library(在COM的那個(gè)選項(xiàng)卡里)。
Imports?Microsoft.VisualBasic.FileSystem?'在聲明區(qū)加這句,這包含vb6的一些文件讀寫功能
Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click
Dim?p?As?Integer?=?FreeFile()
Static?index?As?Integer?=?0
FileOpen(p,?"D:\list.csv",?OpenMode.Append)
index?+=?1
WriteLine(p,?"姓名"??index,?"年齡"??index,?"職業(yè)"??index,?"住址"??index)
FileClose(p)
End?Sub
'?FileIO.TextFieldParser?類可以讀取csv文件,或者數(shù)據(jù)庫有關(guān)類也可以讀取