Thủ tục duyệt file theo đúng thứ tự (1 người xem)

[baucua]

Nhờ các bạn viết 1 thủ tục(code) duyệt file theo đúng thứ tự :
Giả sử ta có các workbooks như sau : 001-TranVanA.xls, 002-NguyenAnB.xls,.....,nnn-CaoKyZ.xls
Làm thế nào thủ tục(code) có thể biết và duyệt chính xác các file theo đúng thứ tự ta đã đánh số 001==>nnn.
Tức là theo tuần tự:
Mở file 001==> Copy dữ liệu ==> đóng file lại
Mở file 002==> Copy dữ liệu ==> đóng file lại
.......................................................................
Mở file nnn==> Copy dữ liệu ==> đóng file lại

Cám ơn nhiều.

 

[ndu96081631]

Nhờ các bạn viết 1 thủ tục(code) duyệt file theo đúng thứ tự :
Giả sử ta có các workbooks như sau : 001-TranVanA.xls, 002-NguyenAnB.xls,.....,nnn-CaoKyZ.xls
Làm thế nào thủ tục(code) có thể biết và duyệt chính xác các file theo đúng thứ tự ta đã đánh số 001==>nnn.
Tức là theo tuần tự:
Mở file 001==> Copy dữ liệu ==> đóng file lại
Mở file 002==> Copy dữ liệu ==> đóng file lại
.......................................................................
Mở file nnn==> Copy dữ liệu ==> đóng file lại

Cám ơn nhiều.

Theo cách đặt tên file như trên thì đương nhiên nó sẽ duyệt theo thứ tự 001, 002.... đến nnn rồi ---> Chẳng lẽ khác sao?
Thủ tục để duyệt file thì thiếu gì ---> Application.FileSearch chẳng hạn
Ngoài ra trên GPE này cũng đã đăng rất nhiều cách khác nữa (tìm trước đi)

 

[baucua]

Vâng E cũng nghĩ vậy vì E đã cố tình đặt tên file như vậy.
Nhưng khi E thực hiện trên máy E thì không sao, sang máy mấy đứa bạn nó duyệt toàn theo thứ tự ko theo ý
toàn thực hiện nnn.xls trước rồi tiếp tục 002.xls cuối cùng mới duyệt đến 001.xls.
Ko hiểu tại sao, bác xem hộ code này có vấn đề gì ko ?

Sub Update()
Dim FolderName As String, wbName As String
Dim t As Integer, m As Integer
FolderName = "D:\HKT\"
wbName = Dir(FolderName & "\" & "*.xls")
Application.ScreenUpdating = False
'Xoa du lieu sheet update
Sheets("Update").Select
Range("A1:DS2000").ClearContents
While wbName <> ""
If wbName <> "Report04.xls" Then
Workbooks.Open wbName
Sheets(13).Activate: Cells(3, 1)
Selection.CurrentRegion.Select
t = Selection.Rows.Count
Selection.Copy
Windows(wbName).Visible = False
Windows("Report04.xls").Activate
Sheets("Update").Select
Cells(3 + m, 1).Select
ActiveSheet.Paste
m = t + m
Application.DisplayAlerts = False
Workbooks(wbName).Close
End If
wbName = Dir
Wend
Sheets("Report01").Select
Cells(3, 2).Select
Application.ScreenUpdating = True
End Sub

 

[baucua]

Cuối cùng E đã phát hiện do lỗi chương trình Excel, để giải quyết trong trường hợp này E đành
dùng phương pháp chấp nhận ghép các files duyệt file ko theo thứ tự vào 1 sheets chung sau đó tìm lọc theo điều kiện.
Bài toán đã được giải quyết.
Nhân đây cho xin gửi lời cám ơn đến các bạn trên GPE, diễn đàn này thật bổ ích.
Thank