ÈçºÎʵÏÖ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±à¼Æ÷£¬ÆäÖÐÓÐÒ»¹¤³ÌÊôÐÔ´°¿Ú£¬µã»÷ÓÒ¼
Ïà¹ØÎĵµ£º
——————————————————————————————————
ÔÚc#ÖÐÈçºÎʹÓÃÒÔǰc++µÄ.lib¿âºÍ.hÍ·Îļþ
zhujiang_1977£¨Öì½ ......
http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà W ......
ÈçºÎÈÃ»ÃµÆÆ¬ÔÚ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±àдÍÐÅÌͼ±êÓÐÁ½¸öÒªµã£¬Ò»ÊÇʹÓà Shell_NotifyIcon º¯ÊýÏÔʾͼ±ê£»¶þÊÇÏòϵͳע²á TaskbarCreated ÏûÏ¢£¬ÒÔ±ãexplorer±ÀÀ£Ê±»Ö¸´ÍÐÅ̵Äͼ±ê¡£
Ê×ÏÈÐèÒªÔö¼ÓÒ»¸öÄ£¿éÎļþ£¬ÄÚÈÝÈçÏ£º
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......