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

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
·Å´íµØ·½ÁË
·ÅÔÚÀàÏú»Ùº¯ÊýÖÐËÆºõ²»ÐУ¬ÂíÉÏÍ˳ö¾Í¿ÉÒÔÁË


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

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

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

¶¥Ï¶¥ÏÂ

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

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ