- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
- Dim Path As String
- ¦pªG±zªº°ÝÃD¬O¦]¬°§A©çªº¹Ï¤ùªºÃö«Y,¦³Â²³æ¨âºØ¤è¦¡¸Ñ¨M
- Ãö³¬Äµ§iµøµ¡ ¥H¤Î²M°£°Å¶Kï
- 'Application.DisplayAlerts = False'Ãö³¬Äµ§iµøµ¡
- 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
- Application.CutCopyMode = xlCopy'²M°£°Å¶Kï
- 'Workbooks("aabtxt").SaveChanges:= False
- Workbooks("aabtxt").Close SaveChanges:=False
½Æ»s¥N½X ¦^´_ 1# s13983037 |
|