Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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±à¼­Æ÷£¬ÆäÖÐÓÐÒ»¹¤³ÌÊôÐÔ´°¿Ú£¬µã»÷ÓÒ¼


Ïà¹ØÎĵµ£º

ת£ºWinFormʹÓÃWebService×Ô¶¯Éý¼¶ £¨VB + .Net£©

ת×Ô£ºhttp://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html 
 
WinFormʹÓÃWebService×Ô¶¯Éý¼¶
2009-08-08 10:49
winform³ÌÐòÏà¶Ôweb³ÌÐò¶øÑÔ£¬¹¦ÄܸüÇ¿´ó£¬±à³Ì¸ü·½±ã£¬µ«Èí¼þ¸üÐÂÈ´Ï൱Âé·³£¬Òªµ½¿Í»§¶Ëһ̨һ̨µØÉý¼¶£¬Ãæ¶ÔÕâ¸öʵ¼ÊÎÊÌ⣬ÔÚ×î½üµÄÒ»¸öСÏîÄ¿ÖУ¬±¾ÈËÉè¼ÆÁËÒ»¸öͨ¹ýÈí ......

[vb]ʹÓÃvbͳ¼Æ.javaµÄÐÐÊý

 ¹¤×÷ÐèÒª£¬Õë¶ÔjavaÎļþ£¬×÷ÁËÒ»¸öÐÐÊýͳ¼ÆµÄ¹¤¾ß¡£Í³¼ÆµÄÖ÷Òª´úÂëÈçÏ£º
    Set srcIn = fso.OpenTextFile(fileNm, ForReading)
    
    Do While Not srcIn.AtEndOfStream
        buf = srcIn.ReadLine
 &nbs ......

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

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

ÈçºÎÓÃvb²¥·Å»ÃµÆÆ¬

ÈçºÎÈÃ»ÃµÆÆ¬ÔÚvbµÄ¿ò¼ÜÀï²¥·Å
'Microsoft PowerPoint 9.0(Office 2000µÄ£¬Èç¹ûÊÇ97ÔòÊÇ8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'ÑÓʱAPIÉùÃ÷
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......

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

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