GBKEE

回復 1# imzues

1. Sub Ex()
   
2.     Dim MySheet As Worksheet
   
3.     Set MySheet = ActiveSheet
   
4.     With Workbooks.Open("d:\test\外部資料.xls")
   
5.         .Sheets(1).Range("a1:a10").Copy MySheet.Range("a1")
   
6.         .Close 0
   
7.     End With
   
8. End Sub

複製代碼