ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f L=LOF(f) redim b(L-1) b=inputb(L,#f) close #f s=strconv(b,vbUnicode) ÉÏÃæµÄ¶Á³öµÄxmlÊǺÃÏñÊÇ·±Ìå×Ö ÏÖÔÚÖ»Ïë°ÑxmlÀïµÄÊý¾Ý¶ÁÈ¡³öÀ´£¬×é³ÉÒ»¸ö×Ö·û´®£¬²»¶ÁÈ¡xmlµÄ¸ñʽ£¬ÇëÎÊÔõôʵÏÖ°¡£¡ Èç¹ûÄãµÄxmlÊDZê×¼¸ñʽ£¬ÓÃϱߵķ½·¨¾Í¿ÉÒÔ¶Á³öÀ´µÄ Dim xml As MSXML2.DOMDocument30 Set xml = New MSXML2.DOMDocument30 xml.async = False xml.Load CD_Down.FileName
Dim oRst As ADODB.Recordset
Set oRst = New ADODB.Recordset
oRst.Open xml ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬ ÏòÂ¥ÉϵģºÑ§Ï°£¬