VBA EXCElµ¼XMLÊý¾ÝÎÊÌâ - VB / ÍøÂç±à³Ì
Óúê¿ÉÒÔ¼òµ¥¶ÁÈ¡xmlµÄÊý¾ÝÖÁExcel£¬µ«ÒªÊäÈëµØÖ·£¬ÎÒµÄÕâ¸öµØÖ·ÊÇËæÊ±¼ä¹æÂɱ仯µÄ£¬ÏëÓóÌÐò×ö¡£
Sub Ma()
mytime = Format(Now, "yyyymmddhh")
Workbooks.OpenXML Filename:="http://***¡£***¡£***¡£***/Hour_XML.aspx?Hour=mytime", _
LoadOption:=xlXmlLoadImportToList
End Sub
ÕâÑùµÄ˼·²»ÐÐ
Workbooks.OpenXML Filename:="http://***¡£***¡£***¡£***/Hour_XML.aspx?Hour="+mytime, _
LoadOption:=xlXmlLoadImportToList
ÄÇÑù²»¶Ô
Ó¦¸ÃÊÇWorkbooks.OpenXML Filename:="http://***¡£***¡£***¡£***/Hour_XML.aspx?Hour="mytime, _
LoadOption:=xlXmlLoadImportToList
È¥µô+ºÅ£¬²»¹ý»¹ÊÇҪллÄú
Ïà¹ØÎÊ´ð£º
<?xml version="1.0" encoding="utf-8" ?>
- <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" android:orientation="vertical&q ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÒÓÐÒ»¸öÀàËÆµÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
¹¦ÄÜ˵Ã÷:Java servlet °ÑXMLÊý¾ÝѹËõºó·¢Ë͵½PBÓû§¶Ë,PBÊÕµ½Êý¾Ýºó½âѹ³öÀ´.
´«ÊäÒª¾¹ýBase64±àÂë.
ÎÊÌâÊÇ:ÄÜÊÕµ½Êý¾Ýµ«Êǽâѹ²»³öÀ´.ÏëÇë½Ì´ó¼Ò»òÕßÓÐʲôºÃµÄ°ì·¨?
PB¿ÉÒÔÓÃ"zlibwapi.DLL" ½âѹ
......