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

vbÖÐÔõôдÊý¾ÝµÈ²éѯ¹«¹²Àà - VB / »ù´¡Àà

ÎÒvb6Óï·¨¶¼²»¶®£¬ÏÖÔÚÐèÒªËٳɣ¬ÇëÎÊÔõÑùдһ¸ö¹«¹²À࣬´«Èë²éѯ×Ö·û´®£¬·µ»Ø²éѯ½á¹û
×îºÃ´Óн¨À࿪ʼ˵£¬
vb6Óï·¨¶¼²»¶®?ÄǹÀ¼ÆÀ§ÄÑÁË

ÒýÓÃ
vb6Óï·¨¶¼²»¶®?ÄǹÀ¼ÆÀ§ÄÑÁË

ÏÖÔÚÓÃC#¿ª·¢£¬ÓÐÐèÒªvb×öµã¶«Î÷£¬ÐèÒªËٳɣ¬vb¶®»¹ÊǶ®Ò»µãµÄ£¬Ð´¸öÀý×Ó£¿

¿´MSDN

ÍøÉÏϸö´úÂë¿´Ï£¬ºÜ¼òµ¥µÄ£¡

c#¶¼ÄÜѧ»á,ºÎ¿övb6ѽ
{{


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

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 ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ