vb¿ØÖÆEXCELµÄÒ»¸öÎÊÌ⣿
ÒÔÏÂÊDzâÊÔ´úÂ룺
Set o_EXL = CreateObject("Excel.application")
Set o_EBKs = o_EXL.workbooks
If Dir(pÎļþÃû) <> "" Then
o_EXL.Visible = False
o_EXL.displayalerts = False
Set oeb = o_EBKs.Open(pÎļþÃû)
Set osheets = oeb.worksheets
n = osheets.Count
s = osheets(1).Name
End If
o_EBKs.Close
o_EXL.Quit
ÎÒÏëÒªµÄÊDzÙ×÷excelÔÚºǫ́ÔËÐÐ
1.µ±ÔËÐÐʱûÓÐÕýÔÚ²Ù×÷µÄexcelÎļþʱÊÇ¿ÉÒÔµÄ
2.µ±ÔËÐÐʱÓÐÕýÔÚ²Ù×÷µÄÆäËüexcelÎļþʱ¾ÍÓÐÎÊÌâÁË£¬µ±Õâ¶Î´úÂëÍÆ³öʱ
ÔÚexcelÀïÕâ¶Î´úÂë²Ù×÷µÄÎļþ²¢Ã»Óйرգ¬¶øÕâ¸öÎļþ²»ÏëÈÿ´µ½£¬ÈçºÎ½â¾öÄØ£¿
°¡£¬ºÃÏñÊǵÄ
ÎÒ°Ñ
o_EBKs.Close
o_EXL.Quit
·Å´íµØ·½ÁË
·ÅÔÚÀàÏú»Ùº¯ÊýÖÐËÆºõ²»ÐУ¬ÂíÉÏÍ˳ö¾Í¿ÉÒÔÁË
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......