VBA chuyển từng Cell sang file html

[vanlinh105]

Em đang muốn chuyển từng Cell ra từng file html riêng thì có cách nào không các bác nhỉ? VD: nội dung của ô B2 sẽ xuất ra file html và tên tên là MS0001.html

 

[vanlinh105]

Em cảm ơn các bác, em làm được rồi ạ!

 

[vanlinh105]

Địa chỉ của bạn phải nằm trong dấu nháy kép nhé.

View attachment 256145

B2 ="<script> window.location.replace(""http://youdomain.com/" & A2 &"""); </script>" --> Kéo xuống nhé

Em có sửa lại như bác hướng dẫn thì chạy được rồi, nhưng với một nội dung khác thì chạy nó đang báo lỗi ở dòng "oFile.WriteLine cll".
Bác xem giúp em nội dung trong ô cần sửa lại thế nào cho đúng với ạ. Em cảm ơn!

 

[batman1]

nhưng với một nội dung khác thì chạy nó đang báo lỗi ở dòng "oFile.WriteLine cll".

Sửa

Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1))

thành

Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1), , True)

 

[vanlinh105]

Sửa

Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1))

thành

Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1), , True)

Em làm được rồi, em cảm ơn ạ