Chừng nào Excel có thể mở tệp, chức năng thay đổi định dạng của tệp đã mở được tích hợp.
Để chuyển đổi tệp .html, hãy mở nó bằng Excel [Tệp - Mở] và sau đó lưu nó dưới dạng tệp .xlsx từ Excel [Tệp - Lưu dưới dạng].
Để làm điều đó bằng VBA, mã sẽ trông như thế này:
Sub Open_HTML_Save_XLSX[]
Workbooks.Open Filename:="C:\Temp\Example.html"
ActiveWorkbook.SaveAs Filename:= _
"C:\Temp\Example.xlsx", FileFormat:= _
xlOpenXMLWorkbook
End Sub
- Lời khuyên Excel
- Chức năng Excel
- Công thức Excel
- Biểu đồ Excel
- Lời khuyên từ
- Lời khuyên Outlook
Như ảnh chụp màn hình dưới đây được hiển thị, nếu số lượng thẻ HTML hiện có trong các ô bảng tính của bạn, làm thế nào bạn có thể chuyển đổi chúng thành văn bản đơn giản trong Excel? Bài viết này sẽ cho bạn thấy hai phương pháp để xóa tất cả các thẻ HTML khỏi các ô trong Excel.
Chuyển đổi HTML thành văn bản trong các ô đã chọn bằng tìm và thay thế chức năng Chuyển đổi HTML thành văn bản trong toàn bộ bảng tính bằng VBA
Convert html to text in the whole worksheet with VBA
Chuyển đổi HTML thành văn bản trong các ô bằng chức năng tìm và thay thế chức năng
Bạn có thể chuyển đổi tất cả HTML thành các văn bản trong các ô bằng chức năng tìm và thay thế trong Excel. Xin vui lòng làm như sau.Find and Replace function in Excel. Please do as follows.
1. Chọn các ô bạn sẽ chuyển đổi tất cả HTML thành văn bản và nhấn các phím Ctrl + F để mở hộp thoại Tìm và thay thế.Ctrl + F keys to open the Find and Replace dialog box.
2. Trong hộp thoại Tìm và thay thế, đi đến tab Thay thế, nhập vào Tìm hộp nào, giữ cho hộp thay thế với trống và nhấp vào nút Thay thế tất cả. Xem ảnh chụp màn hình: Find and Replace dialog box, go to the Replace tab, enter into the Find what box, keep the Replace with box empty, and click the Replace All button. See screenshot:
3. Sau đó, hộp thoại Microsoft Excel bật lên để cho bạn biết có bao nhiêu thẻ HTML đã được thay thế, nhấp vào nút OK và đóng hộp thoại Tìm và thay thế.Microsoft Excel dialog box pops up to tell you how many html tags have been replaced, click the OK button and close the Find and Replace dialog box.
Sau đó, bạn có thể thấy tất cả các thẻ HTML được xóa khỏi các ô được chọn như ảnh chụp màn hình dưới đây được hiển thị.
Chuyển đổi HTML thành văn bản trong toàn bộ bảng tính với VBA
Ngoài ra, bạn có thể chuyển đổi tất cả HTML thành văn bản trong toàn bộ bảng tính cùng một lúc với mã VBA dưới đây.
1. Mở bảng tính chứa HTML Bạn sẽ chuyển đổi thành văn bản, sau đó nhấn các phím ALT + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. Trong cửa sổ Microsoft Visual Basic cho các ứng dụng, nhấp vào Chèn> Mô -đun, sau đó sao chép bên dưới mã VBA vào cửa sổ Mô -đun.Microsoft Visual Basic for Applications window, click Insert > Module, then copy below VBA code into the Module window.
Mã VBA: Chuyển đổi HTML thành văn bản trong toàn bộ bảng tính
Sub RemoveHTMLTags[]
'Update by Extendoffice 20180703
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim xRegEx As RegExp
Dim xMatch As Match
Dim xMatches As MatchCollection
Set xRegEx = New RegExp
Application.EnableEvents = False
Set xRg = Cells.SpecialCells[xlCellTypeConstants]
With xRegEx
.Global = True
.Pattern = "]]*>"
End With
For Each xCell In xRg
xStr = xCell.Value
Set xMatches = xRegEx.Execute[xCell.Text]
For Each xMatch In xMatches
xStr = Replace[xStr, xMatch.Value, ""]
Next
xCell.Value = xStr
Next
Application.EnableEvents = True
End Sub
3. Vẫn trong cửa sổ Microsoft Visual Basic for Ứng dụng, vui lòng nhấp vào Công cụ> Tài liệu tham khảo, chọn tùy chọn Biểu thức thông thường Microsoft VBScript 5.5 trong hộp thoại Tham khảo-VBAPROVENT, sau đó nhấp vào nút OK.Microsoft Visual Basic for Applications window, please click Tools > References, check the Microsoft VBScript Regular Expression 5.5 option in the References-VBAProject dialog box, and then click the OK button.
4. Nhấn phím F5 hoặc nhấp vào nút chạy để chạy mã.F5 key or click the Run button to run the code.
Sau đó, tất cả các thẻ HTML được xóa khỏi toàn bộ bảng tính ngay lập tức.
Những bài viết liên quan:
- Làm thế nào để chuyển đổi khối lượng được lưu trữ dưới dạng văn bản thành các số trong Excel?
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%
- Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
- Thanh siêu công thức [dễ dàng chỉnh sửa nhiều dòng văn bản và công thức]; Đọc bố cục [dễ dàng đọc và chỉnh sửa số lượng lớn các ô]; Dán vào phạm vi được lọc ... [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; Kết hợp các hàng/cột trùng lặp ... Ngăn chặn các ô trùng lặp; So sánh phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
- Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống [tất cả các ô trống]; Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng các sơ đồ lọc cho các bảng khác]; Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp sách bài tập và bảng tính; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều
- Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!
Comments[2] [2]
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!