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£Á¿
ÎÒ¿¿£¬¾ÓÈ»ÊÇÕâÔÒò£¬Ð»Ð»ÁË ½áÌù
Ïà¹ØÎÊ´ð£º
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË,
ÓÃtreeview²»ÄÜÂú×ãÒªÇó
ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν
½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ
ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......