VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp.ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("O24"), PlotBy:=xlRows
objExlApp.ActiveChart.SeriesCollection.NewSeries
objExlApp.ActiveChart.SeriesCollection(1).XValues = "={1,2}"
.........
»æÖÆXÖáʹÓÃÒÔÉÏÓï¾ä£¬ÕâÑùÖ»ÄÜÔÚXÖá×îÔçÁ½¸öµã±ê×¢ºá×ø±ê£¬Èç¹û»Í¼Ê±×¢Ïú×îºóÒ»¾ä»°£¬ÄÇôËùÓеã»á°´Ë³Ñ°±ê×¢ºá×ø±ê£¨1£¬2£¬3.....£©
µ«ÊÇÎÒÒª»æÖƵĵãºÜ¶à£¬ÎÒÏ£ÍûÔÚÕû¸öXÖáÉÏÖ»±ê×¢µÚÒ»µãºÍ×îºóÒ»µã£¬»òÕ߸ɴíXÖá²»Òª×ø±ê£¬ÇëÎÊ£¬ÓÐÏà¹ØÊôÐÔÐÞ¸ÄÂ𣿣¿
żȻƮ¹ý£¬²»ÊǺܻᣬ¹Ø×¢ÖУ¬UpUp
ÔÚExcelÀïÂ¼ÖÆºê£¬È»ºó²Î¿¼×Ô¶¯Éú³ÉµÄVBA´úÂë¾Í¿ÉÒÔÁË£¡
¹Ø×¢ÖС¡¡¡¡¡
ͼ±íÒÔǰÊÇÔÚexcel×ö£¬ÏÖÔÚÒª½«ÆäÓ¦Óõ½VBÖС£
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......