Tổng hợp dữ liệu từ nhiều file (1 người xem)

[hungdiep85]

Chào các Anh/Chị

Coi giúp em file tổng hợp dữ liệu từ nhiều file. Không hiểu sao code của file (TongHop) vẫn chạy tốt. Nêu file (File1-Chitiet) không có đang mở. Còn nếu file (File1-Chitiet) đang mở mà chạy code bên file (TongHop) thì lại báo lỗi.

Mong đuọc các Anh/Chị giúp giùm em với

 

[sealand]

Mình cho bạn 1 hàm kiểm tra nếu file đó đang mở thì thôi đừng mở nữa:

Function Esist_WB(Name As String) As Boolean
Dim Wb As Workbook
On Error Resume Next
Set Wb = Workbooks(Name)
Esist_WB = Not Wb Is Nothing
End Function

Mình không sửa vào file được vì mình dùng Exc2003

 

[hungpecc1]

Chào các Anh/Chị

Coi giúp em file tổng hợp dữ liệu từ nhiều file. Không hiểu sao code của file (TongHop) vẫn chạy tốt. Nêu file (File1-Chitiet) không có đang mở. Còn nếu file (File1-Chitiet) đang mở mà chạy code bên file (TongHop) thì lại báo lỗi.

Mong đuọc các Anh/Chị giúp giùm em với

sửa chỗ này :
sAddress = "A2:J1000000"
Thành :sAddress = "A:J"
hoặc sAddress = "A2:J65536"
===>Bạn lưu ý : access , khác excel

 

[hungdiep85]

Có Anh Chị nào giúp em với ,

 

[hungdiep85]

Mình cho bạn 1 hàm kiểm tra nếu file đó đang mở thì thôi đừng mở nữa:

Function Esist_WB(Name As String) As Boolean
Dim Wb As Workbook
On Error Resume Next
Set Wb = Workbooks(Name)
Esist_WB = Not Wb Is Nothing
End Function

Mình không sửa vào file được vì mình dùng Exc2003

Em Đổi thành Exc2003 rồi àh

Em cảm ơn nhiều

 

[nmhung49]

Có Anh Chị nào giúp em với ,

Mình chưa test lại code ADO tại sao bị lỗi khi mở file nữa như có thể thêm đoạn code kiểm tra sự tồn tại của file bạn thử kiểm tra lại xem có bị lỗi không!

 

[nmhung49]

code vẫn chạy tốt nếu file(File1-Chitiet) không mổ ,
còn nếu mở file (File1-Chitiet) thì báo lổi....
Cảm ơn nhiều

Bạn chạy lại file của mình có bị lỗi nữa không mà ADO mặc định sẽ không bị lỗi cho dù có mở file hay không sao code trong file bạn bị lỗi mình đã tìm hiểu xem sao

 

[hungdiep85]

Bạn chạy lại file của mình có bị lỗi nữa không mà ADO mặc định sẽ không bị lỗi cho dù có mở file hay không sao code trong file bạn bị lỗi mình đã tìm hiểu xem sao

Dạ em đã chạy file của Anh rồi, vẫn báo lổi Anh àh.
Cảm ơn nhiều

Báo lổi
Run-time error 9
Subscript out of range

 

[nmhung49]

Sao mình test ở nhiều máy vẫn không bị lỗi cho dù mở hay không mở, tải file mình xuống giải nén trong cùng 1 thư mục mở file Tổng hợp lên đồng thời mở file chi tiết lên luôn test lại xem trong trường hợp file chi tiết đóng thì ok không?

 

[hungpecc1]

Dạ em đã chạy file của Anh rồi, vẫn báo lổi Anh àh.
Cảm ơn nhiều

Báo lổi
Run-time error 9
Subscript out of range

==> Mình chắc chắn code này không phải bạn viết , bạn sưu tầm ở đâu đó,( và bạn không hiểu những khải niệm cơ bản trong code) <--- vì nếu hiểu được ,bạn chỉ cần làm theo hướng dẫn của tôi ở bài #3 là ok hết !
* trong excel đối với vài trường hợp , ADODB chỉ làm việc với vùng dữ liệu từ 1:65536 dòng thôi

 

[hungdiep85]

==> Mình chắc chắn code này không phải bạn viết , bạn sưu tầm ở đâu đó,( và bạn không hiểu những khải niệm cơ bản trong code) <--- vì nếu hiểu được ,bạn chỉ cần làm theo hướng dẫn của tôi ở bài #3 là ok hết !
* trong excel đối với vài trường hợp , ADODB chỉ làm việc với vùng dữ liệu từ 1:65536 dòng thôi

Dạ đúng Anh àh, Code này em sưu tầm của Thầy (ndu96081631).
Em có sửa theo bài 3 của anh, Thành :sAddress = "A:J"
nhưng em lại không lấy tiêu đề, em nhìn sAddress = "A2:J65536", thì nghĩ sAddress = "A2:J1000000" như nhau (nhiều hàng sẽ tốt hơn), Giờ em hiểu rồi.
Sửa lại thành sAddress = "A2:J65536" thì không bị lổi nữa rồi.

Em rất rất là CẢM ƠN các Anh nhiều lám.

 

[hungdiep85]

==> Mình chắc chắn code này không phải bạn viết , bạn sưu tầm ở đâu đó,( và bạn không hiểu những khải niệm cơ bản trong code) <--- vì nếu hiểu được ,bạn chỉ cần làm theo hướng dẫn của tôi ở bài #3 là ok hết !
* trong excel đối với vài trường hợp , ADODB chỉ làm việc với vùng dữ liệu từ 1:65536 dòng thôi

Có cách nào không mở file read only lên không các Anh.
Giờ 2 file (TongHop & File1-Chitiet) điều mở chạy code không còn báo lổi nữa, nhưng sao giờ nó lại mở thêm 1 file [Read Only] của file File1-Chitiet khi 2 file điều mở.


Em CẢM ƠN các Anh

 

[hungdiep85]

Có cách nào không mở file read only lên không các Anh.

Giờ 2 file (TongHop & File1-Chitiet) điều mở chạy code không còn báo lổi nữa, nhưng sao giờ nó lại mở thêm 1 file [Read Only] của file File1-Chitiet khi 2 file điều mở.


Em CẢM ƠN các Anh

 

[nmhung49]

Đóng excel lại toàn bộ xem sao, mình đã test không bị trường hợp này phải chi bạn quay film lại hoặc chụp hình xem sao đã kiểm tra trên 2007,2010,2013 vẫn không bị lỗi với folder ở bài 13

 

[hungdiep85]

Đóng excel lại toàn bộ xem sao, mình đã test không bị trường hợp này phải chi bạn quay film lại hoặc chụp hình xem sao đã kiểm tra trên 2007,2010,2013 vẫn không bị lỗi với folder ở bài 13

Dạ.
Bên trái là file TongHop
Bên phải là file File1-Chitiet

khi chạy code bên file TongHop, thì bên trái lại mở thêm 1 file File1-Chitiet read only nữa,

Có cách nào không mở file read only lên không Anh.

Em CẢM ƠN nhiều àh

 

[hangsf2]

Chào bạn,
Đoạn code này mình copy ra từ Record macro, khong hieu sau khi H xóa và Run macro lại thì lại báo lỗi (Dòng cuối cùng), bạn xem giúp. (Lỗi "9" Subscript out of range), Cảm ơn bạn. (Copy range từ file..xls sang range file.xlsx).

Windows("HOCMON.xls").Activate    
Range("A1").Select    
Range(Selection, Selection.End(xlDown)).Select 
   Range(Selection, Selection.End(xlToRight)).Select    
Selection.Copy    [/FONT][/COLOR][COLOR=#ff0000][FONT=lucida grande]
Windows("DII Materials daily report daily.xlsx").Activate[/FONT][/COLOR]

 

[nmhung49]

Dạ.
Bên trái là file TongHop
Bên phải là file File1-Chitiet

khi chạy code bên file TongHop, thì bên trái lại mở thêm 1 file File1-Chitiet read only nữa,

Có cách nào không mở file read only lên không Anh.

Em CẢM ƠN nhiều àh

Sao lạ quá mình test thì không gặp trường hợp đó readonly có thể ADO bị lỗi khi mở lên mà không đóng file thì khi mở lại file đó sẽ bị read only các câu lệnh trên theo mình là đã chuẩn không biết trên diễn đàn có ai test bị lỗi giống bạn không?