vbÖÐÔõôдÊý¾ÝµÈ²éѯ¹«¹²Àà - VB / »ù´¡Àà
ÎÒvb6Óï·¨¶¼²»¶®£¬ÏÖÔÚÐèÒªËٳɣ¬ÇëÎÊÔõÑùдһ¸ö¹«¹²À࣬´«Èë²éѯ×Ö·û´®£¬·µ»Ø²éѯ½á¹û ×îºÃ´Óн¨À࿪ʼ˵£¬
vb6Óï·¨¶¼²»¶®?ÄǹÀ¼ÆÀ§ÄÑÁËÒýÓà vb6Óï·¨¶¼²»¶®?ÄǹÀ¼ÆÀ§ÄÑÁË ÏÖÔÚÓÃC#¿ª·¢£¬ÓÐÐèÒªvb×öµã¶«Î÷£¬ÐèÒªËٳɣ¬vb¶®»¹ÊǶ®Ò»µãµÄ£¬Ð´¸öÀý×Ó£¿ ¿´MSDN ÍøÉÏϸö´úÂë¿´Ï£¬ºÜ¼òµ¥µÄ£¡ c#¶¼ÄÜѧ»á,ºÎ¿övb6ѽ {{
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿ Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......