Hướng dẫn convert excel cell content to html - chuyển đổi nội dung ô excel sang html

• Xóa khỏi các diễn đàn của tôi

• Câu hỏi

• Chào mọi người,

  Bối cảnh: Tôi đang viết một tập lệnh tải lên một số trường hợp thử nghiệm được viết bằng Excel vào Trung tâm chất lượng. Đối với những người quen thuộc với QC Excel Addin, kịch bản này sẽ làm một công việc khá giống nhau ngoại trừ việc giảm các bước liên quan. Tôi đang sử dụng Office 2007 Chạy & NBSP; trên Win 7 Pro. I am writing a script that uploads some test cases written in excel into Quality Center. For those who are familiar with the QC Excel Addin, this script would do a pretty similar job except for reducing the steps involved. I'm using Office 2007 running on Win 7 Pro.

  Cần: Tôi có một tình huống trong đó nội dung của một ô Excel được định dạng cần được chuyển đổi thành các thẻ HTML đại diện cho cùng một formattin trong ô Excel. Ví dụ: một ô liên kết văn bản: "Xác minh nếu các chủ đề trợ giúp trong phần Macro được liên kết" I have a situation where the contents of a formatted excel cell need to be converted to HTML tags representing the same formattin in the excel cell. For example a cell containg the text: "Verify if help topics in Macro section are hyperlinked" should be converted to

  Verify if help topics in Macro section are hyperlinked 
  
    
  
  

  Câu hỏi: Có một chức năng sẵn có trong Excel/Vban hoàn thành điều này không? Hay là một macro được yêu cầu? Bất kỳ ý tưởng khác để thực hiện điều này? Is there an inbuilt function in Excel/VBAn accomplish this? Or is a macro required? Any other ideas to accomplish this?

  Lưu ý: Bất cứ điều gì & nbsp; được sử dụng để chuyển đổi [hàm sẵn có hoặc macro] sẽ hỗ trợ các ký tự và màu sắc dòng mới.
  

  Bất kỳ trợ giúp hoặc chuyển hướng đến các giải pháp & nbsp; được đánh giá cao.

  Cảm ơn, John.

  -Cảm ơn, John Jacob Tharakan

Câu trả lời

• Đây là chức năng tôi đã viết. Điều này xử lý nhân vật chuyển đổi theo ký tự.

  Function fnConvert2HTML[myCell As Range] As String
      Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean
      Dim i, chrCount As Integer
      Dim chrCol, chrLastCol, htmlTxt As String
      
      bldTagOn = False
      itlTagOn = False
      ulnTagOn = False
      colTagOn = False
      chrCol = "NONE"
      htmlTxt = ""
      chrCount = myCell.Characters.Count
      
      For i = 1 To chrCount
          With myCell.Characters[i, 1]
              If [.Font.Color] Then
                  chrCol = fnGetCol[.Font.Color]
                  If Not colTagOn Then
                      htmlTxt = htmlTxt & ""
                      colTagOn = True
                  Else
                      If chrCol  chrLastCol Then htmlTxt = htmlTxt & ""
                  End If
              Else
                  chrCol = "NONE"
                  If colTagOn Then
                      htmlTxt = htmlTxt & ""
                      colTagOn = False
                  End If
              End If
              chrLastCol = chrCol
              
              If .Font.Bold = True Then
                  If Not bldTagOn Then
                      htmlTxt = htmlTxt & ""
                      bldTagOn = True
                  End If
              Else
                  If bldTagOn Then
                      htmlTxt = htmlTxt & ""
                      bldTagOn = False
                  End If
              End If
      
              If .Font.Italic = True Then
                  If Not itlTagOn Then
                      htmlTxt = htmlTxt & ""
                      itlTagOn = True
                  End If
              Else
                  If itlTagOn Then
                      htmlTxt = htmlTxt & ""
                      itlTagOn = False
                  End If
              End If
      
              If .Font.Underline > 0 Then
                  If Not ulnTagOn Then
                      htmlTxt = htmlTxt & ""
                      ulnTagOn = True
                  End If
              Else
                  If ulnTagOn Then
                      htmlTxt = htmlTxt & ""
                      ulnTagOn = False
                  End If
              End If
              
              If [Asc[.Text] = 10] Then
                  htmlTxt = htmlTxt & "
  "
              Else
                  htmlTxt = htmlTxt & .Text
              End If
          End With
      Next
      
      If colTagOn Then
          htmlTxt = htmlTxt & ""
          colTagOn = False
      End If
      If bldTagOn Then
          htmlTxt = htmlTxt & ""
          bldTagOn = False
      End If
      If itlTagOn Then
          htmlTxt = htmlTxt & ""
          itlTagOn = False
      End If
      If ulnTagOn Then
          htmlTxt = htmlTxt & ""
          ulnTagOn = False
      End If
      htmlTxt = htmlTxt & ""
      fnConvert2HTML = htmlTxt
  End Function
  
  Function fnGetCol[strCol As String] As String   
      Dim rVal, gVal, bVal As String
      strCol = Right["000000" & Hex[strCol], 6]
      bVal = Left[strCol, 2]
      gVal = Mid[strCol, 3, 2]
      rVal = Right[strCol, 2]
      fnGetCol = rVal & gVal & bVal
  End Function

  -Cảm ơn, John Jacob Tharakan
  

  --Thanks, John Jacob Tharakan

  • Chỉnh sửa Bytuesday, ngày 5 tháng 6 năm 2012 7:31 Khả năng đọc Pmimprived Tuesday, June 5, 2012 7:31 PM Improved Readability
  • Được đánh dấu là câu trả lời Byjohn Jacob Tharakantuesday, ngày 5 tháng 6 năm 2012 7:32 PM John Jacob Tharakan Tuesday, June 5, 2012 7:32 PM