Xin code lấy dữ liệu từ 1 file excel sang 1 file excel khác (1 người xem)

[bebi109]

Mình có 2 files: File1.xls và File2.xls
Mình mở File2.xls, và muốn lấy dữ liệu ở ô B2:B11 trong Sheet1 của file File1.xls, viết vào ô A2:A11 trong Sheet1 của file File2.xls
Mong các cao thủ giúp đỡ code VBA thực hiện như yêu cầu trên, file đính kèm.
Xin chân thành cảm ơn!

 

[Quang_Hải]

Mình có 2 files: File1.xls và File2.xls
Mình mở File2.xls, và muốn lấy dữ liệu ở ô B2:B11 trong Sheet1 của file File1.xls, viết vào ô A2:A11 trong Sheet1 của file File2.xls
Mong các cao thủ giúp đỡ code VBA thực hiện như yêu cầu trên, file đính kèm.
Xin chân thành cảm ơn!

Thử vầy xem, chưa test code. Viết theo cảm tính.

Sub Cooppyy()
Dim File1 As Workbook, File2 As Workbook
Set File1 = Workbooks("File1.xls").Sheets("Sheet1")
Set File2 = Workbooks("File2.xls").Sheets("Sheet1")
File2.[A2:A11].Value = File1.[B2:B11].Value
End Sub

 

[bebi109]

Báo lỗi dòng 3 bác ạ. bác xem lại dùm. Thanks

 

[Quang_Hải]

Báo lỗi dòng 3 bác ạ. bác xem lại dùm. Thanks

2 File của bạn phải có sheet đặt tên là sheet1 thì sẽ không bị lỗi.
Và sửa code lại thế này xem

Sub Cooppyy()
Dim File1 As WorkSheet, File2 As WorkSheet
Set File1 = Workbooks("File1.xls").Sheets("Sheet1")
Set File2 = Workbooks("File2.xls").Sheets("Sheet1")
File2.[A2:A11].Value = File1.[B2:B11].Value
End Sub

 

[bebi109]

sr. vẫn lỗi thế bác ạ. hic.

 

[nguyentrungbkhn]

Giả sử File1 của mình nằm trong "D\" và nó chưa đc open nhé.

Sub Copy()
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\File1.xlsx"
Worksheets("Sheet1").Range("B2:B11").Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.ScreenUpdating = True
ActiveSheet.Paste Destination:=Worksheets("sheet1").Range("A2:A11")
End Sub

 

[bebi109]

may quá được rồi! thank các bác.^^