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²»¸³Öµ
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......