EXCELのセルの色は#BBGGRRで表現されるのでHTMLの書式#RRGGBBへ変換する必要があります。 Dim w_s As String, w_bgc As String w_s = Format(Hex(Cells(i, j).Interior.Color), "@@@@@@") '桁数を常に16進数6桁にするために w_s = Replace(w_s, " ", "0") 'スペースは0へ変換 'BGRをRGBへ変換 w_bgc = Mid(w_s, 5, 2) & Mid(w_s, 3, 2) & Mid(w_s, 1, 2)