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

 

[Hai Lúa Miền Tây]

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
View attachment 255983

Không biết có phải như sau không:

Sub test()
    Dim fso As Object, cll As Range
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    For Each cll In Sheet1.Range("B2:B21")
        Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1))
        oFile.WriteLine cll
        oFile.Close
    Next
    Set fso = Nothing
    Set oFile = Nothing

End Sub

 

[vanlinh105]

Không biết có phải như sau không:

Sub test()
    Dim fso As Object, cll As Range
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    For Each cll In Sheet1.Range("B2:B21")
        Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1))
        oFile.WriteLine cll
        oFile.Close
    Next
    Set fso = Nothing
    Set oFile = Nothing

End Sub

Ý của em là sẽ xuất từng ô sang từng file.html ra 1 thư mục.
Như nội dung ở ô B2 sẽ xuất thành file MS0001.html và nội dung trong file MS0001.html chính là nội dung của ô B2.

 

[Hai Lúa Miền Tây]

Ý của em là sẽ xuất từng ô sang từng file.html ra 1 thư mục.
Như nội dung ở ô B2 sẽ xuất thành file MS0001.html và nội dung trong file MS0001.html chính là nội dung của ô B2.

Thì code trên làm như vậy mà bạn.

 

[vanlinh105]

Không biết có phải như sau không:

Sub test()
    Dim fso As Object, cll As Range
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim oFile As Object
    For Each cll In Sheet1.Range("B2:B21")
        Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\" & cll.Offset(, 1))
        oFile.WriteLine cll
        oFile.Close
    Next
    Set fso = Nothing
    Set oFile = Nothing

End Sub

E chạy code thì báo lỗi Run-time error '52': Bad file name or number bác ạ. bác hướng dẫn em cách chạy đúng được không ạ!

 

[befaint]

E chạy code thì báo lỗi Run-time error '52': Bad file name or number bác ạ. bác hướng dẫn em cách chạy đúng được không ạ!

Trên Windows 10, tắt chế độ bảo vệ không cho ghi file.
Hoặc với code đó thì chép file đó vào nơi khác.
Hoặc chỉnh lại
ThisWorkbook.Path & "\" & cll.Offset(, 1)
Thành
"D:\ThuMucABC\" & cll.Offset(, 1).value

 

[Hai Lúa Miền Tây]

E chạy code thì báo lỗi Run-time error '52': Bad file name or number bác ạ. bác hướng dẫn em cách chạy đúng được không ạ!

Bạn lưu file sang thư mục khác và chạy thử code lại xem sao nhé.

 

[vanlinh105]

Không biết em có làm sai ở đâu không nhỉ. nó chỉ xuất hiện 1 file đầu tiên và file trống rỗng.

 

[giaiphap]

Máy tôi chạy một phát ra thế này.

 

[vanlinh105]

Máy tôi chạy một phát ra thế này.
View attachment 256014

Bác chạy theo trình tự thế nào vậy

 

[vanlinh105]

Trên Windows 10, tắt chế độ bảo vệ không cho ghi file.
Hoặc với code đó thì chép file đó vào nơi khác.
Hoặc chỉnh lại
ThisWorkbook.Path & "\" & cll.Offset(, 1)
Thành
"D:\ThuMucABC\" & cll.Offset(, 1).value

"Trên Windows 10, tắt chế độ bảo vệ không cho ghi file." bác hướng dẫn em tắt cái này được không?

 

[befaint]

"Trên Windows 10, tắt chế độ bảo vệ không cho ghi file." bác hướng dẫn em tắt cái này được không?

Làm theo hình này nhé.

 

[vanlinh105]

Làm theo hình này nhé.

View attachment 256116

E có tắt hết rồi bác, các chương trình virus hay tường lửa cũng tắt hết rồi nhưng vẫn báo lỗi này

 

[befaint]

E có tắt hết rồi bác, các chương trình virus hay tường lửa cũng tắt hết rồi nhưng vẫn báo lỗi này
View attachment 256119

Sao bạn không gửi file đang làm lên đây.

 

[vanlinh105]

Sao bạn không gửi file đang làm lên đây.

File đây bác, nó giống file em gửi ban đầu ấy.

 

[befaint]

File đây bác, nó giống file em gửi ban đầu ấy.

File chứa code ấy. Xlsx thì sao có code được.

 

[vanlinh105]

File chứa code ấy. Xlsx thì sao có code được.

File chứa code đây bác.

 

[befaint]

File chứa code đây bác.

Chạy bình thường mà.

Chắc bạn phải nhờ ai đó vào máy tính kiểm tra thôi.

---
Lần sau chèn Module rồi chép code vào đó.

 

[batman1]

File chứa code đây bác.

1. Bạn chạy từng dòng xem lỗi ở đâu.

2. Hơi bị lạ nhưng thử viết tường minh xem sao. Không biết sai chỗ nào nên cứ mò bừa thôi.

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

hoặc

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

3. Trong thư mục "C:\" tạo thư mục con test -> Đặt tập tin Book1.xlsm trong thư mục test -> mở Book1.xlsm và chạy code.

 

[Hai Lúa Miền Tây]

file trống rỗng.

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



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