Mở file Excel copy paste tự động

[Sil_90]

có bác nào cao thủ VBA chỉ em cách viết code. tự động mở được file Excel, coppy và paste vào một file khác hay không?
em cám ươn nhiều.

 

[be_09]

có bác nào cao thủ VBA chỉ em cách viết code. tự động mở được file Excel, coppy và paste vào một file khác hay không?
em cám ươn nhiều.

Góp ý cho bạn:
1/ Bạn nêu "bác nào cao thủ" thì chờ đến tết Marốc mới có thành viên tự nhận là cao thủ vào giúp cho.
2/ Bạn nêu 1 câu hỏi chung chung thì chẳng thành viên nào hiểu bạn muốn Copy cái gì của sheet nào và Paste vào chỗ nào của sheet nào?

 

[KUMI]

có bác nào cao thủ VBA chỉ em cách viết code. tự động mở được file Excel, coppy và paste vào một file khác hay không?
em cám ươn nhiều.

Chào bạn,
Đây chỉ là đoạn code mình sưu tầm.. chắc bạn cũng biết sử dụng, bạn có thể tùy biến theo ý bạn muốn.

Sub Import_from_ClosedWB() 'Copy dữ liệu từ nhiều sheet trong 1 workbook đang đóng
Const sPath="D:\Temp\" 'Đường dẫn tới thư mục chứa workbook đang đóng
Dim sFil As String
Dim owb As Workbook
Dim ws As Worksheet
Dim sh As Worksheet
    
Application.ScreenUpdating = False 'Tắt chức năng cập nhật màn hình
Set ws=Sheet1
    sFil=Dir(sPath & "*.xl*") 'Tên workbook cần lấy dữ liệu

Do While sFil <> "" 'Thực hiện khi workbook cần lấy dữ liệu có tồn tại
  Set owb=Workbooks.Open(sPath & sFil)
  For Each sh In ActiveWorkbook.Sheets  'Vòng lặp xét tới từng sheet
      sh.[A2:AZ2000]=sh.[A2:AZ2000].Value   'Loại bỏ công thức, chỉ lấy giá trị
      sh.Copy After:=ws   'Copy và paste sang workbook kết quả
    owb.Close False 'Đóng workbook nhưng không thực hiện lưu
  Next sh
sFil=Dir
Loop
Application.ScreenUpdating = True   'Mở chức năng cập nhật màn hình

End Sub

 

[tuan.dandy]

bác dùng AutoIT đi

 

[Thong Hoang Tien 250691]

có bác nào cao thủ VBA chỉ em cách viết code. tự động mở được file Excel, coppy và paste vào một file khác hay không?
em cám ươn nhiều.

Viết thì ghi rõ điều cần làm vào "Sếp" ơi. Ghi thế thì em cũng bó tay không giúp được.