Lỗi 5854 khi sử dụng vba

[trangntt.0702]

Mong các bạn giúp mình với ạ.
Mình sử dụng code VBA chuyển dữ liệu từ excel sang word nhưng gặp 3 vấn đề:
1. Sang word bị mất định dạng. Ví dụ 80% thì word hiển thị 0.8, number như 123.456 sang word thành 123456
2. Cell > 255 ký tự không replace được
3. Mình chưa biết cách chèn ảnh tự động sang file word
Tha thiết mong các anh chị em chỉ giúp, chứ em mò cả tuần nay k khắc phục được

 

[ongke0711]

Mong các bạn giúp mình với ạ.
Mình sử dụng code VBA chuyển dữ liệu từ excel sang word nhưng gặp 3 vấn đề:
1. Sang word bị mất định dạng. Ví dụ 80% thì word hiển thị 0.8, number như 123.456 sang word thành 123456
2. Cell > 255 ký tự không replace được
3. Mình chưa biết cách chèn ảnh tự động sang file word
Tha thiết mong các anh chị em chỉ giúp, chứ em mò cả tuần nay k khắc phục được

Bạn tham khảo code trong bài này. Link: https://www.giaiphapexcel.com/diend...sang-word-mở-rộng-phiên-bản-ongke0711.160857/

 

[trangntt.0702]

Bạn tham khảo code trong bài này. Link: https://www.giaiphapexcel.com/diendan/threads/trộn-dữ-liệu-từ-excel-sang-word-mở-rộng-phiên-bản-ongke0711.160857/

Bạn ơi,
Đoạn code trộn dữ liệu giữ nguyên format và tránh lỗi 255 ký tự, có phải đoạn này không ạ:

Function Clipboard(Optional StoreText As String) As String
'/Ghi/doc text vào Clipboard. Dùng doi tuong HTMLFile
'/Hoat dong tren 32/64 bit

Dim x As Variant
x = StoreText 'dùng string se báo loi setData
With CreateObject("htmlfile")
With .parentWindow.clipboardData
Select Case True
Case Len(StoreText)
.setData "text", x 'Ghi vào clipboard
Case Else 'Khi khong có tham so
Clipboard = .GetData("text") 'Doc tu clipboard.
End Select
End With
End With
End Function

Function getFontInfo(Rng As Range, Optional iType As Integer)
' iType: 1 - Name, 2- Size
Application.Volatile
If iType = 2 Then
getFontInfo = Rng.Font.Size
Else
getFontInfo = Rng.Font.Name
End If
End Function

 

[trangntt.0702]

Bạn tham khảo code trong bài này. Link: https://www.giaiphapexcel.com/diendan/threads/trộn-dữ-liệu-từ-excel-sang-word-mở-rộng-phiên-bản-ongke0711.160857/

Bạn ơi, mình gặp vấn đề với code của bạn là: mình nhập dữ liệu bằng tay thì chạy ok, nhưng nếu cell dữ liệu được công thức lấy dữ liệu từ sheet khác thì khi hiển thị ra word lại là dạng công thức, chứ không phải giá trị dữ liệu.
Có cách nào khắc phục không ạ

 

[ongke0711]

Bạn ơi, mình gặp vấn đề với code của bạn là: mình nhập dữ liệu bằng tay thì chạy ok, nhưng nếu cell dữ liệu được công thức lấy dữ liệu từ sheet khác thì khi hiển thị ra word lại là dạng công thức, chứ không phải giá trị dữ liệu.
Có cách nào khắc phục không ạ

Tôi chưa làm vụ này nên chưa biết nha bạn. Trước mắt thì cứ paste value vào bảng dữ liệu merger thôi.