Lấy kiểu File vào ComboBox bằng VBA

[Thanh Bình PV]

Em đang viết VBA cho phần mềm khác..Trong 1 file sẽ có nhiều file nhỏ. Và e muốn lưu với nhiều định dạng khác nhau nhưng vẫn chưa có cách lấy kiểu file trong save as nên em muốn dựa theo cách lấy file bên excel để thay đổi cho phù hợp với phần mềm này. (phần mềm thiết kế Inventor)

Yêu cầu: Em muốn lấy toàn bộ kiểu file trong save as của excel vào comboBox. ( .xlsx, .xlsm, .xlsb,...)
Bác nào giúp em với ạ. Em cảm ơn.

 

[Quang_Hải]

Em đang viết VBA cho phần mềm khác..Trong 1 file sẽ có nhiều file nhỏ. Và e muốn lưu với nhiều định dạng khác nhau nhưng vẫn chưa có cách lấy kiểu file trong save as nên em muốn dựa theo cách lấy file bên excel để thay đổi cho phù hợp với phần mềm này. (phần mềm thiết kế Inventor)

Yêu cầu: Em muốn lấy toàn bộ kiểu file trong save as của excel vào comboBox. ( .xlsx, .xlsm, .xlsb,...)
Bác nào giúp em với ạ. Em cảm ơn.
View attachment 234351

Excel chỉ có 4 dạng save as phổ thông thì lấy tất cả vào để làm gì
Tham khảo mấy dòng lệnh này xem coi có chế biến gì được hay không nha. Để ý các con số 18, 50, 51, 52

ActiveWorkbook.SaveAs Path & "\test1", 18 'save file as .xls format
ActiveWorkbook.SaveAs Path & "\test2", 51 'save file as .xlsx format
ActiveWorkbook.SaveAs Path & "\test3", 52 'save file as .xlsm format
ActiveWorkbook.SaveAs Path & "\test4", 50 'save file as .xlsb format

 

[Thanh Bình PV]

Excel chỉ có 4 dạng save as phổ thông thì lấy tất cả vào để làm gì
Tham khảo mấy dòng lệnh này xem coi có chế biến gì được hay không nha. Để ý các con số 18, 50, 51, 52

ActiveWorkbook.SaveAs Path & "\test1", 18 'save file as .xls format
ActiveWorkbook.SaveAs Path & "\test2", 51 'save file as .xlsx format
ActiveWorkbook.SaveAs Path & "\test3", 52 'save file as .xlsm format
ActiveWorkbook.SaveAs Path & "\test4", 50 'save file as .xlsb format

Em chỉ tham khảo để tùy biến lại mã cho phù hợp với phần mềm khác mà em đang viết VBA ạ.

 

[ongke0711]

Em đang viết VBA cho phần mềm khác..Trong 1 file sẽ có nhiều file nhỏ. Và e muốn lưu với nhiều định dạng khác nhau nhưng vẫn chưa có cách lấy kiểu file trong save as nên em muốn dựa theo cách lấy file bên excel để thay đổi cho phù hợp với phần mềm này. (phần mềm thiết kế Inventor)

Yêu cầu: Em muốn lấy toàn bộ kiểu file trong save as của excel vào comboBox. ( .xlsx, .xlsm, .xlsb,...)
Bác nào giúp em với ạ. Em cảm ơn.
View attachment 234351

Bạn xem các tham số Save As của Excel trong link này:https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

 

[Thanh Bình PV]

Bạn xem các tham số Save As của Excel trong link này:https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

Em cảm ơn. Nhưng như vậy thì em không thể tùy biến sử dụng cho phần mềm của em được.

 

[thuyyeu99]

Em đang viết VBA cho phần mềm khác..Trong 1 file sẽ có nhiều file nhỏ. Và e muốn lưu với nhiều định dạng khác nhau nhưng vẫn chưa có cách lấy kiểu file trong save as nên em muốn dựa theo cách lấy file bên excel để thay đổi cho phù hợp với phần mềm này. (phần mềm thiết kế Inventor)

Yêu cầu: Em muốn lấy toàn bộ kiểu file trong save as của excel vào comboBox. ( .xlsx, .xlsm, .xlsb,...)
Bác nào giúp em với ạ. Em cảm ơn.
View attachment 234351

Bạn phải nói cụ thể từ cái gì để save as mới có hướng chứ có dụ từ string, array, record

 

[Thanh Bình PV]

Bạn phải nói cụ thể từ cái gì để save as mới có hướng chứ có dụ từ string, array, record

Em chỉ cần lấy kiểu file của save as thôi. còn về cái gì để save as thì em nghĩ không cần thiết.

 

[thuyyeu99]

Trời nếu của excel chịu khó gõ ra rồi add vào combobox khong biết đúng ý bạn không hên xui nhé hihihj