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
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄÐ£Ô°ÍøÂçÆ½Ì¨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
......
´«Í³·½·¨ÊDZéÀúÒ»±é
Èç¹ûlistbox ÏîÄ¿¹ý¶à
Ã÷ÏÔËٶȲ»ÐÐ
ºÃ·½·¨ÊÇͨ¹ýsendmessge·¢ÏûÏ¢¸ølistboxÈÃËû°ÑÑ¡ÖÐÏîĿֱ½Ó´«µ½²ÎÊýÊý×éÖÐ
You can use the SendMessage() API function instead.
As
you probably know, this function lets you send a message to one or more
windows. The declaration statement conforms ......
ÒýÑÔ:
×öÒ»¸ö¿Ø¼þ, ÓÃÓÚ Êý¾Ý²ÉÑùÈçʾ²¨Æ÷, ¿ÉÒÔÌí¼Ó,ɾ³ýÇúÏß, ÉèÖÃÇúÏßµÄÏà¹ØÊôÐÔ: ÏßÐÍ,ÑÕÉ«,µÈ...
¹ý³Ì:
¡¡ÏÈ´´½¨ Ïß Àà, ÔÚÓû§¿Ø¼þÀïʵÏÖ Ïß ¶ÔÏó´´½¨, ²¢ÉùÃ÷Ò»¸ö ¼¯ºÏ, ÓÃÓÚ ´æ·Å½¨Á¢µÄÏß¶ÔÏó.
ÎÊÌâ ......
Welcome to Microsoft Developer Support, Languages team blog! You will find a lot of language related troubleshooting resources here.
Troubleshooting PInvoke Related Issues
I am back with some more PInvoke Stuff. Recently I was working on a PInvoke issue which I found interesting ......