[ÇóÖú]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 µÈ³£Á¿ÄØ£¿£¿
ºÇºÇ£¬ÒѾ½â¾öÀ²¡£Íò·Ö¸Ðл£¡
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......