yerel diskten veri alma aktarma

[EmirhanG]

:hey:
Sub CopySheet()

' makro emirbey

Application.ScreenUpdating = False
ChDir "D:\emir" 'D diskine emir adlı klasör oluşturuyoruz
Workbooks.Open Filename:= _
"D:\emir\dene.xls"
Sheets("sayfa1").Select 'emir klasörünede dene.xls dosyası oluşturuyoruz
Cells.Select 've bu kotları çalışma kitabımızın modulüne yazıyoruz
Selection.Copy
ThisWorkbook.Activate
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("somefile.xls").Activate
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub