VB ²Ù×÷Excel£¬¸½Èí¼þͼ
Ò»¡¢ VB¶ÁдEXCEL±í£º
¡¡¡¡VB±¾ÉíÌá×Ô¶¯»¯¹¦ÄÜ¿ÉÒÔ¶ÁдEXCEL±í£¬Æä·½·¨ÈçÏ£º
¡¡¡¡1¡¢ÔÚ¹¤³ÌÖÐÒýÓÃMicrosoft ExcelÀàÐͿ⣺
¡¡¡¡´Ó"¹¤³Ì"²Ëµ¥ÖÐÑ¡Ôñ"ÒýÓÃ"À¸£»Ñ¡ÔñMicrosoft Excel 9.0 Object Library£¨EXCEL2000£©£¬È»ºóÑ¡Ôñ"È·¶¨"¡£±íʾÔÚ¹¤³ÌÖÐÒªÒýÓÃEXCELÀàÐÍ¿â¡£
¡¡¡¡2¡¢ÔÚͨÓöÔÏóµÄÉùÃ÷¹ý³ÌÖж¨ÒåEXCEL¶ÔÏó£º
¡¡¡¡Dim xlApp As Excel.Application
¡¡¡¡Dim xlBook As Excel.WorkBook
¡¡¡¡Dim xlSheet As Excel.Worksheet
¡¡¡¡3¡¢ÔÚ³ÌÐòÖвÙ×÷EXCEL±í³£ÓÃÃüÁ
¡¡¡¡Set xlApp = CreateObject("Excel.Application") '´´½¨EXCEL¶ÔÏó
¡¡¡¡Set xlBook = xlApp.Workbooks.Open("ÎļþÃû") '´ò¿ªÒѾ´æÔÚµÄEXCEL¹¤¼þ²¾Îļþ
¡¡¡¡xlApp.Visible = True 'ÉèÖÃEXCEL¶ÔÏó¿É¼û£¨»ò²»¿É¼û£©
¡¡¡¡Set xlSheet = xlBook.Worksheets("±íÃû") 'ÉèÖû¹¤×÷±í
¡¡¡¡xlSheet.Cells(row, col) =Öµ '¸øµ¥Ôª¸ñ£¨row,col£©¸³Öµ
¡¡¡¡xlSheet.PrintOut '´òÓ¡¹¤×÷±í
¡¡¡¡xlBook.Close (True) '¹Ø±Õ¹¤×÷²¾
¡¡¡¡xlApp.Quit '½áÊøEXCEL¶ÔÏó
¡¡¡¡Set xlApp = Nothing 'ÊÍ·ÅxlApp¶ÔÏó
¡¡¡¡xlBook.RunAutoMacros (xlAutoOpen) 'ÔËÐÐEXCELÆô¶¯ºê
¡¡¡¡xlBook.RunAutoMacros (xlAutoClose) 'ÔËÐÐEXCEL¹Ø±Õºê
¡¡¡¡4¡¢ÔÚÔËÓÃÒÔÉÏVBÃüÁî²Ù×÷EXCEL±íʱ£¬³ý·ÇÉèÖÃEXCEL¶ÔÏ󲻿ɼû£¬·ñÔòVB³ÌÐò¿É¼ÌÐøÖ´ÐÐÆäËü²Ù×÷£¬Ò²Äܹ»¹Ø±ÕEXCEL£¬Í¬Ê±Ò²¿É¶ÔEXCEL½øÐвÙ×÷¡£µ«ÔÚEXCEL²Ù×÷¹ý³ÌÖйرÕEXCEL¶ÔÏóʱ£¬VB³ÌÐòÎÞ·¨ÖªµÀ£¬Èç¹û´ËʱʹÓÃEXCEL¶ÔÏó£¬ÔòVB³ÌÐò»á²úÉú×Ô¶¯»¯´íÎó¡£ÐγÉVB³ÌÐòÎÞ·¨ÍêÈ«¿ØÖÆEXCELµÄ×´¿ö£¬Ê¹µÃVBÓëEXCELÍѽڡ£
¡¡¡¡¶þ¡¢ EXCELµÄºê¹¦ÄÜ£º
¡¡¡¡EXCELÌṩһ¸öVisual Basic±à¼Æ÷£¬´ò¿ªVisual Basic±à¼Æ÷£¬ÆäÖÐÓÐÒ»¹¤³ÌÊôÐÔ´°¿Ú£¬µã»÷ÓÒ¼ü²Ëµ¥µÄ"²åÈëÄ£¿é"£¬ÔòÔö¼ÓÒ»¸ö"Ä£¿é1"£¬ÔÚ´ËÄ£¿éÖпÉÒÔÔËÓÃVisual BasicÓïÑÔ±àдº¯ÊýºÍ¹ý³Ì²¢³Æ֮Ϊºê¡£ÆäÖУ¬EXCELÓÐÁ½¸ö×Ô¶¯ºê£ºÒ»¸öÊÇÆô¶¯ºê£¨Sub Auto_Open()£©£¬ÁíÒ»¸öÊǹرպ꣨Sub Auto_Close()£©¡£ËüÃǵÄÌØÐÔÊÇ£ºµ±ÓÃEXCEL´òº¬ÓÐÆô¶¯ºêµÄ¹¤²¾Ê±£¬¾Í»á×Ô¶¯ÔËÐÐÆô¶¯ºê£¬Í¬Àí£¬µ±¹Ø±Õº¬ÓйرպêµÄ¹¤×÷²¾Ê±¾Í»á×Ô¶¯ÔËÐйرպꡣµ«ÊÇͨ¹ý
Ïà¹ØÎĵµ£º
'*********************************************************************
' ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êÇ©Ö®¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈÇ°±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØбàÒë.Õ ......
ºÜ¾ÃÒÔÇ°µÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£ ......
×î¼òµ¥µÄ·½·¨ÊÇʹÓÃfilesystemobject¶ÔÏ󡣶øËü²¢·ÇVBÄÚÖöÔÏó£¬
ÐèÒýÓòſÉÒÔʹÓá£
1£®filesystemObject¶ÔÏóÒýÓÃ
“¹¤³Ì/ÒýÓÃ/microsoft scription Runtime”
ÔÚ¶ÔÏóä¯ÀÀÆ÷´°¿ÚÖÐÑ¡“scripting”Ä£¿é£¬¿´µ½ÔöÁËÐí¶à¶ÔÏó£¬
drive filesystemobject textstream &nbs ......
²»ÄÜÖ±½ÓʹÓÃCopyMemoryStr£¬Ó¦¸Ã½«×Ö·û´®×ªÎªbyteÊý×飬ȻºóʹÓÃCopyMemory
Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long, ptr0 As Long
Dim ab() As Byte
& ......