VBA ¶ÁÈ¡XMLÊý¾Ý - VB / »ù´¡Àà
ÓÃEXCEl¶ÁÈ¡ÍøÂçXMLÊý¾Ý£¬Êý¾ÝÌì±ä»¯£¬ÍøÖ·ÏàӦΪ******20100102£¬²»ÖªµÀÔõô¶¯Ì¬¶ÁÈ¡
ÎÒҲûÓп´Ã÷°×ÄãµÄÎÊÌâ
Óúê¿ÉÒÔ¼òµ¥¶ÁÈ¡xmlµÄÊý¾ÝÖÁExcel£¬µ«ÒªÊäÈëµØÖ·£¬ÎÒµÄÕâ¸öµØÖ·ÊÇËæÊ±¼ä¹æÂɱ仯µÄ£¬ÏëÓóÌÐò×ö¡£Sub Ma()
mytime = Format(Now, "yyyymmddhh")
Workbooks.OpenXML Filename:="http://***¡£***¡£***¡£***/Hour_XML.aspx?Hour=mytime", _
LoadOption:=xlXmlLoadImportToList
End Sub
ÕâÑùµÄ˼·²»ÐÐ
Sub Macro1()
Dim mytime
mytime = Format(Now, "yyyymmddhh")
Workbooks.OpenXML Filename:="http://172.111.112.100/Data_XML.aspx?Hour=mytime", _
LoadOption:=xlXmlLoadImportToList
End Sub
´ÓÍøÉ϶ÁxmlÖÁExcel£¬Õâ¶Î³ÌÐòÓÐÎÊÌ⣿£¿
ºÃÏñHour=mytime²»¸³Öµ
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......