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

ÈçºÎʵÏÖVBÓëEXCELµÄÎÞ·ìÁ¬½Ó

 http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£¬¸øÓ¦ÓÃÈí¼þµÄά»¤¹¤×÷´øÀ´¼«´óµÄ²»±ã¡£Òò´ËÓкܶà³ÌÐòÔ±ÏÖÔÚÒѾ­³ä·ÖÀûÓÃEXECLµÄÇ¿´ó±¨±í¹¦À´ÊµÏÖ±¨±í¹¦ÄÜ¡£µ«ÓÉÓÚ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.Cells(row, col)'¶ÁÈ¡µ¥Ôª¸ñ£¨row,col£©Öµ
xlBook.SaveAs "D:\a.txt", xlCSV, , , , , , 2 'Áí´æÎªCSVÀàÐÍÎļþ
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±à¼­Æ÷£¬ÆäÖÐÓÐÒ»¹¤³ÌÊôÐÔ´°¿Ú£¬µã»÷ÓÒ¼


Ïà¹ØÎĵµ£º

VB»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·

ÌâÄ¿:
ÈçºÎ»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·
´°¿ÚÓÐWebBrowser1£¬ºÍÒ»¸öText1
ÏÖÔÚ
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
´ò¿ª´°ÌåÏÔʾ°Ù¶ÈµÄÊ×Ò³£¬ÒªÇ󻬶¯Êó±êµ½“ÐÂÎŔʱ
Text1ÀïÏÔʾhttp://news.baidu.com/
»¬¶¯µ½“Ìû°É”ʱ
Text1ÀïÏÔʾÇå¿ ......

VBʵÏÖÈí¼þÊÔÓÃÆÚ

 ´ó¼Ò¶¼ÖªµÀ¹²ÏíÈí¼þ¶¼ÓÐËüÃǵÄÊÔÓÃÆÚ£¬¼´¸øÄãÒ»¸ö¹Ì¶¨µÄÆÚÏÞÃâ·ÑʹÓᣠ  
 Ó¦ÓеŦÄÜ£º
    1£©¸ø¶¨Ò»¸öÊÔÓÃÆÚÏÞ£¬ÔÚϵͳÿ´ÎÆô¶¯Ê±»áÅжÏÈí¼þÒѾ­Ê¹ÓÃÁ˼¸Ì죬»¹Óм¸Ìì¿ÉÒÔ¼°Æô¶¯µÄ´ÎÊý¡£
    2£©µ±ÏµÍ³ÈÕÆÚ±»Ð޸ijÉÍùÈÕµÄÈÕÆÚºó£¬ÏµÍ³ÄÜ×Ô¶¯Åб𣬽ûÖ¹ÐÞ¸ÄÈÕÆÚ £¬²»Ó ......

VB+SQL±àдÊý¾Ý¿â¹ÜÀíϵͳ

     ²ÎÕÕ°¸Àý½Ì³Ì½¨Á¢µÄÊý¾Ý¿â¹ÜÀíϵͳÔÚÉõ¶à·½Ãæ¶¼´æÔÚÎÊÌâ¡£¿ÉÄÜÊÇÐÂÊÖ£¬²»¹ÜÊǶÔÓÚ´óÒ»¾Íѧ¹ýµÄVB±à³Ì»¹ÊÇÕâ¸öѧÆÚ¸Õ½Ó´¥µÄSQL£¬ºÜ¶àСÎÊÌâ³£³£³öÏÖÔÚµ÷ÊÔ¹ý³ÌÖС£ÏëÇëÊìϤʹÓÃÕâÁ½¸öƽ̨µÄ¸ßÊÖ°ïæָµãһϡ£
     1.ÈçºÎ½â¾öDataGridÖжà¸öcolumnºÍSQLÖжà¸ö±íµÄ°ó¶¨£¿Ä¿µÄ ......

Ŀǰ·¢ÏÖµÄ×îÇ¿º·µÄVBÒþ²Ø½ø³Ì·½·¨

VBÒþ²Ø½ø³ÌÎÊÌâµÄÌÖÂÛÓÉÀ´ÒѾÃ,Ч¹ûÓкÃÓлµ,·´ÕýÊǸ÷Óи÷µÄÕÐ,żȻ»ú»á¿´µ½planet-sourceÒ»¶ÎÒþ²Ø½ø³ÌµÄÎÄÕÂ,×÷Õß˵²ÉÓÃÁËkernel mode driver!·½·¨,
µ¥´Ó¼¼Êõ·½·¨¶øÑÔ,ÕâÊÇĿǰ¼ûµ½Òþ²Ø½ø³ÌÖÐ×îÇ¿º·µÄÁË(¸öÈ˼û½â,¾®µ×Ö®ÍÜÁË),²»¹ýÕâÖÖ¶«Î÷ÓÃÔÚÕýÒåµÄÈËÊÖÉÏÊÇÒ»¸ö³ý±©°²Á¼µÄÀûÆ÷,ÓÃÐÄØÏ²âÕ߾Ͳ»ºÃ˵ÁË,µ«ÊǼ¼ÊõÖÕ¹éÊǼ¼Êõ ......

VBÏÂÔØÎļþ

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ