Òª¶ÔÒ»ÁдӵÚÒ»Ðе½100ÐÐ×öºÍ
ÔÚexcelÖÐʹÓõÄÊÇsum(A1:A100)
ÇëÎÊÔÚvbÖÐÔõôʵÏÖ£¿
ÄãÏÖÔڵĴúÂëÊÇʲô£¬¿ÉÒÔÖ±½Óµ÷Óà EXCEL¶ÔÏóÖÐµÄ worksheetfunction.sum
End_rbody_64373538//-->
¸Ã»Ø¸´ÓÚ2010-04-02 13:52:06±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
......
ÎÒÏë»ñÈ¡VBÎļþ¼ÐϵÄËùÓÐXMLÎļþ
¸ú»ñÈ¡TXTÎļþÒ»Ñù.
Ñ»·Àú±é¼´¿É.
ÄãÈ¥ÕÒһϠͷËÑË÷Îļþ µÄVB´úÂë »òÕßÖ±½ÓÓà FileListBox È»ºó¼ÓÔØµ½Êý×é ÌáÈ¡XMLÎļþ
Äܰïæдһ¶Î´úÂëÂð
¸ø¸ö¼òµ¥Àý×Ó£º
VB code:
Dim spath As String
Dim sfile As String
spath = "vb·¾¶\*.xml"
......
ÒÑÓÐÒ»¶ÌÐÅè,²âÊÔÒÑͨ¹ý,ÏÖÔÚÈçºÎʵÏÖÈÃÕâ¸ö¶ÌÐÅè¸ù¾ÝÊý¾Ý±íÀïµÄÊÖ»úºÅ,×Ô¶¯·¢ËͶÌÐÅ.²»¿ÉÄÜÎÒÓÃÊÖ¹¤È¥·¢ËͰÉ!
ÄÄλºÃÐĵÄÅóÓÑÄÜÌṩһÏÂ,
»òÕßдһÏÂ×Ô¶¯·¢ËÍÖªÐŵĴúÂë.лл
Ã»Íæ¹ý£¬²»ÖªµÀ½Ó¿Ú¡£¡£¡£
½Ó¿ÚÎÒÒѾÓÐÁË..¶¼²âÊÔ¿ÉÒÔ·¢..µ«ÊÇÄÇÊÇÊÖ¹¤·¢ËÍ,,ÏÖÔÚÒªËû×Ô¶¯·¢ËÍ
Ò²¾ÍÊÇ˵֪ÐÅ×Ô¶¯±¨¾¯
UPUPUPUPUPUP ......
ÎÒµÄÒ»¸ö¼òµ¥µÄVBÅжÏÏóÏÞµÄÎÊÌâ Ôõô»áÔÚVB»·¾³ÏÂÔËÐгö´íÁË£¿
¸ßÊÖÃǰïÎÒ¿´Ò»Ï£¡£¡£¡
If...Then...Else... µÄÑ¡Ôñ½á¹¹
Æ½ÃæÖ±½Ç×ø±êϵÖУ¬²»Í¬ÏóÏÞÄÚµãµÄÇé¿ö
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
If x=0 Or y=0 Then Print "¸Ãµã²»ÔÚÏóÏÞÄÚ" ......
ÈçºÎʵÏÖWinsockÓ¦´ðʽ£¨HTTP£©ÐÒéͬ²½ÎÊÌâ
ÔÚÒ»¸ö¸ßÈ˵ÄCSDN²©¿ÍÉϳÁËÒ»¶Î Winsock API´úÂë
ÀàµÄµØÖ·ÔÚÕâÀï http://blog.csdn.net/lyserver/archive/2009/11/26/4880416.aspx
¸´ÖƹýÀ´Ì«³¤ÁË Ìû×Ó×°²»ÏÂ
È»ºóÎÒµ÷ÓÃÕâ¸öÀ࣬´°Ìå´úÂëÈçÏÂ
VB code:
Private Sub Command1_Click()
Dim z As String
Dim ......
ÎÒÏëµ÷ÓÃDLLÖк¯Êý
ÒýÓÃ
dim obj as Object
set obj=new ¡¡
obj.function()
ÄãµÄdllÊÇʲôÀàÐ͵ģ¿
Èç¹ûÊÇAPIÀàÐ͵ģ¬ÄãµÃÏÈÉùÃ÷ÐèÒªµ÷Óõĺ¯Êý
Èç¹ûÊÇActive X Dll£¨active dll¾ÍÊÇ·â×°ÁË×é¼þµÄdll£©£¬ ÄÇôÄã¾ÍÒªÏÈÒýÓã¬È»ºóÉùÃ÷¶ÔÏ󣬲¢ÊµÀý»¯¡£ÔÙ½øÐе÷ÓÃ
ÏÈÒªÇå³þDLLÀï·â×°ÁËÊ²Ã´Ñ ......