How to style table border ?

[VBAEXCELNew]

Hello,

in my vba i would like table border to be black but however after a lot of test trying to add in css it dont work, i have realize that the only style i can use is through excel vba style for tables

I am trying to get my table that i have created in vba to have a border that is black or xlContinuous but so far no luck does anyone know how ?

HtmlContent = "<table>"
    HtmlContent = "<br><table border='1'><tbody>"
  
    'strQuotation = Trim(ThisWorkbook.Sheets("Master Table").Range("B" & R.Offset(0, 1)).Text)
    
    HtmlContent = HtmlContent & "<tr><th>Quotation / DC No.:</th><td>" & R.Offset(0, 1) & "</td></tr>"
    HtmlContent = HtmlContent & "<tr><th>Description:</th><td>" & R.Offset(0, 2) & "</td></tr> "
    HtmlContent = HtmlContent & "<tr><th>Status:</th><td>" & R.Offset(0, 0) & "<br>" & R.Offset(0, 5) & "<br>" & "</td></tr>"
    HtmlContent = HtmlContent & "<tr><th>Remarks:</th> <td>" & R.Offset(0, 8) & "</td></tr>"
    

HtmlContent = HtmlContent & "</tbody></table>"

 

[excel_learnerz]

In order to set the border color and style using inline CSS, you can use the following modified code:

HtmlContent = "<br><table style='border-collapse: collapse;'><tbody>"

'strQuotation = Trim(ThisWorkbook.Sheets("Master Table").Range("B" & R.Offset(0, 1)).Text)

HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Quotation / DC No.:</th><td style='border: 1px solid black;'>" & R.Offset(0, 1) & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Description:</th><td style='border: 1px solid black;'>" & R.Offset(0, 2) & "</td></tr> "
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Status:</th><td style='border: 1px solid black;'>" & R.Offset(0, 0) & "<br>" & R.Offset(0, 5) & "<br>" & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Remarks:</th> <td style='border: 1px solid black;'>" & R.Offset(0, 8) & "</td></tr>"

HtmlContent = HtmlContent & "</tbody></table>"

The border-collapse: collapse; style applied to the table will remove any spacing between table cells. The border: 1px solid black; style is applied to each table cell (<th> and <td>), which will give each cell a 1px solid black border.

 

[VBAEXCELNew]

x

 

[VBAEXCELNew]

In order to set the border color and style using inline CSS, you can use the following modified code:

HtmlContent = "<br><table style='border-collapse: collapse;'><tbody>"

'strQuotation = Trim(ThisWorkbook.Sheets("Master Table").Range("B" & R.Offset(0, 1)).Text)

HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Quotation / DC No.:</th><td style='border: 1px solid black;'>" & R.Offset(0, 1) & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Description:</th><td style='border: 1px solid black;'>" & R.Offset(0, 2) & "</td></tr> "
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Status:</th><td style='border: 1px solid black;'>" & R.Offset(0, 0) & "<br>" & R.Offset(0, 5) & "<br>" & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black;'>Remarks:</th> <td style='border: 1px solid black;'>" & R.Offset(0, 8) & "</td></tr>"

HtmlContent = HtmlContent & "</tbody></table>"

The border-collapse: collapse; style applied to the table will remove any spacing between table cells. The border: 1px solid black; style is applied to each table cell (<th> and <td>), which will give each cell a 1px solid black border.

I have another question i wan my Th to be align left how can i do it ?

 

[excel_learnerz]

Yes, you can align the text in the "th" element to the left by adding the "text-align: left;" style to the "th" element. Here's an updated version of the code that should do what you want:

HtmlContent = "<br><table style='border-collapse: collapse;'><tbody>"
'strQuotation = Trim(ThisWorkbook.Sheets("Master Table").Range("B" & R.Offset(0, 1)).Text)

HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left;'>Quotation / DC No.:</th><td style='border: 1px solid black;'>" & R.Offset(0, 1) & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left;'>Description:</th><td style='border: 1px solid black;'>" & R.Offset(0, 2) & "</td></tr> "
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left;'>Status:</th><td style='border: 1px solid black;'>" & R.Offset(0, 0) & "<br>" & R.Offset(0, 5) & "<br>" & "</td></tr>"
HtmlContent = HtmlContent & "<tr><th style='border: 1px solid black; text-align: left;'>Remarks:</th> <td style='border: 1px solid black;'>" & R.Offset(0, 8) & "</td></tr>"

HtmlContent = HtmlContent & "</tbody></table>"

Notice that the "text-align: left;" style is added to each "th" element to align the text to the left. You can modify the code as needed to adjust the border and other styles if necessary.