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

xls¥t¦sCsv«O¯d¹s

xls¥t¦sCsv«O¯d¹s

§Ú»Ý­n±N¤j¶qexcel sheet¦s¦¨csvÀÉ
------------------------------------------------
¥H¤U¬O¥Ø«e¥Îªº¤è¦¡
Public Sub SaveWorksheetsAsCsv()
Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

    SaveToDirectory = "d:\"

    For Each WS In ThisWorkbook.Worksheets
        WS.SaveAs SaveToDirectory & WS.Name, xlCSV
    Next

End Sub
------------------------------------------------

¸Ì­±«Ü¦h0¶}ÀY¼Æ¦r¡AÂà¦s«áµLªkÅã¥Ü(0015¡A0050.....¡÷15¡A50.....)
§ï¦¨¤U¦C¨âºØ¼Ò¦¡¤]µLªk¦¨¥\
(1)   ="0050"
(2)   0050(Àx¦s®æ®æ¦¡³]¬°¤å¦r)
¯à¤£¯àÅý³o(1)¡B(2)ºØ«¬ºAªº¼Æ¦rÂà¨ìcsv³£¥i¥HÅã¥Ü¥X0©O
¥i§_½Ð¤j¤j­Ì´£¨Ñ¦n¤èªk©O¡HÁÂÁÂ

½Ð¤W¶Ç¤@¤U§Aªº¸ê®ÆÀÉ

TOP

¦^´_ 2# bobomi
§Ú»Ý­nÅýAÄæ¶}ÀY¬O¹sªº¼Æ¦r³£ºû«ù­ì¼Ë¡A¦ý¬O¥Ø«e¥Îªº¤è¦¡¡A·|Åý0³q³q¤£¨£
³Â·Ð¤j¤j¬Ý¬Ý¤F

TEST1.rar (16.9 KB)

TOP

¨ä¹ê¦sÀÉ«á, Àɮפº®e½T¹ê¬O 0050 ....  0ÁÙ¬O¦³«O¯d
(§A¥i¥H¥Îµ§°O¥»³nÅé¶}±Ò¨º­Ó csv ÀÉ, ´N¥i¥H¬Ý¨ì0050 ....  0ÁÙ¬O¦³«O¯d )
¥u¬O¥Î Excel ¶}ÀÉ®É, Excel ¦Û°Ê§â¥¦Âର¼Æ¦r, ¾É­P0¤£¨£¤F

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-3-6 19:32 ½s¿è

¦pªG§A§â¥¦¦s¦¨  .xls ÀÉ

WS.SaveAs SaveToDirectory & WS.Name, xlExcel7
xlExcel7, xlExcel8 .... ³oÃþªº

¶}±Ò«á´N¥i¥HÅã¥Ü 0

TOP

¦^´_ 5# bobomi
¤F¸Ñ¡A·PÁ¤j¤j¼·ªÅ¦^´_:)

TOP

¦^´_ 5# bobomi


   ½Ð±Ð±z,¬O»¡§âcsvÂনxlsxÀÉ®×,Àx¦s®æ«e­±ªº0´N·|Åã¥Ü¶Ü...
¤£À´³o¨Ç¬O­n°µ¤°»ò:
WS.SaveAs SaveToDirectory & WS.Name, xlExcel7
xlExcel7, xlExcel8 .... ³oÃþªº
joyce

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-3-6 23:41 ½s¿è

«ü©w xlExcel7 ¥¦´N·|À°§A¦s¦¨ xxx.xls ÀÉ, 0´N·|Åã¥Ü
¥I¥Xªº¥N»ù: Àɮפj1ÂI, ¶}±Ò³t«×ºC1ÂI

¦pªG§A´N¬O·Q­n«O¦s csv  , ÁÙ­n EXCEL ¥´¶}¬Ý±o¨ì0ªº¸Ü
¥i¯à¥u¯à¥Î vba ¥h¶}¤F

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD