Nhờ các bạn sửa code lấy tên sheet từ file excel trong 1 folder

[quochung1012]

Chào ACE,

Trước mình có xin được 1 code lấy tên tên sheet của các file excel trong 1 folder.
Tuy nhiên, file này không lấy được tên các file đuôi Microsoft Excel Binary Worksheet (.xlsb)
Bạn nào biết sửa code giúp mình với nhé
Xin cảm ơn mọi người.

 

[Quang_Hải]

Chào ACE,

Trước mình có xin được 1 code lấy tên tên sheet của các file excel trong 1 folder.
Tuy nhiên, file này không lấy được tên các file đuôi Microsoft Excel Binary Worksheet (.xlsb)
Bạn nào biết sửa code giúp mình với nhé
Xin cảm ơn mọi người.

Code trong file vẫn đang hoạt động bình thường vì code được viết để lấy tất cả file excel từ xls, xlsx, xlsb...
Tuy nhiên mình xin mạn phép chủ đoạn code trên để sửa code sơ lại cho hiển thị cả tên file bên cạnh tên sheet để chứng minh cho bạn thấy code đang hoạt động bình thường.

 

[quochung1012]

Code trong file vẫn đang hoạt động bình thường vì code được viết để lấy tất cả file excel từ xls, xlsx, xlsb...
Tuy nhiên mình xin mạn phép chủ đoạn code trên để sửa code sơ lại cho hiển thị cả tên file bên cạnh tên sheet để chứng minh cho bạn thấy code đang hoạt động bình thường.

Xin cảm ơn bạn, trong 1 folder có 2 file excel, 1 file dạng xls thì vẫn cipy được sheet name ok, 1 file dạng binary thì ko nhận được bạn ạ. Ko biết sao nữa. Để mai đến cty mình đính kèm thêm file.

 

[huuthang_bd]

Muốn thử code thì mở một file trắng tinh lên rồi lưu lại dạng .xlsb để thử. File hiện hữu đang sử dụng thì có hàng tá nguyên nhân khiến code không hoạt động như mong muốn.

 

[quochung1012]

Code trong file vẫn đang hoạt động bình thường vì code được viết để lấy tất cả file excel từ xls, xlsx, xlsb...
Tuy nhiên mình xin mạn phép chủ đoạn code trên để sửa code sơ lại cho hiển thị cả tên file bên cạnh tên sheet để chứng minh cho bạn thấy code đang hoạt động bình thường.

Chào bạn,
Mình có att file ví dụ, Mình đã lưu vào 1 folder, nhưng chỉ nhận được file dạng xls. Bạn xem giúp mình nhé

 

[batman1]

Xin cảm ơn bạn, trong 1 folder có 2 file excel, 1 file dạng xls thì vẫn cipy được sheet name ok, 1 file dạng binary thì ko nhận được bạn ạ. Ko biết sao nữa. Để mai đến cty mình đính kèm thêm file.

Trên máy tôi code tìm thấy xlsx, xlsb và xls.

Nếu bạn không có được như mọi người thì hơi lạ. Thôi thì thử mò vậy, nhiều khi mèo mù vớ phải cá rán.

Trong Sub Main sửa

aFiles = FilesFoldersList(path, True, "*.xls", False)

thành

aFiles = FilesFoldersList(path, True, "*.xls*", False)
---------------
Cái này là cái gì?

Tôi không dịch sang tiếng Việt vì nó đập ngay vào mắt.

Đó là số nhiều. Danh từ số ít là cipa, cipka, cipunia, cipeczka.

 

[VetMini]

...---------------
Cái này là cái gì?

Tôi không dịch sang tiếng Việt vì nó đập ngay vào mắt.

Đó là số nhiều. Danh từ số ít là cipa, cipka, cipunia, cipeczka.

Cún tiềm sả ?

 

[batman1]

Cún tiềm sả ?

Không biết. Tôi không thạo tiếng Anh.

 

[VetMini]

Không biết. Tôi không thạo tiếng Anh.

Tiếng Việt viết tắt mờ bác. Cũng như Vịt Úp Lùa Về Ao vậy.

 

[quochung1012]

Cảm ơn mọi người.
Tôi cũng ngồi mò mẫm sau sửa như sau:

Trong Sub Main sửa

aFiles = FilesFoldersList(path, True, "*.xls", False)

thành

aFiles = FilesFoldersList(path, True, "*.xls*", False)

Vậy là nhận được hết các file excel

Cảm ơn mọi người đã giúp đỡ nhé