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
È¥µô+ºÅ£¬²»¹ý»¹ÊÇҪллÄú
Ïà¹ØÎÊ´ð£º
txt ºÍXML ¸ñʽÏàÓ¦
²»½èÖúDataSet
µ¼Èë¶ÁÈ¡TXTÎļþ
È»ºóÖ±½ÓдÈëXML(ͬһÎļþ,²»Í¬Êý¾Ý,µÝÔöÔÊý¾ÝûÓб»¸²¸ÇÇé¿öÏÂÔö¼ÓÊý¾Ý.)
½Ì¸öÒªµã»ò×îºÃÊÇÓиö´úÂëÌáʾµÄ
¹ý·ºÃºº °ï¸öæÈö^^
²»»á£¬°ïÂ¥Ö÷ ......
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 ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......