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

ÔõÑù ͨ¹ývb ¶Ôexcel µÄÊä³ö¸ñʽ½øÐÐÉèÖã¿

ÎÒÊÇÐÂÊÖÏ£Íû´ó¼ÒÄܹ»¸øÓë°ïÖú£º
ÎÒÊǰÑdatagrid µÄÄÚÈݵ¼³öµ½excelÀïÃæ£¬ÔÚ datagrid ÀïµÄÈÕÆÚ£¬Ê±¼ä µ½excel ÀïÃæ ¶¼²»ÄÜÕý³£ÏÔʾ£¬µ«ÊÇÔÚexcel Àï  ½«µ¥Ôª¸ñ¸ñʽ ÉèΪ ¡°ÈÕÆÚ¡±»òÕß¡°Ê±¼ä¡± ºó¾Í¿ÉÒÔÏÔʾÁË£¬ÏëÎÊϸßÊÖ ÔÚ³ÌÐòÀïÔõÑùÌí¼Ó´úÂë¾Í¿ÉÒÔ Ö±½ÓÕý³£ÏÔʾÈÕÆÚʱ¼ä
CStrº¯Êý»òFormatº¯Êý

°ÑÄãµÄÈÕÆÚÀàÐÍת»»Ò»ÏºóÔÚ¸³Öµ

°´Â¥ÉϽ«Êý¾ÝÀàÐÍת»»Ò»ÏÂ,»òÕßÔÚexcelÖÐÂ¼ÖÆÒ»ÏÂÄã×Ô¼ºÉèÖÃÈÕÆÚ¸ñʽµÄºê

Äܲ»Äܸø¶Î´úÂë °¡
ÏàËÆµÄÀý×ÓÒ²ºÃ
°ÝÇóÁË£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡11

¼¸öºê·ÖÎöϾÍOKÀ²~~

ÉèÖÃexcel¸ñʽ£¬µ¼³öʱcopyÕâ¸öexcelÎļþ²»¾ÍÐÐÁË£¬Ð´Ê²Ã´´úÂë°¡£¡

Aspose.Cells Ç¿´óµÄµÚÈý·½Èí¼þ.

ÏÈÉèÖõ¥Ôª¸ñµÄ¸ñʽ,È»ºóÔÙ¸³Öµ¾Í¿ÉÒÔÁË.
xl.Worksheets(1).Cells(i + 1, j + 1).NumberFormatLocal = "@"
xl.Worksheets(1).Cells(i + 1, j + 1).Value = ÊýÖµ

ÒýÓÃ
ÏÈÉèÖõ¥Ôª¸ñµÄ¸ñʽ,È»ºóÔÙ¸³Öµ¾Í¿ÉÒÔÁË.
xl.Worksheets(1).Cells(i + 1, j + 1).NumberFormatLocal = "@"
xl.Worksheets(1).Cells(i + 1, j + 1).Value = ÊýÖµ
¶¥Ò»ÏÂ

xlSHEET.Columns("A").NumberFormatLocal = "yyyy-mm-dd "
xlSHEET.Columns("B").NumberFormatLocal = "hh:mm:ss "
ÔÚ ¸øexcel¸³Öµºó ¼ÓÉÏÕâ¶Î´úÂë¾Í¿ÉÒÔ½â¾ö

ÔÙ´Îлл´ó¼ÒµÄ°ï棬СµÜ²»Ê¤¸Ð¼¤£¡

http://download.csdn.net/source/1262359


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

°ïÎҸĸÄÕâ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 ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ