エクスポートされたリストの HTML を XLS/Excel 形式でレンダリングするIssue <!-- div.margin{ padding: 10px 40px 40px 30px; } table.tocTable{ border: 1px solid; border-color:#E0E0E0; background-color: rgb(245, 245, 245); padding-top: .6em; padding-bottom: .6em; padding-left: .9em; padding-right: .6em; } table.noteTable{ border:1px solid; border-color:#E0E0E0; background-color: rgb(245, 245, 245); width: 100%; border-spacing:2; } table.internaltable { white-space:nowrap; text-align:left; border-width: 1px; border-collapse: collapse; font-size:14px; width: 85%; } table.internaltable th { border-width: 1px; padding: 5px; border-style: solid; border-color: rgb(245, 245, 245); background-color: rgb(245, 245, 245); } table.internaltable td { border-width: 1px; padding: 5px; border-style: solid; border-color: #E0E0E0; color: #000000; } .title { color: #D1232B; font-weight:normal; font-size:28px; } h1{ color: #D1232B; font-weight:normal; font-size:21px; margin-bottom:-5px } h2{ color: #646464; font-weight:bold; font-size:18px; } h3{ color: #000000; font-weight:BOLD; font-size:16px; text-decoration:underline; } h4{ color: #646464; font-weight:BOLD; font-size:15px; text-decoration:; } h5{ color: #000000; font-weight:BOLD; font-size:13px; text-decoration:; } h6{ color: #000000; font-weight:BOLD; font-size:14px; text-decoration:; } ul{ list-style: disc outside none; margin-left: 0; } li { padding-left: 1em; } --> リストビューからエクスポートして Excel 形式でレンダリングすると、HTML フィールドが HTML タグとともに表示されます。 HTML フィールドのある任意のリストビューに移動します。ヘッダーを右クリックしますExcel >エクスポート (.xlsx)行を Excel ファイルにダウンロードした後、その内容を確認します。 Causeこの HTML タグを非表示にする機能は、現在製品の一部ではありません。ResolutionExcel の Visual Basic Editor を使用して、エクスポートされたコンテンツをクリーンアップします。 列を HTML からプレーンテキストに変更するコードは、次のようになります。 Sub StripTags() Dim cell As Range Dim s As String Dim asWd() As String Dim iWd As Long For Each cell In Intersect(Selection.Cells, ActiveSheet.UsedRange) s = Replace(cell.Value, Chr(160), " ") s = Replace(s, ">", "<") s = Replace(s, vbCr, vbLf) asWd = Split(s, "<") s = vbNullString For iWd = 0 To UBound(asWd) Step 2 s = s & " " & asWd(iWd) Next iWd Do While InStr(s, vbLf & " ") s = Replace(s, vbLf & " ", vbLf) Loop Do While InStr(s, vbLf & vbLf) s = Replace(s, vbLf & vbLf, vbLf) Loop cell.Value = WorksheetFunction.Trim(s) Next cell End Sub Related Links詳細については、コミュニティの投稿 エクスポートされたリストでの HTML のレンダリングを参照してください。 ドキュメントページ: リストのエクスポート。