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

ÇóÖúVBÀûÓÃEXCEL»­Ç÷ÊÆÍ¼ - VB / »ù´¡Àà

¸÷λ´óÏÀ£¬ÎÒÏëÓÃÒÔÏ´úÂëʵÏÖ»­Ç÷ÊÆÍ¼µÄ¹¦ÄÜ£¬¼´°²ÅÅÁ½¸ö°´¼ü£¬·Ö±ð»°AÁкÍBÁеÄͼ²¢ÏÔʾ£¬Óöµ½ÁËRANGE·½·¨µÄglobalÎÊÌâ£¬ÍøÉÏ·½·¨ºÜ¶à£¬µ«ÊǶ¼²»Ì«ºÃÓã¬Çë´ó¼ÒÖ¸µã

PS:ΪÁËÏÔʾ×öµÃͼ£¬ÎÒ°ÑEXCELµÄ¹Ø±Õ³ÌÐò×¢Ê͵ôÁË£¬µãCommand1¿ÉÒÔ×ö³öÀ´£¬µ«ÊǹرÕͼºó£¬ÔÙµã»÷Command2¾Í»á±¨´í
£¬¼´Ê¹ÎÒʹÓÃ×¢Ê͵ôµÄ³ÌÐò£¬µ«ÊÇ»¹ÊÇ»áÓдËÎÊÌ⣬¶øÇÒ½ø³ÌÀïµÄEXCEL.EXE¹Ø²»µô£¬Çë´ó¼Ò´Í½Ì£¬ÒªÊÇÄÜÓбðµÄ·½Ê½Íê³ÉÇ÷ÊÆÍ¼Ò²¿ÉÒÔ˵˵£¬µ«ÊÇÊý¾ÝÊDZ£´æÔÚEXCELÀïµÄ²»Í¬ÁÐÖС£

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()

  Range("A:A").Select
  xlApp.DisplayAlerts = False
  Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="ÕÛÏßͼ±í", ValueTitle:="PHÖµ", _
  Format:=2
  xlApp.Visible = True

' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
' Set xlApp = Nothing  

End Sub

Private Sub Command2_Click()
  Range("B:B").Select
  xlApp.DisplayAlerts = False
  Charts.Add.ChartWizard gallery:=xlLine, HasLegend:=False, Title:="ÕÛÏßͼ±í", ValueTitle:="PHÖµ", _
  Format:=2
  xlApp.Visible = True

' Set xlSheet = Nothing
' xlBook.Close
' Set xlBoook = Nothing
' xlApp.Quit
'


Ïà¹ØÎÊ´ð£º

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


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

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

¹ØÓÚVbÖÐsqlÓï¾äµÄд·¨£¨100·Ö£© - Java / Web ¿ª·¢

Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ