ÇëÎʸöVBºÍEXCEL²Ù×÷µÄÎÊÌ⣬50·ÖÇóÖú - VB / »ù´¡Àà
VBÈçºÎ¶ÔEXCEL½øÐÐһϵÁеIJÙ×÷ÄØ£¬±ÈÈ磺½«VBÀïµÄÊý×éµÄÊý¾ÝÊä³öµ½EXCLEÀÈçºÎ½«ÕâЩÊý¾Ý½øÐÐÅÅÐò£¬É¸Ñ¡£¬±È½ÏÊý×é¼äÖØ¸´Êý»ò²»Öظ´ÊýµÈ²Ù×÷£¬¿É·ñ·¢Ð©ÊµÔÚµãµÄÀý×ÓÄØ£¬²»Ê¤¸Ð¼¤
lzµÄÊÇÒª¸ö½Ì³ÌÁË ½¨ÒéÄãÏȰÑexcelµÄºê¼Ç¼ÏÂÀ´¿´¿´
ÍÆ¼öÍÆ¼öexcelÂ¼ÖÆºê¡£
¿´¿´excelµÄ×Ô¶¯»¯
²é²é¿´£¬msdnÉÏÓкܶàÀý×Ó
Êý×éÊÇ¿ÉÒÔÖ±½ÓÌî³äµÄ
VB code:
oWSheet.Range("L1:U1000") = a()
ÖÁÓÚÔõôɸѡ\ÅÅÐòÖ®Àà,ÔÚexcelÀïÂ¼ÖÆºê.
²Ù×÷Excel¼òµ¥Ò»µãµÄ·½·¨ÊÇÓÃOLE£¬Ò²¿ÉÒÔSQLµÄ·½Ê½£¬ÐèÒª¸ü¸´ÔӵŦÄÜ¿ÉÒԲο¼OFFICEµÄVBS±à³Ì£»
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÇëÎÊÒ»ÏÂvbºÍtcµÄÆÒëÓïÎÊÓÐʲô¾ßÌåµÄÇø±ð¡£
& ......