VBA 文本转通用 - VBA

简介

VBA文本转通用是一个基于VBA开发的工具，能够将指定格式的文本数据转换成通用的格式，以便于在不同的应用场景中进行使用。

功能

VBA文本转通用提供了以下几个功能：

1. 支持将CSV格式的文本数据转换成Excel表格格式
2. 支持将Excel表格格式的数据转换成JSON格式
3. 支持将XML格式的数据转换成Excel表格格式
4. 支持将Excel表格格式的数据转换成HTML格式

使用方法

1. 导入VBA文本转通用模块
2. 调用相应的函数进行转换操作

CSV转Excel示例：

Sub CsvToExcel()
    '打开CSV文件
    Dim csvFilePath As String: csvFilePath = "C:\test.csv"
    Open csvFilePath For Binary Access Read As #1
    csvData = Space$(LOF(1))
    Get #1, , csvData
    Close #1
    
    '转换为Excel表格格式
    excelData = CsvToExcel(csvData)
    
    '打开Excel文件
    Dim excelFilePath As String: excelFilePath = "C:\test.xlsx"
    Set excelApp = CreateObject("Excel.Application")
    Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath)
    
    '将数据写入Excel表格
    excelWorkbook.Sheets(1).Range("A1").Value = excelData
    
    '保存并关闭Excel文件
    excelWorkbook.Save
    excelWorkbook.Close
    excelApp.Quit
End Sub

Excel转JSON示例：

Sub ExcelToJson()
    '打开Excel文件
    Dim excelFilePath As String: excelFilePath = "C:\test.xlsx"
    Set excelApp = CreateObject("Excel.Application")
    Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath)
    Set excelSheet = excelWorkbook.Sheets(1)
    
    '转换为JSON格式
    jsonData = ExcelToJson(excelSheet)
    
    '保存JSON文件
    Dim jsonFilePath As String: jsonFilePath = "C:\test.json"
    Open jsonFilePath For Output As #1
    Print #1, jsonData
    Close #1
    
    '关闭Excel文件
    excelWorkbook.Close
    excelApp.Quit
End Sub

XML转Excel示例：

Sub XmlToExcel()
    '打开XML文件
    Dim xmlFilePath As String: xmlFilePath = "C:\test.xml"
    Open xmlFilePath For Binary Access Read As #1
    xmlData = Space$(LOF(1))
    Get #1, , xmlData
    Close #1
    
    '转换为Excel表格格式
    excelData = XmlToExcel(xmlData)
    
    '打开Excel文件
    Dim excelFilePath As String: excelFilePath = "C:\test.xlsx"
    Set excelApp = CreateObject("Excel.Application")
    Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath)
    
    '将数据写入Excel表格
    excelWorkbook.Sheets(1).Range("A1").Value = excelData
    
    '保存并关闭Excel文件
    excelWorkbook.Save
    excelWorkbook.Close
    excelApp.Quit
End Sub

Excel转HTML示例：

Sub ExcelToHtml()
    '打开Excel文件
    Dim excelFilePath As String: excelFilePath = "C:\test.xlsx"
    Set excelApp = CreateObject("Excel.Application")
    Set excelWorkbook = excelApp.Workbooks.Open(excelFilePath)
    Set excelSheet = excelWorkbook.Sheets(1)
    
    '转换为HTML格式
    htmlData = ExcelToHtml(excelSheet)
    
    '保存HTML文件
    Dim htmlFilePath As String: htmlFilePath = "C:\test.html"
    Open htmlFilePath For Output As #1
    Print #1, htmlData
    Close #1
    
    '关闭Excel文件
    excelWorkbook.Close
    excelApp.Quit
End Sub

注意事项

1. 在使用本工具前，请先备份原始数据以防误操作导致数据丢失。
2. 本工具仅适用于指定格式的数据转换，对于其他格式的数据转换可能需要进行额外的处理。
3. 在进行Excel数据转换时，请确保Excel文件已经安装到本地，并且VBA宏已经启用。