程式如下:
Set cn_csv = New Connection
cn_csv.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
              & Path & ";Extensions=asc,csv,tab,txt;HDR=NO;Persist Security Info=False"
  
        Set ors = New Recordset
        ors.CursorLocation = adUseClient
        ors.Open "select s.* from [" & FileName & "] s", cn_csv, adOpenStatic, adLockReadOnly, adCmdText
        Set DataGrid1.DataSource = ors

csv的內容如下:
From:OVA
To:bblchina
Content-Type:text/po-csv
Date:200202230546
CTRL,200202230546,3,3
H1,CMP,RBK,009,candychen,reebokbbc,PO Template,200201260501,200201260501,200201260801,200111191211,200112041212,6427258,,Open,R,,USD,I,,600,1,,03/01/2002,BBL,FC,,,CHI,CHI,BBL,ZHONGSHAN JING MEI_FWTR,ZHONGSHAN ZHANG JUI BIAN,YIXIAN INDUSTR'L DISTRICT,,,GUANGDONG,,CHI,,,,,,,,002,REEBOK TRADING(FAR EAST) LTD.,"C/O SUITE 1303-1312,TOWER II","THE GATEWAY, 25 CANTON ROAD",,,KOWLOON,HONG KONG,HK,,,,159851  121,REEBOK KOREA,3RD 4TH FLR SSANGDONGINE BLD,249 NONHYUN-DONG KANGNAM-GU,,,"SEOUL,KOREA",KO,KOR,00000,,,159851,02MARRKOMH,,121,,SEA,,BUS,,,,,,,,,,0,0,3240

有些欄位的值會為null?例如:....H1,CMP,RBK...中的CMP.
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()