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
·Å´íµØ·½ÁË
·ÅÔÚÀàÏú»Ùº¯ÊýÖÐËÆºõ²»ÐУ¬ÂíÉÏÍ˳ö¾Í¿ÉÒÔÁË
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......