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

VBµÄÒ»¸öÎÊÌâ ÔÚÏßµÈ - VB / »ù´¡Àà

listviewµÄÄÚÈÝÊä³öÖÁexcelÖеÄÒ»¶Î´úÂë
RowCnt = 2
ColCnt = 1

For i = 1 To Form6.listview1.ListItems.Count
  For j = 1 To 8
  xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
  ColCnt = ColCnt + 1
  Next j
   
  ColCnt = 1
  RowCnt = RowCnt + 1
 Next i

i =1ʱÄÜÅÜ£¬µ«Ö»Òªµ½×îÍâÃæµÄforÑ­»·Ê±£¬Ò²¾ÍÊÇiµÄÖµ´Ó1±äµ½2ʱ£¬¾Í»á±¨ÎÞЧµÄÊôÐÔÖµ

¸÷λ°ïæ¿´¿´
¶¥ÉÏÈ¥

±¨´í»á²»»áÊÇÕë¶ÔxlSheet.CellsÄØ

µ¥²½µ÷ÊÔ£¬¼ì²éÕâ¾ä
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
i,jµÄÖµÊÇ·ñÓÐÔ½½ç¡£

xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(1).SubItems(8)
µ½´Ë¶¼ÊÇ¿ÉÒԵ쬵«ÔÙ°´f8¾ÍÌøµ½´íÎóÁË

xlSheet.Cells(RowCnt, ColCnt).Value Ôõô»á±¨´íÄØ£¿ RowCnt ColCnt ¶¼Êdz£Á¿


ÎÒ¿¿£¬¾ÓÈ»ÊÇÕâÔ­Òò£¬Ð»Ð»ÁË ½áÌù


Ïà¹ØÎÊ´ð£º

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......

VBÊ÷ÐͽṹÎÊÌâ - VB / ¿Ø¼þ

ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË,  
ÓÃtreeview²»ÄÜÂú×ãÒªÇó
ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν
  ½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ
  ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ