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

[µo°Ý] °Å¶KïµLªkÄÀ©ñ¡A¥Bdata¶}¤£¤F

[µo°Ý] °Å¶KïµLªkÄÀ©ñ¡A¥Bdata¶}¤£¤F

¶×¤JÀÉ·|²£¥Í¼È¦s°Ï¡A·|µo¥Í¶×¤J«á¡A­ìDATA¦A¶}°_®É¡AµLµe­±
¦ý¦pªG¤â°Ê¥h°£°Å¶Kï¡A«hDATA ´N¥i¶}±Ò¡A
½Ð°Ý¡G¦p¦ó¥Îvba ¥h°£°Å¶K諸¼È¦s¸ê®Æ
Sub test()
'Dim wb As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False '´£¥Üµøµ¡®ø¥¢(À³¸Ótrue ¬OÃö±¼  false¬O¶}±Ò
Set wb = GetObject(ThisWorkbook.Path & "\data.xlsx")
    With wb.Sheets("data")
         Cells.ClearContents
         R = .Cells(.Rows.Count, 1).End(3).Row
          .Range("a1:D" & R).copy
          [a1].PasteSpecial xlPasteValuesAndNumberFormats
          .Range("G1:i" & R).copy
          [J1].PasteSpecial xlPasteValuesAndNumberFormats
        
       End With

    wb.Close False
   
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

1071030.zip (72.77 KB)

§Æ±æ¤ä«ù!

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.CutCopyMode = False

TOP

¥»©«³Ì«á¥Ñ s7659109 ©ó 2018-10-30 14:37 ½s¿è

¶K¶i¨Ó«á¡A¸Ñ¨M¤F¡A¦ýĵ¥Ü¬O§_­n§R°£¡A­YApplication.DisplayAlerts = False¡A§ï¬°true,¤£Äµ¥Ü¡A¦ýµLªk§R°£¡A­Y¤£Äµ¥Ü¡Aª½±µ§R°£¡A¸Ó¡H
§Æ±æ¤ä«ù!

TOP

.......
     End With

    wb.Close False

Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

TOP

Application.CutCopyMode = False '©ñ«e­±
wb.Close False

TOP

¸Ñ¨M¤F¡AÁÂÁ´£¨Ñ¨ó§U¡C
§Æ±æ¤ä«ù!

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD