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

[µo°Ý] ¥t¦s·sÀÉ «ç»ò§âÄæ寛¸ò¦C°ª¤]½Æ»s¨ì·sªí®æ?

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-23 01:55 ½s¿è

¦^´_ 1# kkooo15


¾ã­¶½Æ»s¹L¥hÀ³¸Ó¤ñ¸û§Ö..........¤£¥Î¦A³]©wÄæ¼e¦C°ª

¥h±¼¤½¦¡«Ü²³æ¡A´N­ì¦a½Æ»s+¶K¤W­È

¶¶«KÀ°§A§â«ö¶s¬å±¼¡A§A·sªí®æÀ³¸Ó¤]¤£·Q¦³«ö¶s

Sub EX2()
Set xSh = Sheets("³ø»ù³æ")
Set zSh = Sheets("½Ð´Ú³æ")

iPath$ = ActiveWorkbook.Path & "\" '«ü©w¸ô®|"
NewName$ = Format(Now, "yyyymmddhhmmss") & CStr([¬dªí!C4])
Set ibook = ActiveWorkbook
With Workbooks.Add: ibook.Activate
xSh.Copy before:=.Sheets(1)
  With ActiveSheet
    .UsedRange.Copy
    .[A1].PasteSpecial Paste:=xlPasteValues
    .Shapes(1).Delete
  End With
  zSh.Copy after:=.Sheets(1)
  With ActiveSheet
    .UsedRange.Copy
    .[A1].PasteSpecial Paste:=xlPasteValues
    .Shapes(1).Delete
  End With

  .SaveAs iPath & NewName: .Close True
  
End With: Set ibook = Nothing
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD