ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

·t¶Â¥S§A´£¹L:¥Î vb ¼g­Ó¦C¦L³øªíªºµ{¦¡¡A¦Óexcel´N·í¦¨¸ê®Æ®w

·t¶Â¥S§A´£¹L:¥Î vb ¼g­Ó¦C¦L³øªíªºµ{¦¡¡A¦Óexcel´N·í¦¨¸ê®Æ®w

¨ä¹ê§Ú²{¦b¥Îªº¬O¦bVB²£¥Í­ì¥ÍÀÉ®×(.txt)ÀÉ,¦A¨ìExcel»s³y³øªí,¬°¤°»ò·|³o¼Ë©O?
¦]¬°§Ú¤£ª¾¹D¦bVB¤¤¦p¦ó¹º®Ø½u,¹ï³æ¤@Àx¦s®æ,³]©wÄÝ©Ê(¨Ò¦p:²ÊÅé¦r,¦r«¬ºØÃþ), ©ó¬O§Ú·Q°Ý·t¶Â¥S¦p¦ó¦bVB¤¤¼g¤@­Ó¦C¦L³øªíªºµ{¦¡?
V98

ÁÂÁ·t¶Â¥S,§Ú¯uªº§ä³o­Óµª®×§ä¦n¤[¤F,©ú¤Ñ¥h¤½¥q¸Õ¸Õ¬Ý,¦³°ÝÃD¦A°Ý§AÁÂÁÂ!!
V98

TOP

§A»¡ªº  DataGridView, report view, Crystal report   ³o¨Ç³£¥i¥H  ¥Î¡A¦ý  §Úıªº·|¼g¤@°ïµ{¦¡¡A©Ò¥H ³o¥u¬O ­Ó¤Hªº²ßºD¦Ó¤w...

'³sµ²excel
       Dim x1 As Object = CreateObject("Excel.Application")
        x1.Workbooks.Open("c:\a.xls")

¸ê®Æ®æ¤º®e¶ë¸ê®Æ

        For r As Integer = 1 To 7
            For c As Integer = 1 To 3
                 x1.Cells(r, c).Value= data(r,c)
            Next
        Next
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

DataGridView, report view, Crystal report ¦n¹³³£¥i¥H,«D¥¿¦¡ª©ªº DataGridview , report view ¦n¹³¤]¥i¥H,¦ý¬O¥i¯à¦b¦C¦L¤§«e³£µLªk¹wÄý,©Ò¥H·|¿ï¾ÜExcel.

¦]¬° Excel ªº»yªkÁÙ¤£±E±x,©Ò¥H²{¦b¼gªk¬O¥ý±N³øªí¸ê®Æ¦s¶i¥h(¥ÎVB ªº.TxtÀÉ),¦A¥ÎExcelŪ¶i¥h¤À³ÎÀÉ®×,¦A¹º®Ø½u.´N¹³§A¤W¶Çªºªí®æ¨º¼Ë,¦pªG¤º®e¥Î VB ¦s¦¨ .Txt ÀÉ, µM«áŪ¨ìEXcel¥h¹º®Ø½u,´N¦¨¤F,«Ü¨¯­W§a!¦³§ó¦nªº¤èªk½Ð´£¨Ñ.
V98

TOP

¤£¬O«Ü¤F¸Ñ§Aªº·N«ä..
´N³øªí¨Ó»¡....
³øªí  ¬O¨Ì±ø¥ó­È  ±N¸ê®Æ  ·J¾ã¦¨  §Ú­Ì­nªº®æ¦¡(¹wÅó)¡AµM«á¥Î¦Lªí¾÷¦C¦L¥X¨Ó(¦C¦L)¡A©Ò¥Hµ{¦¡¬yµ{·|¤À¬°
±ø¥ó³]©w>>¬d¸ß¤§¸ê®Æ(³øªí®æ¦¡)>>¦C¦L
vb.net  ¦³´£¨Ñªº³øªí¥\¯àCrystal Report³øªí¡A¦ý¥²¶·¦b¥¿¦¡ª©¥»¤~¦³´£¨Ñ¡C
§Ú¥Î§K¶Oª©ªº¡A©Ò¥H...§Ú·|¥Î¨ä¥Lªº¤è¦¡¨Ó¦C¦L  ¦p§A¤§«e»¡ªº  ¥Îexcel  ¨Ó·J¾ã¸ê®Æ¡A¦ýexcel ¬O©³¹ÏªºÆ[©À(¦p¹Ï)¡A

µM«á  ¥Îµ{¦¡±N  ­È  ¶ë¤J¹ïÀ³ªº  ªÅ®æ ¡A ³o¼Ë  ­n¦C¦Lªº¸ê®Æ  ´N¥i¥H¥Î  excel  ¦C¦L¡A¥Bexcel ªº©³¹Ï  ¥i¤@ª½­«ÂШϥΤ@ª½¨ì  §ï©³¹Ï

¤j´n´N³o¼Ë....¦³¨ä¥L°ÝÃD  ¦A´£¥X¨Ó¤j®a°Q½×
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD