vb將數(shù)據(jù)寫入txt文件 VB讀取excel數(shù)據(jù)寫入txt中?
VB讀取excel數(shù)據(jù)寫入txt中?Dim db As Database Dim rs As Recordset Dim fn As integer Set db=OpenDatabase(“c:我的
VB讀取excel數(shù)據(jù)寫入txt中?
Dim db As Database Dim rs As Recordset Dim fn As integer Set db=OpenDatabase(“c:我的郵箱.xls“,F(xiàn)alse,F(xiàn)alse,”excel 8.0HDR=YES“)設(shè)置rs=db.OpenRecordset文件(數(shù)據(jù)庫表定義(0).名稱)先搬家fn=自由文件打開“我的文本.txt“對于append as fn i=1 do while(非(盧比eof))打印&放大器vbCrlfrs.movenext公司回路閉合fnrs.關(guān)閉數(shù)據(jù)庫關(guān)閉