CSV文件格式有关问题 期待用VBA解决

CSV文件格式问题 期待用VBA解决
CSV文件用记事本打开 可以看到很多带双引号的数据.但用excel打开后 然后重新保存。再用记事本打开，这些双引号都没的了。想加入一些VBA脚本 实现在保存的时候把双引号保留下来，怎样实现？ 


保存前用记事本打开: 
"DO_Date","M_Serial_No","S_Serial_No","MAC_Address","Model" 
"20091028","ONT0095261","2102316708108A000085","56-70-B3-53-6C-98","T060G" 
"20091028","ONT0095211","2102316708108A000054","56-70-B3-53-6C-99","T060G" 
"20091028","ONT0095262","2102316708108A000079","56-70-B3-53-6C-10","T060G" 
保存后.用记事本打开:(双引号不见了) 
DO_Date,M_Serial_No,S_Serial_No,MAC_Address,Model 
20091028,ONT0095261,2102316708108A000085,56-70-B3-53-6C-98,T060G 
20091028,ONT0095211,2102316708108A000054,56-70-B3-53-6C-99,T060G 
20091028,ONT0095262,2102316708108A000079,56-70-B3-53-6C-10,T060G

[解决办法]
更正上帖

VB code

Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile("c:\testfile.csv", True) for r=1 to 65536    for c=1 to 256        v=sheet1.cells(r,c)        if isempty(v) then            exit for        else            if c=1 then                a.Write("""" & v & """")            else                a.Write(",""" & v & """")            endif        end if    next c    a.WriteLine("")    if c=1 then exit fornext ra.CloseSet a=NothingSet fs=Nothing