Hướng dẫn excel convert text to html - excel chuyển đổi văn bản sang html

CSV là một định dạng chỉ có văn bản. Các thuộc tính phông chữ, phá vỡ dòng trong các ô, vv không được giữ lại. Không rõ làm thế nào bạn mong đợi để có được HTML ở định dạng CSV - cả hai là các định dạng tệp hoàn toàn khác nhau. Nếu bạn muốn đưa các thẻ HTML vào đầu ra CSV, bạn cần thêm chúng vào dữ liệu trước khi lưu dưới dạng CSV.

CSV là một định dạng chỉ có văn bản. Các thuộc tính phông chữ, phá vỡ dòng trong các ô, vv không được giữ lại. Không rõ làm thế nào bạn mong đợi để có được HTML ở định dạng CSV - cả hai là các định dạng tệp hoàn toàn khác nhau. Nếu bạn muốn đưa các thẻ HTML vào đầu ra CSV, bạn cần thêm chúng vào dữ liệu trước khi lưu dưới dạng CSV.

Đúng rồi!

Có cách chạy tập lệnh hoặc một cái gì đó có thể tự động thêm các thẻ đó không? Tất cả những gì tôi cần là khoảng cách dòng
All i basically need is line spacing

Excel là một bảng tính, nó không phải là một công cụ thiết kế web.

Bạn đã thử lưu dưới dạng trang web chưa

Mã số:

Sub exportCSV[]

Dim rng1 As Range
Dim rng2 As Range

' exclude column headers
Set rng1 = Range["A2:B10"]
 
Open ActiveWorkbook.Path & "\Export.csv" For Output As #1
 
For Each rng2 In rng1
  Print #1, rng2.Value
Next
 
Close #1

End Sub

Bảng tính trông giống như:

Đầu ra là tệp CSV:

Đầu ra là tệp CSV:

Mã số:
All i basically need is line spacing

Bảng tính trông giống như:

Mã số:

Sub Demo[]
Application.ScreenUpdating = False
Dim xlCell As Range
For Each xlCell In ActiveSheet.UsedRange.Cells
  With xlCell
    If InStr[.Text, Chr[10]] > 0 Then
      .Value = Replace[.Text, Chr[10], "< br >"]
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Bảng tính trông giống như: I've had to insert spaces either side of 'br' because of the way the forum software handles the raw tags - remove those spaces before running the macro!

Mã số:

Bảng tính trông giống như:

Sub Demo[]
Application.ScreenUpdating = False
Dim xlCell As Range
For Each xlCell In ActiveSheet.UsedRange.Cells
  With xlCell
    If InStr[.Text, Chr[10]] > 0 Then
      .Value = Replace[.Text, Chr[10], "
"]
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

TÊN

TUỔI TÁC

Bob

Susan

Jim

Carol

MANG

JOHN

THỢ RÈN

TÁO

Đầu ra là tệp CSV:

Xem nếu bạn có thể sử dụng điều này như một điểm khởi đầu.

Mã số:

Industry Specification< br >< br >A5.1 E 6011< br >< br >Features< br >< br >< br >< br >-Fast freezing weld metal< br >< br >-Thin flux coating< br >< br >-Deep, forceful arc< br >< br >-Versatile electrode

Bảng tính trông giống như:

Mã số:

Bảng tính trông giống như:

Set rng1 = Range["A2:B10"]

TÊN

Bảng tính trông giống như:

Set rng1 = Range["A2:A10"]

Mã số:

Bảng tính trông giống như:

Sub Demo[]
Application.ScreenUpdating = False
Dim xlCell As Range
For Each xlCell In ActiveSheet.UsedRange.Cells
  With xlCell
    If InStr[.Text, Chr[10]] > 0 Then
      .Value = Replace[.Text, Chr[10], "< br >"]
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

TÊN I've had to insert spaces either side of 'br' because of the way the forum software handles the raw tags - remove those spaces before running the macro!

TUỔI TÁC

Bob

Susan