Hỏi về code trong excel để luôn ghi file với đuôi.xls

[nhunguyet0103]

Các bác chỉ giúp em với!
Ví dụ em có file như đính kèm, bây giờ em muốn tạo 1 nút: Xuất ra file excel 97-excel 2003 để luôn ghi lại file với đuôi là .xls ngay cả khi đang sử dụng word từ 2007 trở lên (vì phải chia sẻ cho nhiều đối tượng sử dụng Office 2003) thì em phải viết code như thế nào ạ? Thanks!

 

[Quang_Hải]

Các bác chỉ giúp em với!
Ví dụ em có file như đính kèm, bây giờ em muốn tạo 1 nút: Xuất ra file excel 97-excel 2003để luôn ghi lại file với đuôi là .xls ngay cả khi đang sử dụng word từ 2007 trở lên (vì phải chia sẻ cho nhiều đối tượng sử dụng Office 2003) thì em phải viết code như thế nào ạ? Thanks!

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

 

[VetMini]

Bạn nào biết code để câu hỏi về code thì luôn ghi trong góc "lập trinh với Excel" hôn ta?

 

[doveandrose]

Bạn nào biết code để câu hỏi về code thì luôn ghi trong góc "lập trinh với Excel" hôn ta?

theo khái niệm về lập trình thì cái gì có quy luật cái đó sẽ code được

 

[VetMini]

theo khái niệm về lập trình thì cái gì có quy luật cái đó sẽ code được

Đòi hỏi hơi nhiều. Hồi nào đến giờ bạn thấy có bao nhiêu bài mà khổ chủ hiểu về quy luật cuare vấn đề mình muốn? Đại đa số, nếu không muốn nói hầu hết, sau khi có giải đáp xong rồi khổ chủ mới nhận ra mình chưa hiểu rõ vẫn đề.

 

[nhunguyet0103]

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

Cảm ơn bác nhiều…nhiều!

 

[nhunguyet0103]

Bạn nào biết code để câu hỏi về code thì luôn ghi trong góc "lập trinh với Excel" hôn ta?

Cảm ơn bác đã nhắc nhở!