Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖС£


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ