ÇóÖú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ÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......