joey0415

回復 1# 阿宗

這種問題自己錄製一次就知道如何修改
不知 道自己練習了嗎？

先求有，再求好！

錄製範例：

1. Sub Macro1()
   
2. 
   
3.     Sheets("Sheet1").Select
   
4.     Range("A1").Select
   
5.     Selection.Copy
   
6.     ChDir "C:\Users\Joey\Desktop"
   
7.     Workbooks.Open Filename:="C:\Users\Joey\Desktop\b.xls"
   
8.     Range("A1").Select
   
9.     ActiveSheet.Paste
   
10.     Application.CutCopyMode = False
    
11.     ActiveWorkbook.Save
    
12.     ActiveWindow.Close
    
13.     Range("A1").Select
    
14. End Sub

複製代碼