[ÇóÖú]VB»ñÈ¡ExcelÊý¾ÝµÄÎÊÌâ
Excel±íÄÚÓÐÒ»ÄÚÈÝΪ01.00£¬Í¨¹ýVB½øÐжÁÈ¡£¬µ«¶Àµ½µÄÊýֵΪ1£¬VBʹÓÃ×Ö·ûÐͶÔExcel¶Áµ½µÄÊý¾Ý½øÐд洢¡£ ÓÐʲô·½·¨Äܱ£Ö¤¶ÁȡǰºóÄÚÈݵÄÒ»ÖÂÐÔÄØ£¿Çó½ÌÀ²£¡ ÏÈл¹ý£¡
µ¥¶À¶ÁÈ¡Êý¾ÝÊDz»ÐеÄ.»¹ÐèÒª¶ÁÈ¡¸ÃCELLµÄ¸ñʽ. ¶øÇÒÒª¿´Äã´¢´æµÄÊÇʲô¸ñʽ,³ýÁËchar/ncharµÈ×Ö·ûÐÍÀ¸Î»,ÆäËûµÄ¾ÍÒª¿´±¾ÉíÔÚÊý¾Ý¿âÀïÃæ¶¨ÒåµÄÊý¾ÝÀàÐÍÓë¸ñʽ. ±ÈÈçËäÈ»CELLÖдæµÄÊÇ01.00,µ«´æÈëÊý¾Ý¿âÖеÄÀ¸Î»¸ñʽÊÇNumeric(5,2),Æä¾Í»á±ä³É 1.00 ÔÀ´µÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Cells(i, 1) ¸ü¸ÄºóµÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Range("A" & i).Text ÎÊÌâ½â¾ö,ºÇºÇ,ллÀ².ÒýÓà ÔÀ´µÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Cells(i, 1) ¸ü¸ÄºóµÄ¶ÁÈ¡·½Ê½:Ex_dh(i) = Excelsheet.Range("A" & i).Text ÎÊÌâ½â¾ö,ºÇºÇ,ллÀ². ¾ÍÊÇÓ¦¸Ã¶ÁÈ¡ .Text ¡£ ¹§Ï²Â¥Ö÷¡¡¡¡ ʹÓÃVariant±äÁ¿Êý×é´æÈ¡´ÓexcelÖеĵõ½Êý¾Ý¡£Ê¹ÓÃTypeName£¨£©ÅжÏÀàÐͼ´¿É¡£ ÀýÈ磺 dim a(5) dim b as string a(0)=Excelsheet.Cells(i, 1) b=typename(a(0))'bΪÊý¾ÝÀàÐÍ ºÇºÇ£¬Ð»Ð»´ó¼ÒÈÈÐİïæÀ²£¡
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË ´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ ´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£ »Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ 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 ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿ ´úÂë¿´¿´ ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ ÒýÓà ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ Â¥Ö÷Ò² ......