mở folder chọn file copy-paste

[Harry90]

Em chào Anh/chị ạ
Em có file có code VBA sẵn rồi ( File này để trong folder thì tự chạy và copy-paste)
Nay em muốn thay đổi là có tin nhắn báo chọn folder -> chọn đến folder chứa các file cần copy-> tiến hành copy-paste
Rất mong quý anh chị giúp đỡ em ạ
Em cảm ơn ạ
-----------------------------------
Option Explicit

Sub AMS_High_Temp()
Dim Path As String, I As Long, Wb As Workbook, Ws As Worksheet, T As Double
Dim R As Long, WbN As Workbook, C As Long

On Error Resume Next

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Wb = ThisWorkbook
Path = Wb.Path & "\"
Set Ws = Wb.Sheets("Summary")
Ws.Range("F12").Resize(1000, 100).ClearContents
R = Ws.Cells(10, Columns.Count).End(1).Column
If R > 4 Then
For I = 4 To R
Set WbN = Workbooks.Open(Path & Ws.Cells(10, I).Value)
WbN.Sheets(3).Range("I9:L9").Copy
Ws.Cells(12, I).PasteSpecial xlPasteValues, , , True

WbN.Sheets(3).Range("I10:L10").Copy
Ws.Cells(16, I).PasteSpecial xlPasteValues, , , True

WbN.Sheets(3).Range("I13:L13").Copy
Ws.Cells(20, I).PasteSpecial xlPasteValues, , , True

WbN.Close True

Next
End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "HOAN THANH COPY-PASTE !" & "Time (S)" & Timer, vbInformation, "KET QUA"

End Sub

 

[BuiQuangThuan]

Nay em muốn thay đổi là có tin nhắn báo chọn folder -> chọn đến folder chứa các file cần copy-> tiến hành copy-paste

Chọn đến folder chứa file rồi thì code trên phải viết lại chứ đâu còn dùng được code cũ nữa

 

[Harry90]

Chọn đến folder chứa file rồi thì code trên phải viết lại chứ đâu còn dùng được code cũ nữa

Anh xử lý giúp em với ạ (((