[ÇóÖú]vb¶ÔExcel²Ù×÷ÖгöÏÖµÄÎÊÌ⣿£¿
´ó¼ÒºÃ£º
ÎÒÓÃVB¶ÔExcel½øÐÐÁ˵÷Óá£Ð´´úÂë¼°µ÷ÊÔʱÔÚ/¹¤³Ì/ÒýÓÃÖÐÒýÓÃÁËExccel 10.0 Object Library£¬µ÷ÊÔ¼°ÔËÐÐÒ»ÇÐ˳Àû¡£Ïà¹Ø´úÂëÈçÏ£º
Dim Excelobj as Excel.Application
Dim Excelbook as Excel.Workbook
Dim Excelsheet as Excel.Worksheet
Set Excelobj=CreeatObject("Excel.Application")
Set Excelbook=Excelobj.Workbooks.OpenExcel(path)
Set Excelsheet=Excelbook.WorkSheets(1)
Rownum=Excelobj.cells.SpecialCells(xlcelltypeLastCell).Row
Colnum=Excelobj.cells.SpecialCells(xlcelltypeLastCell).Column
µ÷ÊÔ¡¢ÔËÐÐÒ»ÇÐÕý³££¬ÔÚ×îÖÕÉú³ÉEXEÎļþǰ£¬ÎÒ½«¶ÔExcelµÄÒýÓÃÈ¥µô£¬Í¬Ê±³ÌÐò×÷Èçϸü¸Ä£º
Dim Excelobj as Object
Dim Excelbook as Object
Dim Excelsheet as Object
ÆäËüδ±ä£¬×ªÎªEXEÎļþʱ£¬ÏµÍ³Ìáʾ´úÂëÖкì×Ö²¿·Ö䶨Òå¡£
ÇëÎÊÔÚ²»ÒýÓÃExcelµÄǰÌáϸÃÈçºÎÐ޸ģ¿£¿
ÏÈлÀ²¡£
CreeatObjectӦΪCreatObject¶àÁËÒ»¸öe
CreateObject()´íµÄÌ«¶à
ûɶ£¬¾ÍÊÇÆ´Ð´´íÎó£ºCreeatObject¸ÄΪCreateObject¾ÍÐÐÁË
²»ÒýÓÃÁ˾ÍÐèÒª×Ô¼º¶¨Òå xlcelltypeLastCell µÈ³£Á¿¡£
²»ºÃÒâ˼£¬CreateObjectÊÇÎÒ±ÊÎ󣬳ÌÐòÖÐûÓÐÎÊÌâ¡£
¸ÃÈçºÎ¶¨ÒåxlcelltypeLastCell µÈ³£Á¿ÄØ£¿£¿
ºÇºÇ£¬ÒѾ½â¾öÀ²¡£Íò·Ö¸Ðл£¡
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......