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

±j¨îÃö³¬½Æ»sªºEXCEL

±j¨îÃö³¬½Æ»sªºEXCEL

¤j¤j±z¦n §Ú·Q½Ð°Ý¤@¤U ·í§Ú½Æ»sEXCEL¤¤ªº¸ê®Æ «oµLªkÃö³¬ ³o¦³¬Æ»ò¤èªk¥i¥H±j¨îÃö³¬EXCEL¶Ü
·PÁ¨ó§U

Dim Path As String
Path = ThisWorkbook.Path
Workbooks.Open Path & "\" & Range("B1")
Workbooks("aabtxt").Activate
Workbooks("aabtxt").Sheets(1).Range("A1").Select
Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
Windows("´ú¸Õ¥Î2.xlsx").Activate
Worksheets(2).Range("A1").PasteSpecial
'Workbooks("aabtxt").SaveChanges:= False
Workbooks("aabtxt").Close SaveChanges:=False

6.png (21.87 KB)

ªþ¥ó1

6.png

  1. Dim Path As String
  2. ¦pªG±zªº°ÝÃD¬O¦]¬°§A©çªº¹Ï¤ùªºÃö«Y,¦³Â²³æ¨âºØ¤è¦¡¸Ñ¨M
  3. Ãö³¬Äµ§iµøµ¡ ¥H¤Î²M°£°Å¶Kï
  4. 'Application.DisplayAlerts = False'Ãö³¬Äµ§iµøµ¡
  5. Path = ThisWorkbook.Path
  6. Workbooks.Open Path & "\" & Range("B1")
  7. Workbooks("aabtxt").Activate
  8. Workbooks("aabtxt").Sheets(1).Range("A1").Select
  9. Workbooks("aabtxt").Sheets(1).Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
  10. Windows("´ú¸Õ¥Î2.xlsx").Activate
  11. Worksheets(2).Range("A1").PasteSpecial
  12. Application.CutCopyMode = xlCopy'²M°£°Å¶Kï
  13. 'Workbooks("aabtxt").SaveChanges:= False
  14. Workbooks("aabtxt").Close SaveChanges:=False
½Æ»s¥N½X
¦^´_ 1# s13983037
PKKO

TOP

¦^´_ 2# PKKO


    ·PÁÂÀ°¦£ ­ì¨Ó¥u­n³o¼Ë´NOK¤F

TOP

¦^´_ 3# s13983037


    ­þ¸Ì,§Ú¤£¤p¤ß§â»¡©ú¥´¤Jµ{¦¡½X,«¢«¢!
PKKO

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD