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

[ÇóÖú]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Õâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ