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

[µo°Ý] ¨D§U¡A¦p¦ó¥ÎVBA§â©î¤À¤u§@ªí¤Î¦sÀɤé´Á

¥»©«³Ì«á¥Ñ register313 ©ó 2012-4-23 13:12 ½s¿è

¦^´_ 10# threelin


fs = ipath & n & sh.Name &  ".xls"

TOP

¦^´_ 11# register313

·PÁÂregister313 ªºÀ°¦£¡C:)

­è¤~¤Sµo²{¤@­Ó°ÝÃD¡Ac ¡Be ¡Bg¤T­Óªíªº¸ê®Æ¬O³sµ²¨ì¨ä¥¦ªí®æªº
©î¦¨¿W¥ßÀɮ׫á¡A¦bc ¡Be ¡Bg¡@¤T­Óªí¤¤¡AÀx¦s®æÁÙ¬O·|¦³³sµ²¸ô®|

½Ð±Ð±z
¸Ó¦p¦ó­×§ï¦¨¡A¥ý±Nc ¡Be ¡Bg¡@¤T­Óªí¤¤ªº¼Æ­È¿ï¾Ü©Ê¶K¤W«á¡A¦A©î¤À¦¨¤T­Ó¿W¥ßÀɮסAÁÂÁ±z¡C

TOP

¦^´_ 12# threelin
  1. Sub ex()
  2. n = Sheets("g").[A1]
  3. sht = Array("c", "e", "g")
  4. ipath = ThisWorkbook.Path & "\"
  5. For Each sh In Sheets(sht)
  6. sh.Copy
  7. With ActiveWorkbook
  8. Cells.Copy
  9. Cells.PasteSpecial Paste:=xlPasteValues
  10. fs = ipath & n & sh.Name & ".xls"
  11. .SaveAs fs
  12. .Close
  13. End With
  14. Next
  15. End Sub
½Æ»s¥N½X

TOP

¬Ý¨ì¦U¦ì¥ý¶iªº¸Ô²Ó¸Ñµª,Åý¤p§Ì¨ü¯q¤£¤Ö,¯u¬O¤Ó·PÁ¤F^^

TOP

¦^´_ 13# register313


    ·PÁÂregister313¤j¤j¡A¤w¸g¥i¥H¤F¡AÁÂÁ±z¡C;P

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD