如何使用VBA宏将excel行数据“按原样”保存到.svg

Sub SaveAsSVG()
    Dim rng As Range
    Dim cell As Range
    Dim svgData As String
    Dim filePath As String
    
    ' 设置要保存的行范围
    Set rng = ActiveSheet.UsedRange.Rows
    
    ' 遍历每一行
    For Each cell In rng
        ' 获取行数据的SVG表示
        svgData = "<svg xmlns=""http://www.w3.org/2000/svg"">" & cell.Value & "</svg>"
        
        ' 设置保存路径和文件名
        filePath = "C:\Path\To\Save\" & cell.Row & ".svg"
        
        ' 保存为.svg文件
        Open filePath For Output As #1
        Print #1, svgData
        Close #1
    Next cell
End Sub