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

s7659109

¶×¤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

bobomi

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

s7659109

¶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

bobomi

.......
     End With

    wb.Close False

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

­ã´£³¡ªL

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

s7659109

¸Ñ¨M¤F¡AÁÂÁ´£¨Ñ¨ó§U¡C