Xuất thông tin từ word sang excel

[KhoiSMC]

Hi Siwtom,

Mình đang áp dụng code chuẩn cuối cùng của bạn tại bài #19 và điều chỉnh một chút với mục đích là các text có màu cùng nhau sẽ được nhập vào một dòng và cách nhau bởi dấu ", " (bạn có biểu diễn tại bài #11).

Else
'           mau da ton tai, ta doc ra chi so cot trong mang ket qua cua mau do
            k = dic.item(colors(rngTemp.HighlightColorIndex - 1))
'           them text moi vao text cu co cung mau
            result(2, k) = result(2, k) & ", " & Trim(rngTemp.text)
End If

Nhưng nó bị thiếu các kết quả, bạn có thể giúp mình gỡ rối phần này được không ạ?
Mình đã áp dụng code của bạn tại bài #11 và #19 đưa vào tập tin word1rev.doc rồi, bạn download tại file đính kèm nhé.

Cám ơn bạn nhiều.
Khoi

 

[siwtom]

Hi Siwtom,

Mình đang áp dụng code chuẩn cuối cùng của bạn tại bài #19 và điều chỉnh một chút với mục đích là các text có màu cùng nhau sẽ được nhập vào một dòng và cách nhau bởi dấu ", " (bạn có biểu diễn tại bài #11).

Else
'           mau da ton tai, ta doc ra chi so cot trong mang ket qua cua mau do
            k = dic.item(colors(rngTemp.HighlightColorIndex - 1))
'           them text moi vao text cu co cung mau
            result(2, k) = result(2, k) & ", " & Trim(rngTemp.text)
End If

Nhưng nó bị thiếu các kết quả, bạn có thể giúp mình gỡ rối phần này được không ạ?
Mình đã áp dụng code của bạn tại bài #11 và #19 đưa vào tập tin word1rev.doc rồi, bạn download tại file đính kèm nhé.

Cám ơn bạn nhiều.
Khoi

Bạn không biết mình muốn gì?

Khi tôi gộp các chuỗi thành một ô như bạn dự định ban đầu thì bạn muốn có mỗi chuỗi một ô riêng. Khi tôi cho mỗi chuỗi một ô riêng thì bạn lại muốn gộp.

Tôi làm cho bạn lần cuối cùng. Sẽ không có lần nào nữa.

 

[KhoiSMC]

hì, mình mới tập tọe VBA nên trình độ chưa đủ để chỉnh code của bạn, hic làm mất thời gian của bạn quá.
Mình sẽ tự học và phát triển tiếp để còn hỗ trợ các bạn khác trên GPE nữa.

Cám ơn bạn nhiều nhé.
Khoi