phamkhacni
Thành viên mới
- Tham gia
- 23/5/13
- Bài viết
- 28
- Được thích
- 1
Chào các bác, hiện tại em đang dùng code của 1 bác trên 4rum
Nhưng có copy hơi chậm, bác nào có code copy 1 sheet từ file này file khác nhanh hơn thì cho em xin với ạ
Chỉ copy giá trị, k copy định dạng thì càng tốt ạ
Nhưng có copy hơi chậm, bác nào có code copy 1 sheet từ file này file khác nhanh hơn thì cho em xin với ạ
Chỉ copy giá trị, k copy định dạng thì càng tốt ạ
Mã:
Sub Button1_Click()With Application.FileDialog(1)
.InitialFileName = ThisWorkbook.Path
.Title = "Chon file nguon"
.FilterIndex = 3
.AllowMultiSelect = False
Do
.Show
If .SelectedItems.Count = 0 Then Exit Sub
If .SelectedItems(1) = ThisWorkbook.FullName Then MsgBox "Khong chon file nay!"
Loop Until .SelectedItems(1) <> ThisWorkbook.FullName
With Workbooks.Open(.SelectedItems(1))
.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).[A1]
.Close False
End With
End Sub
Lần chỉnh sửa cuối: