Hoanpham2311
Thành viên mới
- Tham gia
- 26/3/18
- Bài viết
- 6
- Được thích
- 1
- Giới tính
- Nam
Gửi các anh chị.
Em thấy code của anh ptlong04x1 trong bài này:
https://www.giaiphapexcel.com/diendan/threads/ghi-dữ-liệu-vào-file-excel-đang-đóng.29068/
Sub RecData(FilPath As String)
On Error Resume Next
With New Scripting.FileSystemObject
With .GetFile(FilPath)
If InStr(.Name, ".xls") = 0 Then Exit Sub
With Workbooks.Open(.Path)
.Sheets(1).Range("A1") = ThisWorkbook.Sheets(1).Range("A1")
.Close (True)
End With
End With
End With
End Sub
'------------------------------------------------------------'
Sub Run()
On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
.Show
.AllowMultiSelect = False
Call RecData(.SelectedItems(1))
End With
End Sub
Qua quá trình chạy code, em thấy mỗi lần Code chỉ sửa và lưu 1 file đầu tiên, mặc dù chỉnh AllowMultiSelect = True thì nó vẫn thay đổi file đầu tiên trong folder đó.
Muốn thay đổi file khác lại phải chọn từng file 1, mất nhiều thời gian.
Em muốn các anh chị giúp:
1. Bây giờ em muốn nó tự động thay đổi tất cả các file trong folder đó thì sửa code thế nào ạ.
2. Thay vì chọn sheet 1 của file đang đóng, mình chọn sheet Active của file đang đóng (khi mở lên) thì sửa code trên thế nào ạ.
Mong các anh chị sửa giúp.
File ví dụ em đính kèm theo ạ.
Em cảm ơn nhiều ạ.
Em thấy code của anh ptlong04x1 trong bài này:
https://www.giaiphapexcel.com/diendan/threads/ghi-dữ-liệu-vào-file-excel-đang-đóng.29068/
Sub RecData(FilPath As String)
On Error Resume Next
With New Scripting.FileSystemObject
With .GetFile(FilPath)
If InStr(.Name, ".xls") = 0 Then Exit Sub
With Workbooks.Open(.Path)
.Sheets(1).Range("A1") = ThisWorkbook.Sheets(1).Range("A1")
.Close (True)
End With
End With
End With
End Sub
'------------------------------------------------------------'
Sub Run()
On Error Resume Next
With Application.FileDialog(msoFileDialogFilePicker)
.Show
.AllowMultiSelect = False
Call RecData(.SelectedItems(1))
End With
End Sub
Qua quá trình chạy code, em thấy mỗi lần Code chỉ sửa và lưu 1 file đầu tiên, mặc dù chỉnh AllowMultiSelect = True thì nó vẫn thay đổi file đầu tiên trong folder đó.
Muốn thay đổi file khác lại phải chọn từng file 1, mất nhiều thời gian.
Em muốn các anh chị giúp:
1. Bây giờ em muốn nó tự động thay đổi tất cả các file trong folder đó thì sửa code thế nào ạ.
2. Thay vì chọn sheet 1 của file đang đóng, mình chọn sheet Active của file đang đóng (khi mở lên) thì sửa code trên thế nào ạ.
Mong các anh chị sửa giúp.
File ví dụ em đính kèm theo ạ.
Em cảm ơn nhiều ạ.
Lần chỉnh sửa cuối:
