Carson's Travels - 章鱼漫游记

一些关于旅行的东东 | Adventure travel around the world

Test VBA

Sub FormatCellsToRichText()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim richTextContent As String

    

    ' 替换为你的工作表名称和单元格范围

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Set rng = ws.Range("A1:I50")

    

    ' 初始化富文本内容

    richTextContent = "<div>"

    

    ' 循环遍历单元格并添加内容到富文本字符串

    For Each cell In rng

        ' 添加单元格内容到富文本字符串,使用 <br> 分隔每个单元格内容

        richTextContent = richTextContent & "<p>" & cell.Value & "</p>"

    Next cell

    

    ' 关闭富文本内容

    richTextContent = richTextContent & "</div>"

    

    ' 将富文本内容输出到 Immediate 窗口,以便查看格式化结果(可选)

    Debug.Print "Formatted Rich Text Content:"

    Debug.Print richTextContent

    

    ' 在这里可以将 richTextContent 用于后续的上传到 SharePoint 的操作

    ' 例如,将其作为参数传递给上传到 SharePoint 列的函数

    

    ' 示例中直接输出到 Immediate 窗口,实际使用时可将内容上传到 SharePoint 列

End Sub


  • 评论列表

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

Powered By Z-BlogPHP 1.7.3

2024 Carson's Travels - 章鱼漫游记 - WWW.CARSONX.COM All Rights Reserved.