Excel VBA chuyển đổi html thành văn bản được định dạng

xin chào,

Tôi có một cột chứa tất cả văn bản thẻ html trong đó. Tôi muốn cột đó được sao chép vào một cột khác nhưng với văn bản có định dạng.

ô av11 =

Legwear size plus by Cette. Doorlopende, semitransparante panty met stippen, Lycra, versterkte tippen, platte naden. Verkrijgbaar in alle winkels en online.

Chào Wim
Chào mừng bạn đến với diễn đàn

Bài đăng của bạn khó hiểu vì html trong chuỗi đã được thông dịch.

Tôi nghĩ bạn muốn nói rằng những gì bạn có trong ô là.

ô av11 =

Legwear size plus by Cette. Doorlopende, semitransparante panty met stippen, Lycra, versterkte tippen, platte naden. Verkrijgbaar in alle winkels en online.

Hy vọng điều này sẽ giúp mọi người hiểu rõ hơn về vấn đề này.

Đề xuất. nếu bạn đang ở trong windows, tôi nghĩ bạn chỉ cần sao chép văn bản vào khay nhớ tạm của windows rồi dán vào ô.
Khi nào có thời gian, nếu vẫn chưa giải quyết được vấn đề này, tôi sẽ cố gắng đăng giải pháp.

vâng, ý tôi là vậy. Rất cảm kích nếu bạn có thể dành chút thời gian

pgc01 said.

Chào Wim
Chào mừng bạn đến với diễn đàn

Bài đăng của bạn khó hiểu vì html trong chuỗi đã được thông dịch.

Tôi nghĩ bạn muốn nói rằng những gì bạn có trong ô là.

ô av11 =

Legwear size plus by Cette. Doorlopende, semitransparante panty met stippen, Lycra, versterkte tippen, platte naden. Verkrijgbaar in alle winkels en online.

Hy vọng điều này sẽ giúp mọi người hiểu rõ hơn về vấn đề này.

Đề xuất. nếu bạn đang ở trong windows, tôi nghĩ bạn chỉ cần sao chép văn bản vào khay nhớ tạm của windows rồi dán vào ô.
Khi nào có thời gian, nếu vẫn chưa giải quyết được vấn đề này, tôi sẽ cố gắng đăng giải pháp.

Bấm để mở rộng

Xin chào

Mã này sao chép nội dung trong A1 vào khay nhớ tạm của windows rồi đưa nội dung đó trở lại ô B1.

Đặt tham chiếu thành. Biểu mẫu Microsoft 2. 0 Thư viện đối tượng

Mã.

Sub Test[]

With New DataObject
    .SetText Range["A1"].Value
    .PutInClipboard
End With
Range["B1"].PasteSpecial Format:="Unicode Text"
End Sub

bỏ qua
Phạm vi["B1"]. Dán Định dạng Đặc biệt. ="Văn bản Unicode"

có lỗi không thể tìm thấy đối số. "Định dạng. =" được chọn màu xanh lam

pgc01 said.

Xin chào

Mã này sao chép nội dung trong A1 vào khay nhớ tạm của windows rồi đưa nội dung đó trở lại ô B1.

Đặt tham chiếu thành. Biểu mẫu Microsoft 2. 0 Thư viện đối tượng

Mã.

Sub Test[]

With New DataObject
    .SetText Range["A1"].Value
    .PutInClipboard
End With
Range["B1"].PasteSpecial Format:="Unicode Text"
End Sub

Please test.

Bấm để mở rộng

Xin lỗi, hãy thử mà không có đối số.

Mã.

Range["B1"].PasteSpecial

nhưng. . khi tôi sử dụng pastespecial mà không có định dạng. = "uni. " Nó hoạt động như một say mê.

Vì vậy, Xin chân thành cảm ơn bạn.

woef20 đã nói.

bỏ qua
Phạm vi["B1"]. Dán Định dạng Đặc biệt. ="Văn bản Unicode"

có lỗi không thể tìm thấy đối số. "Định dạng. =" được chọn màu xanh lam

Bấm để mở rộng

Tôi rất vui vì nó đã giúp ích cho bạn.

Nhận xét.

Tại sao tôi đăng mã với đối số Định dạng.

Tôi đã thử lần đầu với phương thức PasteSpecial của trang tính, phương thức này hỗ trợ đối số Định dạng và nó hoạt động tốt.

Tuy nhiên, tôi không hài lòng với nó vì nó yêu cầu chọn ô mục tiêu.

Sau đó tôi đã thử nghiệm với phương pháp PasteSpecial của ô, cái này có ưu điểm là không yêu cầu chọn ô mục tiêu và nó hoạt động tốt, nhưng quên xóa đối số Định dạng trong bài viết.

nó hoạt động như một bùa mê. Vì vậy, xin chân thành cảm ơn bạn.

bạn có thể chuyển đổi phụ này thành một chức năng không? .

pgc01 said:

Xin lỗi, hãy thử mà không có đối số.

Mã.

Range["B1"].PasteSpecial

Bấm để mở rộng

woef20 anh ấy nói

bạn có thể chuyển đổi phụ này thành một hàm không?

Bấm để mở rộng