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

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´òº¬ÓÐÆô¶¯ºêµÄ¹¤²¾Ê±£¬¾Í»á×Ô¶¯ÔËÐÐÆô¶¯ºê£¬Í¬Àí£¬µ±¹Ø±Õº¬ÓйرպêµÄ¹¤×÷²¾Ê±¾Í»á×Ô¶¯ÔËÐйرպꡣµ«ÊÇͨ¹ý


Ïà¹ØÎĵµ£º

VBÄ£Äâ·¢ËÍICMPÊý¾Ý°ü(´úÂëÖ±½Ó¿ÉÓÃ)

'*********************************************************************
'         ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄÐ£Ô°ÍøÂçÆ½Ì¨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......

VBµ÷ÕûExcel¸ñʽ

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 ......

»ñµÃVB listbox Ñ¡ÖÐÏîÄ¿(¶àÏî)µÄÒ»¸öºÃ·½·¨

´«Í³·½·¨Ê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 ......

vb Active ¿Ø¼þ¡¡¼¯ºÏÀà¡¡ÎÊÌâ

ÒýÑÔ:
         ×öÒ»¸ö¿Ø¼þ, ÓÃÓÚ Êý¾Ý²ÉÑùÈçʾ²¨Æ÷, ¿ÉÒÔÌí¼Ó,ɾ³ýÇúÏß, ÉèÖÃÇúÏßµÄÏà¹ØÊôÐÔ: ÏßÐÍ,ÑÕÉ«,µÈ...
¹ý³Ì:
        ¡¡ÏÈ´´½¨ Ïß Àà,  ÔÚÓû§¿Ø¼þÀïʵÏÖ Ïß ¶ÔÏó´´½¨,  ²¢ÉùÃ÷Ò»¸ö ¼¯ºÏ, ÓÃÓÚ ´æ·Å½¨Á¢µÄÏß¶ÔÏó.
ÎÊÌâ ......

Developer Support Languages VC++, C# and VB.NET


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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ