VBÔõÑùÌáÈ¡excelÀïµÄ×îºóÒ»¸öдÈëµ¥Ôª¸ñµÄÐÐÁÐ
ÈçÌâ
VB code:
'²»ÖªµÀÄãÊDz»ÊÇÒªÕâ¸ö£º
'vba´úÂëÈçÏ£º
ÐкŠ= ActiveCell.Row
ÁкŠ= ActiveCell.Column
'VBÖÐÓÃʱ£¬¼ÓÉÏVBÖд´½¨excelµÄ¶ÔÏó
'ÒÔÏÂÒ²Êdz£ÓõÄ:
'vba´úÂëÈçÏ£º
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
nLC = ActiveSheet.Cells.SpecialCells(xlLastCell).Column '×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Nextcol = Cells(nLR, 1).End(xlToRight).Column '²éÕÒ×îºóÒ»ÐÐ×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Nextrow = Cells(1, nLC).End(xlDown).Row '²éÕÒ×îºóÒ»ÁÐ×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
'VBÖÐÓÃʱ£¬Í¬Ñù¼ÓÉÏVBÖд´½¨excelµÄ¶ÔÏó
¹Ø×¢
ÎÒÒªµÄÊÇ£¬µ±ÓÐÒ»¸öexcelÎļþÒѾ±»Ð´µ½µÚ¶þÐеÚÈýÁÐÁË£¬ÄÇÎÒÒªÔÚÏÂÒ»´Î´ò¿ªÕâ¸öÎļþµÄʱºò½Ó×ŶÔÕâ¸öÎļþд¡£Õâʱ¾ÍµÃÖªµÀ£¬Õâ¸öÎļþдµ½ÄÄÁË£¬Ò²¾ÍÊÇÒªÇå³þÕâ¸öÎļþµÄÉÏÒ»´Î×îºóдÈë×îºóÒ»¸ñµÄÐÐÓëÁС£
Èç¹ûÄãµÄ±í¸ñÊǾØÐεģ¬ÓÃÒÔÏÂÓï¾ä¿ÉÒÔÍê³É£º
nLR = ActiveSheet.Cells.SpecialCells(11).Row '×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
nLC = ActiveSheet.Cells.SpecialCells(11).Column '×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Èç¹ûÄãÊäÈëÍê×îºóÒ»¸öµ¥Ôª¸ñºó£¬Ã»ÓÐÒƶ¯¹ý»î¶¯µ¥Ôª¸ñ£¨¼´ºÚ¿òÌ×סµÄµ¥Ôª¸ñ£©¿ÉÒÔÈçÏ£º
ÐкŠ= ActiveCell.Row
ÁкŠ= ActiveCell.Column
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '×îºóÒ»ÐУ¨ÓëÁ¬
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ
Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
objExt.Visible = True
³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......