ÇëÎʸö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±à³Ì£»
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÇëÎÊÒ»ÏÂvbºÍtcµÄÆÒëÓïÎÊÓÐʲô¾ßÌåµÄÇø±ð¡£
& ......