Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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
È¥µô+ºÅ£¬²»¹ý»¹ÊÇҪллÄú


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÎÒÏë°Ñ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
......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

Ϊʲôxml²»ÄÜÏÔʾ°¢À­²®ÎÄ - C/C++ / C++ ÓïÑÔ

ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À­²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À­²®ÎĵÄ×Ö¿âÄãÓÐô£¿

ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ